作者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/m.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