Tkx多线程界面求助

xiumu2280

最近在写Tkx的界面 ，需要用ssh2模块远程操作服务器的功能。
现在想写一个连接状态监控的插件。
目前想法是用threads模块，然后detach掉线程。
这样写的话一直程序崩溃····

求 指点···

简单的说，就是想写一个可以2元素并行运行的界面程序。

pitonas

小伙伴们, 试试: {:2_172:}


1: 2 元素并行运行 ( 2 Label )
2: #!/usr/bin/perl (test in linux)

1. #!/usr/bin/perl
   
2. 
   
3. use threads;
   
4. use threads::shared;
   
5. use Tkx;
   
6. 
   
7. my ( $V1, $V2 );    # textvariable
   
8. my ( $T1, $T2 );    # 2 threads
   
9. my $R1 : shared  = 'E 1:';    # $R1 ~> $V1, $R2 ~> $V2
   
10. my $R2 : shared  = 'E 2:';
    
11. my $Go : shared  = 0;         # flag: exit
    
12. my $push         = 0;         # flag: create thread
    
13. my $milliseconds = 50;        # time: update
    
14. 
    
15. # window
    
16. 
    
17. my $win = Tkx::widget->new(".");
    
18. $win->g_wm_title("2 Threads");
    
19. $win->g_wm_minsize( 200, 150 );
    
20. 
    
21. my $content = $win->new_ttk__frame( -borderwidth => 50 );
    
22. 
    
23. my $start = $content->new_ttk__button(
    
24.     -text    => "start",
    
25.     -command => \&start
    
26. );
    
27. 
    
28. my $quit = $content->new_ttk__button(
    
29.     -text    => "quit",
    
30.     -command => \&quit
    
31. );
    
32. 
    
33. Tkx::font_create(
    
34.     "BIG",
    
35.     -family => "Helvetica",
    
36.     -size   => 16,
    
37.     -weight => "bold"
    
38. );
    
39. 
    
40. my $la1 = $content->new_ttk__label( -textvariable => \$V1, -font => 'BIG' );
    
41. my $la2 = $content->new_ttk__label( -textvariable => \$V2, -font => 'BIG' );
    
42. 
    
43. $content->g_pack( -anchor => 'nw', -padx => 5, -pady => 5 );
    
44. $la1->g_pack( -anchor => 'nw', -padx => 5, -pady => 0 );
    
45. $la2->g_pack( -anchor => 'nw', -padx => 5, -pady => 50 );
    
46. $start->g_pack( -anchor => 'nw', -padx => 5, -pady => 2 );
    
47. $quit->g_pack( -anchor => 'nw', -padx => 5, -pady => 2 );
    
48. 
    
49. # subs
    
50. 
    
51. sub Sleep { select undef, undef, undef, shift; }
    
52. sub update { ( $V1, $V2 ) = ( $R1, $R2 ) }
    
53. 
    
54. sub repeat {
    
55.     my ( $ms, $sub, $update ) = @_;
    
56.     $update = sub { $sub->(); Tkx::after( $ms, $update ); };
    
57.     Tkx::after( $ms, $update );
    
58. }
    
59. 
    
60. sub start {
    
61.     return if $push++;
    
62.     #print "hello world\n";
    
63.     $T1 = threads->create( \&Work1 );
    
64.     $T2 = threads->create( \&Work2 );
    
65. }
    
66. 
    
67. sub quit {
    
68.     my $running = threads->list;
    
69.     exit if $running < 1;
    
70.     $Go = 1;
    
71.     $T1->join;
    
72.     $T2->join;
    
73.     exit;
    
74. }
    
75. 
    
76. # threads
    
77. 
    
78. sub Work1 {
    
79.     for my $i ( 0 .. 150 ) {
    
80.         return if $Go;
    
81.         $R1 = "E 1:  $i";
    
82.         Sleep 0.1;
    
83.     }
    
84.     $R1 = 'End work1';
    
85. }
    
86. 
    
87. sub Work2 {
    
88.     for my $i ( 0 .. 50 ) {
    
89.         return if $Go;
    
90.         $R2 = "E 2:  $i";
    
91.         Sleep 0.3;
    
92.     }
    
93.     $R2 = 'End work2';
    
94. }
    
95. 
    
96. # main
    
97. 
    
98. repeat $milliseconds, \&update;
    
99. Tkx::MainLoop();
    
100. 
     

复制代码

xiumu2280

感谢  这样写是可以的···
我之前的思路是把tkx代码放到子程序，线程是Tkx::tk___messageBox之类的东西。而不是变量。
但现在看来这样的思路也可以

pitonas

据说 tk: http://www.perlmonks.org/bare/?node_id=732294
( 这个 我 没有 测试 ) ~ {:2_176:}
1. The thread must be created before any Tk widgets are invoked. You violate that rule by creating the thread in a button callback.

2. Do not put any Tk code into the thread, and do not try to access Tk widgets from the thread. Use shared variables to communicate with the main thread, and have a timer or fileevent in the main Tk thread, read from the thread.



Tkx:
可能(??)也是 如此, 这个我不能确定. ~{:2_179:}

xiumu2280 发表于 2014-07-24 04:55
我之前的思路是把tkx代码放到子程序，线程是Tkx::tk___messageBox之类的东西。而不是变量。 ...