0
我需要Perl程序的图形输出。该窗口有一个label
状态字段,并应显示编程代码决定的内容。异步更改Tk标签的文本
如何在没有任何按钮的情况下创建窗口后更改标签字段的文本?
我有以下几点:
use Tk;
$mw = Tk::MainWindow->new(-title => 'Status Window',-bg=>"white");
$mw->geometry ("400x200+0+0");
$lala = $mw->Label(-text => "Current Status")->grid(-row=>0,-column=>0);
$mw->bind('all' => '<Key-Escape>' => sub {exit;});
MainLoop;
如何结合下面的子例程,以便在创建窗口后会自动运行 ? Label-Widget
没有 a -command
字段。它应立即启动和 不是等待一个事件发生
sub calculate() {
for ($i = 0; $i < 10; $i++) {
sleep 2s;
$lala->configure(-text=>"Current Status : $i");
}
}