FILE SELECTION DIALOG PROBLEM

[Go Perl]

I am using the following code to create file selection dialogs..But
apparently the Browse buttons do not seem to work.. i got this from
examples provided by typing widget. I changed a little to remove the
radio buttons and stuff, but i am not able to browse and select the
files. I will be glad if anyone can point the error and throw some
light on this.
Thanks very much.

use Tk;
$mw = MainWindow->new();

foreach my $i (qw(one two three four)) {
my $f = $mw->Frame;
my $lab = $f->Label(-text => "Select $i file to Open: ",
-anchor => 'e');
my $ent = $f->Entry(-width => 20);
my $but = $f->Button(-text => "Browse ...",
-command => sub { fileDialog($mw, $ent, $i)});
$lab->pack(-side => 'left');
$ent->pack(-side => 'left',-expand => 'yes', -fill => 'x');
$but->pack(-side => 'left');
$f->pack(-fill => 'x', -padx => '1c', -pady => 3);
}


sub filebox {
my $demo = shift;


(
-name => $demo,
-text => "Enter a file name in the entry box or click on
the \"Browse\" buttons to select a file name

using the file selection dialog.",
-iconname => 'filebox',
);
}

sub fileDialog {
my $w = shift;
my $ent = shift;
my $operation = shift;
my $types;
my $file;
@types =
(["Text files", '*.txt'],
["All files", '*']
);
if ($operation eq 'open') {
$file = $w->getOpenFile(-filetypes => \@types);
}

}

[Bob Walton]

Go Perl wrote:

> I am using the following code to create file selection dialogs..But
> apparently the Browse buttons do not seem to work.. i got this from
> examples provided by typing widget. I changed a little to remove the
> radio buttons and stuff, but i am not able to browse and select the
> files. I will be glad if anyone can point the error and throw some
> light on this.

....

>
> use Tk;
> $mw = MainWindow->new();
>
> foreach my $i (qw(one two three four)) {
> my $f = $mw->Frame;
> my $lab = $f->Label(-text => "Select $i file to Open: ",
> -anchor => 'e');
> my $ent = $f->Entry(-width => 20);
> my $but = $f->Button(-text => "Browse ...",
> -command => sub { fileDialog($mw, $ent, $i)});
> $lab->pack(-side => 'left');
> $ent->pack(-side => 'left',-expand => 'yes', -fill => 'x');
> $but->pack(-side => 'left');
> $f->pack(-fill => 'x', -padx => '1c', -pady => 3);
> }

MainLoop; #is needed here

>
>
> sub filebox {
> my $demo = shift;
>
>
> (
> -name => $demo,
> -text => "Enter a file name in the entry box or click on
> the \"Browse\" buttons to select a file name
>
> using the file selection dialog.",
> -iconname => 'filebox',
> );
> }
>
> sub fileDialog {
> my $w = shift;
> my $ent = shift;
> my $operation = shift;
> my $types;
> my $file;
> @types =
> (["Text files", '*.txt'],
> ["All files", '*']
> );
> if ($operation eq 'open') {
> $file = $w->getOpenFile(-filetypes => \@types);
> }
>
> }
>

Your "browse" buttons work fine. The sub you are calling with the
-command of each Button is not given a third argument of 'open',
however, so it appears as if the Button does nothing. If you change it
so the the third argument is 'open' instead of $i, then the file dialog
does appear. But then, you don't do anything with $file once you have
it, so your program needs lots more work.

And BTW, your example is missing a MainLoop; statement in the main program.

--
Bob Walton