#!/opt/perl_5.8.8/bin
use Tk;
use strict;
use warnings;
use Anykey;

my $value;
my $mw = MainWindow->new();
$mw->geometry("700x200");

my $frame=  $mw->Frame()->grid(-row => 5, -columnspan => 2, -rowspan => 2)->pack(-side => 'top',
		-anchor => 'nw');
my $Entry = $frame->Entry(-width => 80)
		->pack(-side => 'left');


my $obj = Anykey->new(widget=>$Entry);


$frame->Button(-text => "Browse...",-bg => 'snow3',-command => [\&setdir,$obj])->grid()->pack(-side => 'left');


sub setdir
{
	my $obj = shift;
	$obj->setDir();
	
}



MainLoop;