Perl TK有像QQ界面一样的卷帘式菜单的组件吗？

h97252

RT，请知道的朋友告之，谢谢了！

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. 
    

复制代码

首天

kk这个案例很喜欢{:3_189:}

pcbfans

很好的案列，有前途

andy20008

回复 2# kk861123

这代码很神奇啊，呵呵。。

kk861123

回复 5# andy20008


    呵呵，其实就是进行代码的重组。

andy20008

回复 6# kk861123


:wink:

我的写法是这样的：

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

复制代码

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/);
   

复制代码

这种写法有点看不大习惯啊，感觉有点看不懂，呵呵。。

kk861123

回复 7# andy20008


    很好懂，理解为向pack传递一个hash，我的写法相当于

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

复制代码

偷懒~{:3_183:}

andy20008

回复 8# kk861123


呵呵，理解了，谢谢。。

pcbfans

回复 2# kk861123

达达，有个问题反馈一下
1、这个排序不适合中文吧？特别是自定义的标签？
2、如何对数组里的每个变量定义子程序？