交互小部件

`button`

这将生成一个按钮。其可以被配置为，在按下时执行一些代码。所执行的代码，通常是指一个函数，因此当按钮被按下时，函数就会运行。下面使用 HTML 展示了一个按钮。

部分选项

选项	选项描述
`-text "TEXT"`	`TEXT` 将是显示在该按钮上的文本。
`-command "CODE"`	`CODE` 将是在该按钮被按下时，所执行的代码。

示例：

proc push_button {} {
	... whatever ...
}

button .but -text "Push Me" -command "push_button"
pack .but

`radiobutton`

所谓单选按钮，是一种必须从多个选项中，任选一个的输入方式。在已选择了一个按钮，但又点击了另一个按钮时，则上一个选择的按钮将失去状态，被点击的按钮将被选中。下面是一个图形示例（HTML 形式）。

注：他们之所以被称为无线电按钮，是因为其外观和操作方式，与老式收音机上的按钮类似，如下图所示。

老式收音机

-- 摘自 <input type="radio">

部分选项

选项	说明
`-command COMMAND`	指定与该按钮相关联的一条 Tcl 命令。当鼠标按钮 1 在这个按钮视窗上释放时，该命令通常会被调用到。
`-variable VARIABLE`	指定出设置用以表示此按钮是否选中的全局变量名字。
`-value VALUE`	指定在该按钮被选中时，要存储到按钮相关变量中的值。

部分命令

语法	说明	示例
`path deselect`	取消选择复选按钮，并将相关变量设置为其 `off` 值。	`.rdb_m deselect`
`path select`	选择复选按钮，并将相关变量设置为其 `on` 值。	`.rdb_m select`

示例

#This function will be exected when the button is pushed
proc push_button {} {
    global age gender
    set name [.ent get]
    .txt insert end "$name\($gender\) is $age years old.\n"
}

#Global Variables
set age 10
set gender "Male"

#GUI building
frame .frm_name
label .lab -text "Name:"
entry .ent -width 48

#Age
scale .scl -label "Age :" -orient h -digit 1 -from 10 -to 50 \
    -variable age -tickinterval 5 -length 640

#Gender
frame .gender
label .lbl_gender -text "Sex "
radiobutton .gender.rdb_m -text "Male"   -variable gender -value "Male"
radiobutton .gender.rdb_f -text "Female" -variable gender -value "Female"
.gender.rdb_m select

button .but -text "Push Me" -command "push_button"

#Text Area
frame .textarea
text .txt -yscrollcommand ".srl_y set" -xscrollcommand ".srl_x set" \
    -width 48 -height 10
scrollbar .srl_y -command ".txt yview" -orient v
scrollbar .srl_x -command ".txt xview" -orient h

#Geometry Management
grid .frm_name -in . -row 1 -column 1 -columnspan 2
grid .lab -in .frm_name -row 1 -column 1
grid .ent -in .frm_name -row 1 -column 2

grid .scl -in . -row 2 -column 1 -columnspan 2

grid .gender -in . -row 3 -column 2
grid .lbl_gender -in .gender -row 1 -column 1
grid .gender.rdb_m -in .gender -row 1 -column 2
grid .gender.rdb_f -in .gender -row 1 -column 3

grid .but -in . -row 4 -column 1 -columnspan 2

grid .txt   -in .textarea -row 1 -column 1
grid .srl_y -in .textarea -row 1 -column 2 -sticky ns
grid .srl_x -in .textarea -row 2 -column 1 -sticky ew
grid .textarea -in . -row 5 -column 1 -columnspan 2

这次程序的变化更大 -- 几何管理器现在是完全网格化的。不再有 pack 的实例。当布局变得更加复杂时，咱们会发现这是必要的。希望咱们能在如此艰难的时刻，与我同行。

`checkbutton`

勾选按钮，是一个输入项，有两个选项 -- 关闭或打开 -- 必须任选其一。可以通过点击来改变状态。示例如下。

check box

部分选项

选项	说明
`-offvalue VALUE`	指定在按钮被取消选择时，存储到按钮相关变量中的值。默认值为 `0`。
`-onvalue VALUE`	指定在每次按钮被选择时，要存储到按钮相关变量中的值。默认为 `1`。
`-comman COMMAND`	指定与该按钮相关联的一条 Tcl 命令。当鼠标按钮 1 于按钮窗口上释放时，该命令通常会被调用。
`-variable VARIABLE`	指定设置用于表示该按钮是否被选中的全局变量名字。

部分命令

语法	说明	示例
`path deselect`	取消选择该勾选按钮，并将相关变量设置为 `off` 值。	`.chk deselect`
`path select`	选择该勾选按钮，并将相关变量设置为其 `on` 值。	`.chk select`
`path toggle`	切换该勾选按钮的选择状态，重新显示按钮，并修改其相关变量以反映新的状态。	`.chk toggle`

示例

#This function will be executed when the button is pushed
proc push_button {} {
    global age occupied gender
    set name [.ent get]
    .txt insert end "$name\($gender\) is $age years old and is "

    if { $occupied == 1 } {
        .txt insert end {occupied.}
    } else {
        .txt insert end {unemployed.}
    }

    .txt insert end "\n"
}

#Global Variables
set age 10
set occupied 1
set gender {Male}

#GUI building
frame .frm_name
label .lab -text {Name:}
entry .ent -width 48

#Age
scale .scl -label {Age :} -orient h -digit 1 -from 10 -to 50 \
    -variable age -tickinterval 10 -length 640
checkbutton .chk -text {Occupied} -variable occupied

#Gender
frame .gender
label .lbl_gender -text {Sex }
radiobutton .gender.rdb_m -text {Male}   -variable gender -value {Male}
radiobutton .gender.rdb_f -text {Female} -variable gender -value {Female}
.gender.rdb_m select

button .but -text {Push Me} -command "push_button"

#Text Area
frame .textarea
text .txt -yscrollcommand ".srl_y set" -xscrollcommand ".srl_x set" \
    -width 48 -height 10
scrollbar .srl_y -command ".txt yview" -orient v
scrollbar .srl_x -command ".txt xview" -orient h

#Geometry Management
grid .frm_name -in . -row 1 -column 1 -columnspan 2
grid .lab -in .frm_name -row 1 -column 1
grid .ent -in .frm_name -row 1 -column 2

grid .scl -in . -row 2 -column 1
grid .chk -in . -row 2 -column 2

grid .gender -in . -row 3 -column 2
grid .lbl_gender -in .gender -row 1 -column 1
grid .gender.rdb_m -in .gender -row 1 -column 2
grid .gender.rdb_f -in .gender -row 1 -column 3

grid .but -in . -row 4 -column 1 -columnspan 2

grid .txt   -in .textarea -row 1 -column 1
grid .srl_y -in .textarea -row 1 -column 2 -sticky ns
grid .srl_x -in .textarea -row 2 -column 1 -sticky ew
grid .textarea -in . -row 5 -column 1 -columnspan 2

`listbox`

列表框是一种显示字符串列表的小部件，每行一个字符串。首次创建时，新的列表框没有任何元素。可以使用下面讲到的小部件命令，添加或删除元素。

部分选项

选项	描述
`-listvariable VARIABLE`	指定变量名称。`VARIABLE` 的值是要该小部件中显示的列表；如果 `VARIABLE` 的值发生变化，该小部件将自动更新，以反映新值。
`-selectmode MODE`	指定操作选项的几种样式之一。`MODE` 可以是任意的，但默认的绑定，the default bindings，希望其为 `single`、`browse`、`multiple` 或 `extended`；默认值是 `browse`。

部分命令

语法	说明	示例
`path curselection`	返回一个列表，其中包含了列表框中所有当前选中元素的数字索引。如果列表框中没有选中元素，则返回空字符串。	`set sel [.lst curselection]`
`path delete first ?last?`	删除列表框中的一或多个元素。`first`（第一个）和 `last`（最后一个）属于索引，指定了要删除范围内的第一和最后一个元素。如果没有指定 `last`，则默认为 `first`，即删除一个元素。	`.lst delete 5`
`path get first ?last?`	如果省略 `last`，则返回 `first` 指向的列表框元素内容；如果 `first` 指向的元素不存在，则返回空字符串。如果指定了 `last`，命令将返回一个列表，其元素是 `first` 和 `last` 之间的所有列表框元素，包括首尾元素。	`.lst get 5 end`
`path index index`	返回与 `index` 对应的整数索引值。如果索引为 `end`，则返回值为列表框中，元素的个数（而不是最后一个元素的索引）。	`.lst index 5`
`path insert index ?element element ...?`	在列表中插入零或多个新元素，位于正好 `index` 所指定元素之前。如果 `index` 指定为 `end`，则新元素会被添加到列表的末尾。此命令返回空字符串。	`.lst insert end {Me}`
`path size`	返回一个十进制字符串，表示列表框中元素的总数。	`set count [.lst size]`
`path xview`	该命令用于查询及更改该小部件视窗中，信息的水平位置。另一个类似的命令是 `yview`。	`.lst xview`

示例

#This function will be exected when the button is pushed
proc push_button {} {
    global age occupied gender
    set name [.ent get]
    .txt insert end "$name\($gender\) is $age years old and is "

    if { $occupied == 1 } { ;#See whether he is employed
        set job_id [.lst curselection] ;#Get the No. of selected jobs
        if { $job_id=={} } { ;#If there is no job
            set job {a Non worker.}
        } else {
            set job [.lst get $job_id] ;#Get the name of the job
            .txt insert end "a $job."
        }
    } else {
        .txt insert end {unemployed.}
    }

    .txt insert end "\n"
}

#Jobs will be activated only if occupation is enabled
proc activate_jobs {} {
    global occupied
    if { $occupied == 1 } {
        .lst configure -state normal
    } else {
        .lst configure -state disable
    }
}

#Global Variables
set age 10
set occupied 1
set gender {Male}

#GUI building
frame .frm_name
label .lab -text {Name:}
entry .ent -width 48

#Age
scale .scl -label {Age :} -orient v -digit 1 -from 10 -to 50 \
    -variable age -tickinterval 5 -length 640

#Jobs
frame .frm_job

checkbutton .chk -text {Occupied} -variable occupied -command "activate_jobs"
.chk deselect

listbox .lst -selectmode single
#Adding jobs
.lst insert end {Student} {Teacher} {Clerk} {Business Man} \
    {Military Personal} {Computer Expert} {Others}
.lst configure -state disable ;#Disable jobs

#Gender
frame .gender
label .lbl_gender -text {Sex }
radiobutton .gender.rdb_m -text {Male}   -variable gender -value {Male}
radiobutton .gender.rdb_f -text {Female} -variable gender -value {Female}
.gender.rdb_m select

button .but -text {Push Me} -command "push_button"

#Text Area
frame .textarea
text .txt -yscrollcommand ".srl_y set" -xscrollcommand ".srl_x set" \
    -width 40 -height 10
scrollbar .srl_y -command ".txt yview" -orient v
scrollbar .srl_x -command ".txt xview" -orient h

#Geometry Management
grid .frm_name -in . -row 1 -column 1 -columnspan 2
grid .lab -in .frm_name -row 1 -column 1
grid .ent -in .frm_name -row 1 -column 2

grid .scl -in . -row 2 -column 1

grid .frm_job -in . -row 2 -column 2
grid .chk -in .frm_job -row 1 -column 1 -sticky w
grid .lst -in .frm_job -row 2 -column 1

grid .gender -in . -row 3 -column 1 -columnspan 2
grid .lbl_gender -in .gender -row 1 -column 1
grid .gender.rdb_m -in .gender -row 1 -column 2
grid .gender.rdb_f -in .gender -row 1 -column 3

grid .but -in . -row 4 -column 1 -columnspan 2

grid .txt   -in .textarea -row 1 -column 1
grid .srl_y -in .textarea -row 1 -column 2 -sticky ns
grid .srl_x -in .textarea -row 2 -column 1 -sticky ew
grid .textarea -in . -row 5 -column 1 -columnspan 2

哇！我们的“小”例子，现在成了一个大程序（而毫无意义）。从现在开始，我要停止“示例”了。

这很复杂，不是吗？咱们为什么不运行一下脚本，看看我们做了一个多么漂亮的脚本。复制上述脚本，并将其粘贴到一个名为 info.tcl 的文件中，然后双击该文件。瞧！咱们是 TCL/TK 程序员了。

有必要解释一下。在 Occupied 激活状态处于关闭时，工作这个列表框，将处于停用状态。而在 Occupied 勾选框被勾选时，这个列表框就将被激活。按下 Push Me 按钮后，将调用 push_button 函数，收集所有输入字段的详细信息，并将汇总写入那个 .txt 字段。

注意到有些注释以 # 开头，而有些则以 ;# 开头吗？在新行中开始注释时，使用 #，而若把注释放在行尾，则要使用 ;#。; 字符表示命令已结束，否则编译器会认为，注释是程序的一部分。这是 Tcl 程序员最常犯的错误之一。

`menubutton`

菜单按钮，是一个显示文本字符串、位图或图像的部件，并与某个菜单小部件相关联。在一般使用中，左键单击菜单按钮，会使相关菜单显示在该菜单按钮的下方。

部分选项

选项	说明
`-direction DIRECTION`	指定其关联菜单，要弹出的位置。`above` 会尝试将菜单，弹出到菜单按钮上方；`below` 则会尝试将菜单，弹出到菜单按钮下方；`left` 会尝试将菜单，弹出到菜单按钮左侧；`right` 会尝试将菜单，弹出到菜单按钮右侧；`flush` 会将菜单，直接弹出到菜单按钮上方。
`-menu NAME`	指定与该菜单按钮关联的菜单路径名，the path name of the menu associated with this menubutton。这个菜单必须是该菜单按钮的子菜单。

菜单是一种用于显示，按一列或多列排列的单行条目集合的小部件。有几种不同类型的条目，每种条目都有不同属性。不同类型的条目，可以组合在一个菜单中。菜单条目与输入 entry 部件不同。事实上，菜单条目甚至并非独特部件，menu entries are not even distinct widgets；整个菜单就是一个小部件。

部分选项

选项	说明
`-tearoff BOOLEAN`	此选项必须有一个恰当的布尔值，指定菜单是否应在顶部，包含一个撕离条目，a tear-off entry。如果是，该条目就将作为菜单的第 `0` 个条目存在，而其他条目将从第 `1` 条目开始编号。默认的菜单绑定，会在调用这个撕离条目时，将菜单展开。
`-title STRING`	在展开该菜单时，这个字符串将用于所创建出的视窗标题。如果标题为空，则那个视窗，将使用菜单按钮的标题，或调用该菜单的级联项的文本。
`-type OPTION`	该选项可以是 `menubar`、`tearoff` 或 `normal` 之一，并在菜单被创建时得以设置。如果此选项被修改，那么配置数据库返回的字符串也会改变，但这不会影响菜单小部件的行为。

部分命令

语法	说明
`path add type ?option value option value ...?`	在菜单底部，添加一个新条目。新条目的类型，由 `type` 指定，必须是 `cascade`、`checkbutton`、`command`、`radiobutton` 或 `separator` 中的一种，或者是上述几种之一的唯一缩写。如果有附加参数，则指定以下任一选项： `-accelerator VALUE` 指定在该菜单项右侧，要显示的字符串。通常是描述一个加速按键序列，输入该序列便可调用与菜单项相同的功能。该选项不适用于分隔符，或展开条目。 `-columnbreak VALUE` 当该选项为 `0` 时，菜单项会出现在上一个菜单条目下方。而当该选项为 `1` 时，该菜单项则会显示在菜单中，新列的顶部。 `-label VALUE` 指定在菜单条目中，作为标识标签显示的字符串。此选项不适用于分隔符或展开条目。 `-compound VALUE` 指定该菜单条目，是否要同时显示图像及文本，在同时显示时，指定图像相对于文本的位置。该选项的有效值为 `botton`、`center`、`left`、`none`、`right` 和 `top`。 `-image VALUE` 指定菜单中要显示的图片，而不是文本字符串或位图。所要显示的图片，必须是早先调用 `image create` 命令已创建好的。该选项会覆盖 `-label` 与 `-bitmap` 选项，但可以重置为空字符串，以便显示文本或位图的标签。该选项不适用于分隔符或展开条目。 `-underline VALUE` 指定要在菜单条目中，加上下划线字符的整数索引。该选项用于键盘快捷键。`0` 代表条目中所显示文本的第一个字符，`1` 代表下一个字符，依此类推。
`path clone newPathName`	构造出一个名为 `newPathName` 的当前菜单克隆。该克隆菜单，本身就是一个菜单，但对克隆菜单的任何更改，都会传播到原始菜单，反之亦然。
`path delete index1 ?index2?`	删除 `index1` 和 `index2`（含）之间的所有菜单条目。如果 `index2` 被省略，则默认为 `index1`。删除展开菜单条目的尝试，将被忽略（相反，咱们应修改 `tearOff` 选项，来删除展开条目）。

示例

proc menu_clicked { no opt } {
    tk_messageBox -message \
        "You have clicked $opt.\nThis function is not implanted yet."
}

#Declare that there is a menu
menu .mbar
. config -menu .mbar

#The Main Buttons
.mbar add cascade -label {File} -underline 0 \
    -menu [menu .mbar.file -tearoff 0]

.mbar add cascade -label {Others} \
    -underline 0 -menu [menu .mbar.oth -tearoff 1]

.mbar add cascade -label {Help} -underline 0 \
    -menu [menu .mbar.help -tearoff 0]

## File Menu ##
set m .mbar.file
$m add command -label {New} -underline 0 \
    -command { .txt delete 1.0 end } ;# A new item called New is added.
$m add checkbutton -label {Open} -underline 0 -command { menu_clicked 1 {Open} }
$m add command -label {Save} -underline 0 -command { menu_clicked 1 {Save} }
$m add separator
$m add command -label {Exit} -underline 1 -command exit

## Others Menu ##
set m .mbar.oth
$m add cascade -label {Insert} -underline 0 -menu [menu $m.mnu -title {Insert}]
$m.mnu add command -label {Name} \
    -command { .txt insert end "Name : Binny V A\n"}
$m.mnu add command -label {Website} -command { \
    .txt insert end "Website: http://www.bin-co.com/\n"}
$m.mnu add command -label {Email} \
    -command { .txt insert end "E-Mail : binnyva@hotmail.com\n"}
$m add command -label {Insert All} -underline 7 \
    -command {
        .txt insert end {
            Name : Binny V A
            Website : http://www.bin-co.com/
            E-Mail : binnyva@hotmail.com
        }
    }

## Help ##
set m .mbar.help
$m add command -label {About} -command {
    .txt delete 1.0 end
    .txt insert end {
        About
        ----------
        This script created to make a menu for a tcl/tk tutorial.
        Made by Binny V A
        Website : http://www.bin-co.com/
        E-Mail : binnyva@hotmail.com
    }
}

#Making a text area
text .txt -width 50
pack .txt

将主按钮创建为级联菜单，并将这些菜单，创建为他们的从属菜单。更多信息请参阅手册。

`tk_optionMenu`

构造出一个按钮，其在被点击后，会显示一个包含可用选项的列表。当用户需要在多个选项中，做出一个选择时，非常有用。下面是 HTML 格式的选项菜单。需要注意的是，Tcl/Tk 的选项菜单外观，与此截然不同。

语法

tk_optionMenu path varName value ?value value ...?

示例......

set opt {Two}

tk_optionMenu .omn opt {One} {Two} {Three} {Four} {Five} {etc.}
pack .omn

又一本 Tcl/Tk 教程

交互小部件

`button`

`radiobutton`

`checkbutton`

`listbox`

`menubutton`

`menu`

`tk_optionMenu`