一个部件在图形用户接口的一个对象,或者说是出现在屏幕上的对象的名字。
如果你要显示一个按钮.这里有很多类型的部件。
使用文本按钮,或者entry 按钮
部件的变量必须唯一
按钮:
按钮可以配置去执行一些代码,当按下按钮后
按钮通常会指向一个函数,当按下按钮时,就运行函数。
text=>"TEXT" :TEXT will be the text displayed on the button
文本按钮:
按钮上注明了文本内容
use Tk;
# Main Window
my $mw = new MainWindow;
my $but = $mw -> Button(-text => "Push Me",
-command =>&push_button);
$but -> pack();
MainLoop;
Entry 单行文本:
Entry 是用于显示one-line文本窜的部件,用户输入和编辑文本在Entry里,就是个文本输入框。
Label 标签用户显示文本信息:
#!/usr/local/bin/perl
use Tk;
my $mw = new MainWindow; # Main Window
my $lab = $mw -> Label(-text=>"Enter name:") -> pack();
$lab -> pack();
MainLoop;