了解 Perl/Tk 模块--Perl/Tk 基础知识

　　执行此脚本时，会生成一个 GUI 应用程序，如图 2 所示。

　　图 2. 框架小部件示例

　　下面我们分析一下该脚本：

#!/usr/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new;
$mw->geometry("200x100");
$mw->title("Frame Test");
…
…
MainLoop;

　　本部分在前面的示例中已讨论过，因此，现在我们看一个新语句。

　　创建一个使用主窗口作为父窗口的框架，并将背景颜色设置为红色。与前面的pack方法示例不同，这里包括了几个选项：

$mw->Frame(-background => 'red')->pack(-ipadx => 50, -side => "left", -fill => "y");

　　第一个参数ipadx将框架的宽度增加了 100 (50 x 2)。第二个参数side将该框架的几何位置调整到了其父框架 ($mw) 的左侧。第三个参数按照y轴方向（垂直）在该框架内分配空间。

　　此框架类似于前面的框架，但背景是蓝色的，位置在主窗口的右侧：

$mw->Frame(-background => 'blue')->pack(-ipadx => 50, -side => "right", -fill => "y");

　　文本

　　文本小部件创建一个可编辑的文本工作区。请输入下面的脚本：

#!/usr/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new;
$mw->geometry("200x100");
$mw->title("Text Test");
$mw->Text(-background => 'cyan', -foreground => 'white')->pack(-side => "top");
MainLoop;