tk资料

Hello World：





让我们开始,作为其他教程的开始, 以"Hello World"程序创建一个文件 叫做Hello.pl 





键入下面的内容到它这里:





#!/usr/local/bin/perl

use Tk;

# Main Window

my $mw = new MainWindow;

my $label = $mw -> Label(-text=>"Hello World") -> pack();

my $button = $mw -> Button(-text => "Quit",

-command => sub { exit })

-> pack();

MainLoop;





第2行 use TK, 告诉解释器 我们的程序使用Tk模块  这行是必须的 在所有的GUI 程序里





当解释器遇到这行时,它会加载tk组件 来创建项目。





第三行  这是一行注释  任何行以#开始的是一个注释是不被程序使用的 





这是用于程序员来交流的 一个程序员不能被期望记住一个脚本的任何东西





因此使用一个注释来写下 在下次它需要编辑的时候,他可以读注释和了解程序





第四行,my $mw = new MainWindow; 会创建一个windows 窗体 GUI元素会被放置 





变量$mv 是MainWindow类型的一个对象 , 我们需要这个元素当我们需要放置任何部件的时候









第五行 $mw -> Label(-text=>"Hello World") -> pack();





标记为标签和写"Hello world" ,你可以改变文本到任何你想要标注的命令结构





$label 这个变量分配到特定的部件 部件必须有一个唯一的变量 





这个名字可以用于当部件被访问





$mv->  $mv 是一个MainWindow 的部件 我们需要放置我们的label部件在这个窗体内





Label(-text=>"Hello World") ’Label' 是部件的名字,一个部件是一个用户接口对象在图形用户接口





我们只是说 这是对象的名字 ,出现在屏幕上  这里有很多其他的部件 如果你想要显示一个按钮,





你使用button 部件  对于text 你使用text 部件





­text=>"Hello World" 这个选项对于部件 这个选项 says  这个部件必须给定一个文件 "Hello

World" 选项 根据部件 一个按钮部件 没有必要有所有的label部件选项 





请注意 操作符用于这里是 '=>' 相对于之前使用-> 在 $mw ->





一个使用减号 当另外一个使用=号 ,不要混淆这个两个。





你可以保持写其他的选项也可以写在这里 比如,让我们做一个label 用于显示文本

”Hello World"  





$mw -> Label(-text=>"Hello World",-font=>"courierfont",-relief=>"raised") ->

pack();









在这个例子, 更多的选项被使用 前面的选项是用于哪个front 必须被使用让文本和





告诉是否应该出现raised，sunken,flat etc 对于一个特定的部件,





阅读手册 Perl让每个部件和每个选项









所有的选项必须单独的通过逗号分隔,这行是有一点难阅读的 随着选项的增加





$mw -> Label(-text=>"Hello World",

-font=>"courierfont",

-relief=>"raised")

-> pack();





下一个是-> pack();  这个会Pack 部件  '$label'  到windows '$mv' 'pack'是一个布局管理器





另外一个布局管理器是grid ,我更喜欢grid布局, 把所有的都放在一行是很难受的 









你可以放在另起一行:





my $label = $mw -> Label(-text=>"Hello World")

-> pack();





在这个例子中,pack 没有选项









my $label = $mw -> Label(-text=>"Hello World")

-> pack(-side=>"left",

-anchor=>'w')





你不需要把pack部件放在相同的行, 但是在小的程序是方便的。





my $label = $mw -> Label(-text=>"Hello World"); #We created the widget

$label -> pack(-side=>"left", -anchor=>'w'); #We pack it in another line





会创建和显示 一个按钮  部件变量是 '$button'  当我们查看这个选项,





我们会发现2个选项 'text' 和'command' 





给定的文本是Quit





因此按钮会有text "Quit" ,命令选项 决定 会发生什么 当用户点击按钮





你可以指定一个函数来执行当用户点击按钮,在这种情况下 程序会退出 当这个按钮被执行





#!/usr/local/bin/perl

use Tk;

# Main Window

my $mw = new MainWindow;

my $label = $mw -> Label(-text=>"Hello World") -> pack();

my $button = $mw -> Button(-text => "Quit",

-command =>\&exitProgam)

-> pack();

MainLoop;

sub exitProgam {

$mw->messageBox(-message=>"Goodbye");

exit;

}





接下来的行 MainLoop 是Main Loop 或者事件循环 让job 来借助回调来响应事件。









比如按钮按下 或者定时器到期 如果 这行丢失, 程序会运行和退出不等待用户做任何事情





Widgets 1 : Button, Entry, Label   部件 1：按钮,输入框,标签





一个部件是一个用户接口对象在X图形用户接口, 让我们只是说对象的名字出现在屏幕





这里有很多类型部件,你需要显示在一个按钮,你使用按钮部件 





对于文本, 你使用文本部件 用于输入









my $WidgetVariable = $Window ­> WidgetType(?Option 1=>Value 1, ?Option 2=>Value 2 ??) ­> pack();





三件事情需要说明关于部件





第一是部件变量 这个我已经在之前解释过了 





所有部件的部件变量必须唯一,会用于当部件需要2次访问的时候





每个部件有一些选项 可以 用来配置它





这个通常在部件被定义时候处理,但是它也能在后面处理 









最后的事情是每个部件有一些命令, 也用来配置或者做一些事情。





但是在我们开始前,我们需要知道一点关于pack命令我已经之前解释了





但是多做几次你不需要push back 按钮Pack 是一个布局管理器另外一个部件管理器是grid





我们后面会介绍 Pack相比grid是更加简单的 





 $hello ­> pack,告诉 解释器来pack部件叫做$hello ­





按钮:





这会让一个按钮配置执行一些代码, 当button 被按后 这个会指向一个函数





因此当按钮被按后,函数会运行一个按钮显示如下 按钮时创建使用HTML 输入tag





Some Options

­text=>"TEXT" TEXT will be the text displayed on the button

­command=>CALLBACK CALLBACK will be the code that is called when the button is pushed





#!/usr/local/bin/perl

use Tk;

# Main Window

my $mw = new MainWindow;

my $but = $mw -> Button(-text => "Push Me",

-command =>\&push_button);

$but -> pack();

MainLoop;

#This is executed when the button is pressed

sub push_button {

print "xxxxxxxxxx\n";

}





点击一个 'Push Me'按钮,就会输出一次。





你可能注意到 我使用了\ 在命令回调函数 (-command =>\&push_button);)





Entry  输入框





一个entry 是一个部件显示一个一行文本串允许用户输入和编辑文本





当一个entry 已经输入,插入的游标表明 新的字符可以被插入到一个空的元素 





一些选项:

­width=>NUMBER         输入框的宽度 应该是一个整数





­textvariable=>\$VARIABLE   变量的内容会显示在部件里,如果text 在部件里被编辑,





变量会被自动编辑





­state=>STATE   输入域的状态可以是 normal, disabled, or readonly 如果它是只读的,text不能被编辑





一些命令:

语法                        描述                                 例子

$widget ­> get();          文本在输入框可以被拿到通过这个命令    $name = $ent ­> get();





$widget ­> delete(FIRST?,LAST?);





 删除一个或者多个entry的元素  FIRST 是第一个字符index 来删除

 

 LAST 是在最后一个字符index 来删除 

 

 #!/usr/local/bin/perl

use Tk;

# Main Window

my $mw = new MainWindow;

#GUI Building Area

my $ent = $mw -> Entry() -> pack();

my $but = $mw -> Button(-text => "Push Me",

-command =>\&push_button);

$but -> pack();

MainLoop;

#This is executed when the button is pressed

sub push_button {

$ent -> insert('end',"Hello");

}





在尾部插入 Hello 





Label  标签:





这个部件显示文本信息:





一些选项:





­text => "TEXT"       TEXT will be the text displayed on the button





                      TEXT 将会是text显示在按钮上

 

 

­font => FONT





指定字体 来使用 当绘制文本在部件内,你可以指定font 或者事件循环

你可以指定它格式  "FONTNAME SIZE STYLE" 





Widgets 2 : Frame, Text, Scrollbar, Scale   窗体,文本,滚动表, 刻度尺





Frame 窗体:





一个框架是一个简单的部件它的主要目的是作为一个间隔装置 或者 容器 





对于复杂的windows 布局   frame唯一的功能是它的背景颜色和一个可选的3-D





边界 来让frame 出现 raised or sunken





Frame 可以被创建像任何其他的部件一样:

#!/usr/local/bin/perl

use Tk;

my $mw = new MainWindow; # Main Window

my $frm = $mw -> Frame();

MainLoop;





为了放置其他的部件在窗体里,你应该使用frame 部件变量作为它的parent









通常 parent 是'$mw' 或者 MainWindow





但是我们希望放置一个部件在窗体内, 使用frame 变量 ('$frm' in this case) in

place of '$mw' Like this





my $lab = $frm_name -> Label(-text=>"Name:") -> pack();









Text

一个文本部件显示一行或者多行文本,允许文本被编辑类似于entry部件 





$widget ­> get(index1, ?index2 ?);













返回一个字符串从文本, 返回的值会是所有的字符串在text里 从index=index1开始和index=index2结束





(字符集在index2不会被返回)





如果index2 被省略 那么单个字符在Index1 被返回。





注意text的index 不同于 entry部件  









Scrollbar  滚动条





一个滚动条部件是一个部件显示2个箭头, 在滚动条两端,在中间的部分是一个滑动块





它提供的信息是关于 可见的在一个相关的框框  显示一些排序的内容









­ipadx => AMOUNT





指定水平内部填充 留下在slaves两边的数量,这个空间是被增加到slave的边境













­ipady => AMOUNT  指定垂直的内部填充留给slave两端的 









­padx => AMOUNT  指定水平外部填充留给slave两边的数量,









在屏幕单元 AMOUNT 可能是两个值的列表来指定填充单独额left或者right





­pady => AMOUNT  指定崔志外部填充留给slave顶和底部的数量





­row => N  插入slave 让它占据第N行 在grid 行号从0开始 









如果这个选项没有指定, slave会被安排在相同的行和先前的slave 被指定在这个请求给grid









­column => N





插入到 slave让它占据N列在grid选项 和-row类型





­rowspan => N





插入slave 让它占据N行 在grid里 默认是一行









­columnspan => N





插入slave 让它占据N列 在grid里





使用grid 需要一些经验,但是你知道HTML 它会帮助你很多 





行和列就像HTML的表格,尽管代码不同













Scale 刻度尺:









Dialogs： 对话框





对话框可以被称为元素在一个程序里,分离它本身从main windows 





这是一个非常一般的定义和有很多问题但是此刻,它将为Tk提供很多的对话框:





messageBox： 消息框





这个程序创建和显示一个应用指定的消息窗口,一个按钮和一组按钮 每个按钮在消息框是用一个唯一的





象征性符号表示(查看 类型选项)





在消息窗口出现后,messageBox 等待用户来选择一个





 

 一些选项:

 

 ­default=>name         

 

 

 默认按钮的符号名字对于这个消息框框(ok', 'cancel',and so on)