# at ther end of your build_gui sub

$goMainWindow->idletasks;
my $w = $goMainWindow->reqwidth;
my $h = $goMainWindow->reqheight; 
print "$w $h\n";
$goMainWindow->minsize($w,$h);