Looks like a bug to me. -title works. -filetypes works. -defaultextension, -initialdir and -initialfile are broken.
Update: I was using Perl 5.8.7 for Windows on XP sp2
use strict; use warnings; use Tk; my $mw=MainWindow->new(-title=>'Test'); $mw->resizable(0,0); my $resumen2=$mw->getSaveFile ( -initialfile =>'inplace', -title =>"Save Anything", -initialdir => "c:/delme~~", -defaultextension=>'.wib', -filetypes => [ ['Text files', ['.txt', '.pl']], ['Wibble files', '.wib'], ['All Files', '*'] ] ); MainLoop; print $resumen2;
In reply to Re: Problems with initial file in getSaveFile
by GrandFather
in thread Problems with initial file in getSaveFile
by dorian
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |