perl 的图形有两种玩法, Tk 和 Tkx. Tk 是纯 Perl 的, 但能用的 widget (即那些 button, menu, scrollbar... )比较少; Tkx 则需要你先装有 Tcl/Tk , 但能用的 widget 比较多. 一个最简单的例子就是use Tk; # 导入 tk 模组use strict;
my $mw = MainWindow->new; # 创建窗口
my $labelObj = $mw->Label(-text => 'Hello, world!'); # 创建一个 label 物件
$labelObj ->pack; # pack() 是将物件程现的方法...
|