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

　　执行该脚本并在窗口中键入该脚本将生成 GUI 应用程序，如图 3 所示。

　　图 3. 文本小部件示例

　　在此示例中，文本小部件是使用主窗口作为父窗口创建的：

$mw->Text(-background => 'cyan', -foreground => 'white')->pack(-side => "top");

　　不是仅更改背景颜色，前景字体颜色也会更改。与以往一样，pack方法用来分配空间和显示小部件。

　　入口

　　入口小部件类似于文本小部件，可以在此部件中编辑或输入文本。文本小部件可让您输入多行文本，入口小部件只能输入一行文本。

　　请输入下面的脚本：

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

　　执行该脚本并在窗口中键入该脚本将生成 GUI 应用程序，如图 4 所示。

　　图 4. 入口小部件示例

　　文本小部件和入口小部件的唯一差别在于小部件的名称：

$mw->Entry(-background => 'black', -foreground => 'white')->pack(-side => "top");