in reply to Perl Tk & passing directories
Maybe something like this will point you in the right direction?
Cheers,
Shendal
#!/usr/bin/perl -w use strict; use Tk; use Tk::FileSelect; my $top = new MainWindow; my $entry = $top->Entry()->pack(-side => 'left'); my $fs = $top->FileSelect(-verify => [qw/-d/]); my $dir = $fs->Show(); $entry->insert('end',$dir); MainLoop();
Cheers,
Shendal
In Section
Seekers of Perl Wisdom