Hello all,
I am trying to use getSaveFile in ActivePerl version: v5.8.8 built for
MSWin32-x86-multi-thread, Binary build 819 [267479] provided by
ActiveState http://www.ActiveState.com
While I was using it in to 5.6 without any problem. In 5.8.8 the option
-initialfile does not work!
I am running it on Windows XP sp2.
See the following simple code:
#######################################################
use strict;
use Tk;
use Tk::Text;
my $top = MainWindow->new();
my $textwindow = $top->Text->pack;
my $savefilename = $textwindow->getSaveFile(-initialdir=>'c:\apps',
-initialfil=>'afile.nam');
print $savefilename;
MainLoop();
#######################################################
Any idea?
Thanks.
Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:[EMAIL PROTECTED]
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
