in reply to Problems with initial file in getSaveFile

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;

[download]
Perl is Huffman encoded by design.

In Section Seekers of Perl Wisdom