Re: Perl Tk & passing directories


Clear questions and runnable code get the best and fastest answer
	PerlMonks

Re: Perl Tk & passing directories

by Shendal (Hermit)

on Aug 13, 2002 at 15:58 UTC ( [id://189839]=note: print w/replies, xml )

Need Help??

in reply to Perl Tk & passing directories

Maybe something like this will point you in the right direction?

#!/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();
[download]

Cheers,
Shendal