tk_getOpenFile 使用問題

xiumu2280

1. 
   
2. sub open_file {
   
3.   my $open = $mw->new_tk_getOpenFile;
   
4.   print qq{You chose to open "$open"\n} if $open;
   
5.   return;
   
6. }
   

復制代碼

這樣使用的話 會出現(xiàn)如下報錯
對參數(shù)更改之后··有會出現(xiàn)其他的報錯··
有木有實例啊····

1. bad option ".t": must be -defaultextension, -filetypes, -initialdir, -initialfile, -multiple, -parent, -title, or -typevariable

復制代碼

xiumu2280

···求指點啊~~到處都搜不到

xiumu2280

測試代碼

1. use Tkx;
   
2. 
   
3. 
   
4. my $mw = Tkx::widget->new(".");
   
5. my $frame = $mw->new_ttk__frame();
   
6. my $new_ic_btn = $frame->new_ttk__button(-text => "Newer file", -command => \&open_file);
   
7. $frame->g_grid();
   
8. $new_ic_btn->g_grid();
   
9. Tkx::MainLoop;
   
10. 
    
11. sub open_file {
    
12.   my $open = $mw->new_tk_getOpenFile;
    
13.   print qq{You chose to open "$open"\n} if $open;
    
14.   return;
    
15. }

復制代碼

xiumu2280

解決
my $open = Tkx::tk___getOpenFile();