Hope this helps,use Tk; my $file; my $top = new MainWindow; my $ent = $top->Entry(-textvariable=>\$file)->pack(); my $but = $top->Button(-text=>"ShowFile",-command=>\&sub_file)->pack() +; MainLoop(); sub sub_file { print $file; # or whatever }
In reply to Re: PerlTk File Input
by mawe
in thread PerlTk File Input
by paul99
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |