Radiobutton 和 Checkbutton 按钮

Radiobutton  选项按钮:

Choices 1 | 2 | 3

选项按钮是一个从多个选择中选择一个输入,

如果一个选项被选择后

-command=>COMMAND   设置当点击时呼叫的程序:

-variable => $value  当按钮被选择后指定一个值给$variable

value => VALUE  将按钮的结果给$value

这个时候项目受到了很大的改变,布局管理器全是grid

没有pack布局,当布局变的更加复杂的时候


#!/usr/bin/perl -w 
use Tk; 
my $mw = new MainWindow; 
$group1 = 100; 
## set default value 
foreach (qw/1 10 100 10000 100000 1000000/) { $mw->Radiobutton(-text => '$' . $_, -variable => $group1, -foreground => "blue", -background => "green", -value => $_)->pack(-side => 'left'); } 
MainLoop






复选按钮: Checkbutton  （可以选多个按钮)