use Tk;

my %font=(-font=>[-family=>'Courier New',-size=>10]);
my %width=(-width=>120);

my $mw=new MainWindow;

my $entry=$mw->Entry(
	%width,
	-relief=>'groove',
	-borderwidth=>5,
	-textvariable=>\$entry_text,
	%font
	)->pack;
	
$entry->focus;
	
$entry->bind('<Key-Return>',\&enter);

my $text=$mw->Text(
	%font,
	%width,
	-height=>43
	)->pack;

#$mw->update;

my $geom=$mw->geometry;
print "geom: $geom\n";
$geom=~s/\+\d+\+\d+/+5+5/;
$mw->geometry($geom);
	
MainLoop;

################
prints: geom: 1x1+0+0