Hello,
Take a look at
Tk::Wm
Look for the methods
resizeable,
minsize,
maxsize.
Should hopefully help you...
For example (note -> code untested),
$main->minsize(qw(600 600));
$main->maxsize(qw(700 1000));
$main->resizable( 0, 0 );
regexes
-------------------------
Nothing in the world can take the place of persistence. Talent will not; nothing is more common than unsuccessful men with talent. Genius will not; unrewarded genius is almost a proverb. Education will not; the world is full of educated derelicts. Persistence and determination are omnipotent. The slogan "press on" has solved and always will solve the problems of the human race.
-- Calvin Coolidge, 30th President of the USA.