Привет, столкнулся в Tk Perl с маленькой не приятной проблемой, дело в том что при создании окна я указываю его размеры:
| Код |
use Tk;
use encoding 'cp1251';
my( $MW,%WG, );
$MW = MainWindow->new(
'-title' => 'Main Window',
'-width' => 800,
'-height' => 800,
'-cursor' => 'top_left_arrow',
);
|
Все создается все нормально но как только я кладу на форму какой либо виджет то окно принимает размер виджета:
| Код |
$WG{'Label1'} = $MW->Label(
-text => "Test window Atila"
)->pack;
|
Не знаю что делать, читаю Mastering Tk/Perl пока нечего не получается, можете дать совет какой параметр виджету или главному окну прописать надо что главное окно не принимала размер виджета? Зарание спасибо! |