1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/usr/local/bin/perl -w
use Tk;
require Tk::FileDialog;
my $mw = MainWindow->new();
my $fdialog = $mw->FileDialog('Title'=>'Select File',
'CreateFlag' => 0);
$fdialog->configure('Path' => "$ENV{'HOME'}",
'FileMask' => '*',
'ShowAllFlag' => 'NO',
grabflag => 1);
$mw->Button(-text => 'Choose File',
-command =>
sub
{
my $fname = $fdialog->Show(ChDirFlag => 1,
DisableShowAll => 'YES');
print "Chose $fname\n";
})->pack(-side => 'left', -fill => 'y');
$mw->Button(-text => 'Quit',
-command => [$mw, 'destroy']) ->pack(-side => 'left', -fill => 'y');
MainLoop;
|
