Perl 一个简单的 GUI 程序，有退出按钮

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

#!/usr/bin/perl -w

use Tk;

$Tk::strictMotif = 1;

$main = MainWindow->new();

$button1 = $main->Button(-text => "Exit",-command => &;exit_button,-foreground => "orangered" );

$button1->pack();
$button1->configure(-background => "white" );
$button2 = $main->Button(-text => "Push Me",-command => &;change_color,-foreground => "black",-background => "steelblue");

$button2->pack();

MainLoop();

sub exit_button {
    print "You pushed the button!n";
    exit;
}

sub change_color {
    $button1->configure(-background => "red",-foreground => "white");
    $button2->configure(-background => "maroon",-foreground => "white",-font       => "-*-times-bold-r-normal-20-140-*");
}

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!