Perl Tk grid布局管理器<1>

<pre name="code" class="sql">#!/usr/local/bin/perl
use Tk;
#Global Variables
my $age = 10;
# Main Window
my $mw = new MainWindow;
#GUI Building Area
my $frm_name = $mw -> Frame();
my $lab = $frm_name -> Label(-text=>"Name:");
my $ent = $frm_name -> Entry();  ###定义输入文本框


#Age
my $scl = $mw -> Scale(-label=>"Age :",  # Scale 通过用户输入的变量调整滚动条

-orient=>'v', -digit=>5,                 #-orient=>'v' 滚动条垂直布局  digit数字位数

-from=>10, -to=>50,                      #开始数字和结束数字

-variable=>\$age, -tickinterval=>10);    #-variable=>\$age传入变量引用,-tickinterval=>10 

刻度间隔20

my $but = $mw -> Button(-text=>"Push Me", -command =>\&push_button); ## 执行函数

push_button

#Text Area
my $textarea = $mw -> Frame();
my $txt = $textarea -> Text(-width=>50, -he