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 の後には何も表示されません。私が使用する場合

$hen->pack($lab2,$wen);

それ以外の

$hen->grid($lab2,$wen);

ウィンドウが表示されますが、別のジオメトリが必要です (グリッドなど)。どうしたの?

Windows 上の ActivePerl 5.16。

4

1 に答える 1