windows下运行perl tk 出现的问题

simon_stone

1. <p>&listBox(-title=>'abc',-selectmode=>'multiple',-list=>['a','b','c']);</p><p>sub listBox {
   
2.     my %hash = @_;
   
3.     $hash{-height} = 10 unless defined $hash{-height};
   
4.     $hash{-width} = 5 unless defined $hash{-width};
   
5.     my $mw = MainWindow->new;
   
6.     my $dialog = $mw->DialogBox(-title => $hash{-title},
   
7.                                 -buttons => ["OK","Cancel"]);
   
8.     my $label = $dialog->add("Label",-text => $hash{-title},-height => 2,-font => '{fixed} 20 {bold}',-borderwidth => 2,</p><p>                                          -relief => 'groove')->pack(-fill => 'x');
   
9.     my $listbox = $dialog->add("Scrolled","Listbox",
   
10.                                -scrollbars => 'e',
    
11.                                -selectmode => $hash{-selectmode},
    
12.                                -borderwidth => 2,
    
13.                                -height => $hash{-height},
    
14.                                -width => $hash{-width}
    
15.                                )->pack(-fill => 'both');
    
16. 
    
17.     $listbox->insert('end',@{$hash{-list}});
    
18.     my $item = $dialog->Show();
    
19.     if ($item eq 'OK'){
    
20.         if ($hash{-selectmode} eq 'single') {
    
21.             return $hash{-list}->[$listbox->curselection()->[0]];
    
22.         }else{
    
23.             my @return;
    
24.             push @return,$hash{-list}->[$_] for @{$listbox->curselection()};
    
25.             return \@return;
    
26.         }
    
27.     }else{
    
28.         exit;
    
29.     }
    
30. }
    
31. </p></p>

复制代码

simon_stone

使用windows cmd 运行后 结果如下


请教，如何隐藏主框体呢？

simon_stone

隐藏左边那个名字为Test的框体，请教如何做到？