Whoops, the url show be http://homepage.mac.com/levanj/Perl
--Jerry
> 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
