Perl/Tk 練習(xí)程序1

戻る
#!/usr/bin/perl -w use Tk; use strict; my $mw = MainWindow->new; $mw->Label(-text => 'Hello, world!')->pack; $mw->Button( -text => 'Quit', -command => sub { exit }, )->pack; MainLoop;
戻る
大城县| 金门县| 旺苍县| 平江县| 延边| 宣武区| 克东县| 岳阳县| 景谷| 厦门市| 社旗县| 武冈市| 郎溪县| 葫芦岛市| 普兰店市| 陇西县| 商水县| 张北县| 丰宁| 靖远县| 泊头市| 象州县| 共和县| 伊川县| 普定县| 新营市| 双柏县| 喀喇| 临漳县| 曲松县| 富顺县| 古交市| 平谷区| 高台县| 五峰| 米脂县| 桃园市| 连云港市| 宜阳县| 南汇区| 阿拉善盟|