作者asrpgwu (先做好眼前的事~在谈梦想)
看板Perl
标题[问题] perl/tk getOpenFile
时间Tue Mar 3 11:07:24 2015
各位先进前辈 打给候…
小弟perl初学者,刚study完Perl学习
手册[6版].主要是想做一些gui界面在Li
-nux系统上,perl/tk的相关资料来自网
路.
这两天在使用 getOpenFile时遇到一
些小问题想向各位请教
关於隐藏档,在开档时如何不
显示点(.)开头的档案呢?
my $test=[ ['perl files' , '.pl'] ,
['all files' , '*'] ,
];
my $button=$mw->Button(
-text=>"Load",
-command=>\&test,
);
sub test {
my $button=$mw->getOpenFile(
-filetypes=>$test,
-defaultextension=>'.pl' ,
);
星号要如何处理才能不显示隐藏档
呢?
感谢各位帮忙!
--
Sent from my Android
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.75.224.11
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Perl/M.1425352046.A.6D3.html
1F:推 LiloHuang: 旧式的 Perl/Tk 介面并没有办法隐藏那些隐藏档 03/14 12:56
2F:→ LiloHuang: 建议如果是初学者的话,请从新式的 Tkx 开始学习 03/14 12:56
3F:→ LiloHuang: Tkx 可以透过 Tkx::i::call 的介面来设定不显示隐藏档 03/14 12:57
5F:→ LiloHuang: use Tkx; 03/14 13:04
6F:→ LiloHuang: Tkx::i::call( 03/14 13:05
7F:→ LiloHuang: 'namespace', 'import', '::tk::dialog::file::'); 03/14 13:05
8F:→ LiloHuang: Tkx::i::call( 03/14 13:05
9F:→ LiloHuang: 'set', '::tk::dialog::file::showHiddenVar', '0'); 03/14 13:05
10F:→ LiloHuang: Tkx::i::call('tk_getOpenFile'); 03/14 13:05
11F:→ LiloHuang: Tkx::MainLoop(); 03/14 13:05
12F:→ LiloHuang: 以上是纯直觉撰写,还请依照需求进行修改。 03/14 13:08
13F:推 flu: 或许你会想试试 wxPerl, 它是wxWidges的Perl binding 03/14 13:43
14F:推 flu: 是跨平台的GUI Lib. 套装Citrus perl的话里面就有包在内 03/14 13:46
15F:推 LiloHuang: 如果能改学 wxPerl 是最好,至少得用 Tkx 而非 Perl/Tk 03/15 09:36
17F:→ LiloHuang: 至少 Tkx 可以用到很多新的元件,还有 UI Style 好太多 03/15 09:39