Tcl/Tk 中的对话框

原文： http://zetcode.com/gui/tcltktutorial/dialogs/

在 Tcl/Tk 教程的这一部分中，我们将使用对话框。

对话框窗口或对话框是大多数现代 GUI 应用必不可少的部分。 对话被定义为两个或更多人之间的对话。 在计算机应用中，对话框是一个窗口，用于与应用“对话”。 对话框用于输入数据，修改数据，更改应用设置等。对话框是用户与计算机程序之间进行通信的重要手段。

MessageDialog

消息框是方便的对话框，可向应用的用户提供消息。 该消息由文本和图像数据组成。 用tk_messageBox命令创建 Tk 中的消息框。

#!/usr/bin/wish
# ZetCode Tcl/Tk tutorial
#
# In this program, we show various
# message boxes.
#
# author: Jan Bodnar
# last modified: March 2011
# website: www.zetcode.com
frame .fr
pack .fr 
ttk::button .fr.erButton -text Error -command onError
grid .fr.erButton 
ttk::button .fr.wButton -text Warning -command onWarn
grid .fr.wButton -row 1 -column 0 
ttk::button .fr.queButton -text Question -command onQuest
grid .fr.queButton -row 0 -column 1 -sticky we -columnspan 6
ttk::button .fr.infButton -text Information -command onInfo
grid .fr.infButton -row 1 -column 1
proc onError {} {
    tk_messageBox -type ok -icon error -title Error \
    -message "Could not open file"
}
proc onWarn {} {
    tk_messageBox -type ok -icon warning -title Warning \
    -message "Deprecated function call"
}
proc onQuest {} {
    tk_messageBox -type ok -icon question -title Question \
    -message "Are you sure to quit?"
}
proc onInfo {} {
    tk_messageBox -type ok -icon info -title Information \
    -message "Download completed"
}
wm title . "message boxes" 
wm geometry . 300x150+300+300

我们使用网格管理器来设置四个按钮的网格。 每个按钮显示一个不同的消息框。

ttk::button .fr.erButton -text Error -command onError
grid .fr.erButton

我们创建一个错误按钮，它调用onError过程。 在方法内部，我们显示错误消息对话框。 该按钮将放置在网格的第一个单元格中。 ttk名称空间内的小部件为主题。 就功能而言，button和ttk::button是相同的按钮。 不同之处在于我们可以将主题应用于后者。

proc onError {} {
    tk_messageBox -type ok -icon error -title Error \
    -message "Could not open file"
}

如果按下错误按钮，则会显示错误对话框。 我们使用tk_messageBox命令创建消息框。 -type选项指定对话框中显示哪些按钮。 在我们的情况下，这是一个确定按钮。 -icon指定要显示的图标的类型。 -title提供对话框的标题，-message提供消息。

图：警告消息对话框

颜色选择器

颜色选择器是用于选择颜色的对话框。 我们使用tk_chooseColor命令显示对话框。

#!/usr/bin/wish
# ZetCode Tcl/Tk tutorial
#
# In this script, we use tk_chooseColor
# dialog to change the colour of the text.
#
# author: Jan Bodnar
# last modified: March 2011
# website: www.zetcode.com
label .l -text ZetCode
place .l -x 20 -y 90
button .b -text "Choose a color..." \
        -command "onSelect .l" 
place .b -x 20 -y 30
wm title . "color dialog" 
wm geometry . 350x200+300+300
proc onSelect {widget} {
    set col \
        [tk_chooseColor -title "Choose a color" -parent .]
    $widget configure -foreground $col
}

我们有一个按钮和一个标签。 单击按钮，我们显示一个颜色选择器对话框。 我们将通过从对话框中选择一种颜色来更改标签文本的颜色。

label .l -text ZetCode
place .l -x 20 -y 90

我们创建一个label小部件并将其放在窗口中。

button .b -text "Choose a color..." \
        -command "onSelect .l" 
place .b -x 20 -y 30

我们创建一个button小部件并将其放在窗口中。 我们将标签的窗口小部件路径传递给onSelect过程，该过程显示对话框并更改标签的颜色。

proc onSelect {widget} {
    set col \
        [tk_chooseColor -title "Choose a color" -parent .]
    $widget configure -foreground $col
}

在onSelect程序内部，我们显示对话框并更改标签颜色。 首先，我们显示对话框并将所选的颜色值存储在col变量中。 稍后，我们使用configure命令更改标签的前景。 该命令在小部件的路径名上执行。 标签的路径名已传递给过程。

图：颜色选择器

文件对话框

tk_getOpenFile对话框允许用户从文件系统中选择文件。

#!/usr/bin/wish
# ZetCode Tcl/Tk tutorial
#
# In this program, we use the
# tk_getOpenFile dialog to select a file from
# a filesystem.
#
# author: Jan Bodnar
# last modified: March 2011
# website: www.zetcode.com
set types {
    {"All Source Files"     {.tcl .tk } }
    {"Image Files"          {.gif .png .jpg} }
    {"All files"            *}
}
proc onSelect { label } {
    global types   
    set file [tk_getOpenFile -filetypes $types -parent .]
    $label configure -text $file
}
label .l -text "..."
place .l -x 20 -y 90
button .b -text "Select a file" \
        -command "onSelect .l"
place .b -x 20 -y 30
wm title . "openfile" 
wm geometry . 350x200+300+300

在我们的代码示例中，我们使用tk_getOpenFile对话框选择一个文件，并在label小部件中显示其名称。

set types {
    {"All Source Files"     {.tcl .tk } }
    {"Image Files"          {.gif .png .jpg} }
    {"All files"            *}
}

这些是文件过滤器。 这些过滤器可用于仅显示对话框中的特定文件。

proc onSelect { label } {
    global types   
    set file [tk_getOpenFile -filetypes $types -parent .]
    $label configure -text $file
}

我们使用tk_getOpenFile命令显示对话框。 我们使用-filetypes选项应用文件过滤器。 所选文件名存储在file变量中。 configure命令用于更改标签的文本。

图：tk_getOpenFile

在 Tcl/Tk 教程的这一部分中，我们使用了对话框窗口。