Hi,
A couple of days ago I complained about getOpenFile always returning an
empty string. I also asserted that the "widget" demo "worked".
Regrettably I was wrong on both assertions, on my system, MacOSX 10.2.1,
Perl 5.8.0, Tk 800.024, the failure only occurs on the first invocation of
either call. The following code will return an empty string on the first
iteration and the correct string on subsequent iterations.
#!/usr/local/bin/perl
use Tk;
$mw = new MainWindow;
my $myfile="Whatever";
my $types;
for $i (1,2,3) {
# Get the CSV file name
@types=(['All Files','*' ],['TEXT Files','.txt', 'text']);
$myfile = $mw->getOpenFile(-title=>"FooBar");
print "...$myfile...\n";
}
MainLoop;
It smells like there is some kind of initialization problem in the Fbox
code.
Am I the only person with this problem?
Help!
Jerry
