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

$mw->Label(-text => 'Hello World')->pack();

　　该代码行在主窗口中创建一个“Close”按钮。当通过鼠标点击激活或用键盘执行它后，此按钮将退出 Perl 脚本：

$mw->Button(-text => "Close", -command =>sub{exit})->pack();

　　而且，由于此按钮占用主窗口的空间，所以需要使用pack函数来计算所占用的空间。

　　在执行MainLoop之前，可以读取、定义和随时执行该脚本中的所有内容。然后，当调用MainLoop时，将执行在此之前读取的所有函数和数据，并显示 GUI。

MainLoop;

　　小部件

　　本部分将介绍一些小部件。本部分将介绍几个基本小部件，并提供有关每个小部件的示例，其中包括框架、文本、入口、按钮和标签。

　　什么是小部件？

　　小部件 是一种可以执行特定功能的图形对象。Perl/Tk 模块中的任何图形对象都可以视为一个小部件。对于 GUI 应用程序而言，按钮、文本、框架和滚动栏都是小部件。

　　下面的小部件示例构成了本文稍后将要讨论的小部件的基础。

　　框架

　　框架小部件正如其名称所描述的那样：是一个框架或盒子。框架用来对其他小部件进行分组。

　　请输入下面的脚本：

#!/usr/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new;
$mw->geometry("200x100");
$mw->title("Frame Test");
$mw->Frame(-background => 'red')->pack(-ipadx => 50, -side => "left", -fill => "y");
$mw->Frame(-background => 'blue')->pack(-ipadx => 50, -side => "right", -fill => "y");
MainLoop;