Perl TK有像QQ界面一樣的卷簾式菜單的組件嗎？

h97252

RT，請(qǐng)知道的朋友告之，謝謝了！

kk861123

1. #!perl -w
   
2. use Tk;
   
3. $mw = MainWindow->new;
   
4. $mw->title( 'Tk' );
   
5. 
   
6. $FRAME_L  = $mw->Frame->pack(qw/-side left -fill both/);
   
7. $WIDGET_F = $FRAME_L->Labelframe()->pack(qw/-side top -fill both -expand 1/);
   
8. 
   
9. my %section = (
   
10.         A        => [1,2,3],
    
11.         B        => [4,5,6],
    
12.         C        => [7,8,9],
    
13. );
    
14. my (@frames,@button);
    
15. for my $sect_name (sort keys %section) {
    
16.         my $b;
    
17.         my $f = $WIDGET_F->Frame(
    
18.                 -bg          => 'green',
    
19.                 -relief      => 'sunken',
    
20.                 -borderwidth => 1
    
21.         );
    
22.         $b = $WIDGET_F->Radiobutton(
    
23.                 -text        => $sect_name,
    
24.                 -indicatoron => 0,
    
25.                 -value       => $sect_name,
    
26.                 -width                 => 25,
    
27.                 -bg                         => '#af1a3c6a6872',
    
28.                 -fg                         => 'white',
    
29.                 -command => sub {
    
30.                         $_->packForget for @frames;
    
31.                         $f->pack(
    
32.                                 -after => $b,
    
33.                                 qw/-side top -fill both -expand 1 -padx 1 -pady 1/
    
34.                         );
    
35.         }
    
36.         )->pack(qw/-fill x -side top -padx 1 -pady 1/);
    
37.        
    
38.         for my $par_tmp (@{ $section{$sect_name} }) {
    
39.                 $f->Button(
    
40.                         -text    => "$par_tmp",
    
41.                         -relief  => 'ridge',
    
42.                         -bg      => '#8189ce14cf5b',
    
43.                         -fg      => 'black',
    
44.                 )->pack(qw/-side top -fill x -padx 4  /);
    
45.         }
    
46. 
    
47.         push @frames,$f;
    
48.         push @button,$b;
    
49. }
    
50. 
    
51. $FRAME_L->Button(
    
52.         -text        => "CLOSE",
    
53.         -relief      => 'sunken',
    
54.         -borderwidth => 1,
    
55.         -bg          => "white",
    
56.         -fg          => "black",
    
57.         -command     => sub { exit; },
    
58. )->pack(qw/-side bottom -fill x -padx 1 -pady 2 /);
    
59. 
    
60. MainLoop;
    
61. 
    

復(fù)制代碼

首天

kk這個(gè)案例很喜歡{:3_189:}

pcbfans

很好的案列，有前途

andy20008

回復(fù) 2# kk861123

這代碼很神奇啊，呵呵。。

kk861123

回復(fù) 5# andy20008


    呵呵，其實(shí)就是進(jìn)行代碼的重組。

andy20008

回復(fù) 6# kk861123


:wink:

我的寫(xiě)法是這樣的：

1. pack(-side => 'left', -fill => 'both', -expand => 1);

復(fù)制代碼

kk861123兄，

1. 
   
2. $FRAME_L  = $mw->Frame->pack(qw/-side left -fill both/);
   
3. $WIDGET_F = $FRAME_L->Labelframe()->pack(qw/-side top -fill both -expand 1/);
   
4. $b = $WIDGET_F->Radiobutton(......)->pack(qw/-fill x -side top -padx 1 -pady 1/);
   

復(fù)制代碼

這種寫(xiě)法有點(diǎn)看不大習(xí)慣啊，感覺(jué)有點(diǎn)看不懂，呵呵。。

kk861123

回復(fù) 7# andy20008


    很好懂，理解為向pack傳遞一個(gè)hash，我的寫(xiě)法相當(dāng)于

1. %param = qw/-side left -fill both/;
   

復(fù)制代碼

偷懶~{:3_183:}

andy20008

回復(fù) 8# kk861123


呵呵，理解了，謝謝。。

pcbfans

回復(fù) 2# kk861123

達(dá)達(dá)，有個(gè)問(wèn)題反饋一下
1、這個(gè)排序不適合中文吧？特別是自定義的標(biāo)簽？
2、如何對(duì)數(shù)組里的每個(gè)變量定義子程序？