Select Code to Download

$widget->reqheight  #requested height
$widget->height     #actual height
$widget->reqwidth   #requested width
$widget->width      #actual width

use Tk;
use Tk::Pane;
...
$Window->minsize($total_row_width + $fudge,300);

MainLoop;