0
$mw=MainWindow->new(-title=>'Game of Life');
$frmitems=$mw->Frame;
$frmsettings=$mw->Frame;
$lab1=$frmsettings->Label(-text=>'Size of square:')->pack;
$hen=$frmsettings->Entry(-textvariable=>10);
$lab2=$frmsettings->Label(-text=>' x ');
$wen=$frmsettings->Entry(-textvariable=>10);
$hen->grid($lab2,$wen);
$ststr=$frmsettings->Label(-text=>"Current step: $step")->pack;
$frmitems->grid($frmsettings);
$mw->gridColumnconfigure(0, -pad => 10);
$mw->gridColumnconfigure(1, -pad => 10);
$mw->MainLoop;
此代碼應該製作一個簡單的窗口。但MainLoop後沒有任何內容出現。如果我使用Window不會在Perl/Tk中出現
$hen->pack($lab2,$wen);
,而不是
$hen->grid($lab2,$wen);
窗口出現,但我需要另一個幾何(如使用網格)。怎麼了?
Windows上的ActivePerl 5.16。