#!/afs/sipb/project/perl5/bin/tkperl

use Tk;
BEGIN { push(@INC, qw(../../../lib ../../lib ../lib lib)) }

$top = tkinit;
$prompt = Toplevel::new($top);
$entryval = "";
$promptLabel = Label::new($prompt, "-text", ">");
$promptEntry = Entry::new($prompt, "-textvariable" => $entryval,
	);
tkbind($promptEntry, "<Return>", \&Input);
#tkpack $promptLabel, $promptEntry;
tkpack $promptLabel, $promptEntry, "-side" => "left";

#wm("withdraw", $top);
tkmainloop;

sub Input {
	print ($entry = $promptEntry->get, "\n");
	$entryval = "";
	eval $entry;
}