Hi,
For some strange reason the following fragment seems to not work...
# Get the CSV file name
my $types=[['All Files', '*', ]];
if(scalar @ARGV > 0) {
$infile = $ARGV[0];
} else {
$infile = $mw->getOpenFile(-filetypes=>$types);
print "->$infile<-\n";
}
In the above if the getOpenFile dialog is picked, $infile is always
Returned as the null string, bummer. $mw was earlier set by
my $mw = new MainWindow;
This is Perl 5.8 and MacOSX 10.2.1 and Tk 800.024, seems like when I
Upgraded to 5.8 and Jag, it used to work... I know it worked for
10.5.1 and perl 5.6.1.
I had a similar problem on a AIX system I used to manage, but getOpenFile
only failed for the /etc directory...
Any help/suggestions would be appreciated.
The actual program is located at http://homepage.mac.com/levanj/perl
It is the csv file editor...
--Jerry
