Perl/Tk 練習(xí)程序1
戻る
<![CDATA[
#!/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;
]]>
戻る
海丰县|
三河市|
临西县|
迭部县|
隆回县|
吉林省|
增城市|
万年县|
铁岭市|
顺平县|
宾阳县|
灌云县|
密云县|
从化市|
秀山|
宁津县|
历史|
图们市|
元谋县|
长沙县|
卢氏县|
大竹县|
清徐县|
桐城市|
玉溪市|
繁峙县|
永定县|
井研县|
峨边|
抚顺市|
福建省|
商水县|
辰溪县|
嘉黎县|
吴堡县|
张掖市|
延边|
陵川县|
读书|
五家渠市|
句容市|