创建新的perl / tk窗口,该窗口将在1秒后自动关闭

时间:2010-08-31 09:44:26

标签: perl tk

我想在我的脚本中添加一个新窗口小部件,它将打开一个带文本的新窗口,并在1秒后自动关闭。

我该怎么办?

1 个答案:

答案 0 :(得分:1)

我认为你想要的是Tk::after

#!/usr/bin/perl

use strict;
use warnings;

use Tk;

my $mw    = MainWindow->new;
my $spawn = $mw->Button(
    -text    => 'spawn',
    -command => sub {
        my $subwindow = MainWindow->new;
        my $label     = $subwindow->Label(-text => "spawned");
        $label->pack;
        $subwindow->after(1_000, sub { $subwindow->destroy; });
    }
);
$spawn->pack;
my $exit = $mw->Button(
    -text    => 'exit',
    -command => sub { print "exiting...\n"; exit }
);
$exit->pack;

MainLoop;