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

在 Tcl/Tk 教程的这一部分中，我们将使用菜单和工具栏。

菜单栏是 GUI 应用中最可见的部分之一。 它是位于各个菜单中的一组命令。 在控制台应用中，我们必须记住许多奥术命令，在这里，我们将大多数命令分组为逻辑部分。 有公认的标准可以进一步减少学习新应用的时间。 菜单将我们可以在应用中使用的命令分组。 使用工具栏可以快速访问最常用的命令。

简单菜单

第一个示例将显示一个简单的菜单。

  1. #!/usr/bin/wish
  3. # ZetCode Tcl/Tk tutorial
  4. #
  5. # In this code example, we create 
  6. # a simple menu.
  7. #
  8. # author: Jan Bodnar
  9. # last modified: March 2011
  10. # website: www.zetcode.com
  12. menu .mbar
  13. . configure -menu .mbar
  15. menu .mbar.fl -tearoff 0
  16. .mbar add cascade -menu .mbar.fl -label File \
  17.     -underline 0
  19. .mbar.fl add command -label Exit -command { exit }
  21. wm title . "Simple menu" 
  22. wm geometry . 250x150+300+300

我们的示例将显示一个文件菜单，其中包含一项。 通过选择退出菜单项，我们关闭应用。

  1. menu .mbar
  2. . configure -menu .mbar

我们创建一个菜单栏。 菜单栏是菜单的特例。

  1. menu .mbar.fl -tearoff 0

创建文件菜单。 -tearoff选项指定无法从菜单栏中删除菜单。

  1. .mbar add cascade -menu .mbar.fl -label File \
  2.     -underline 0

我们将文件菜单添加到菜单栏。 -underline选项在标签的第一个字符下划线。 现在可以使用 Alt + F 快捷方式下拉菜单。

  1. .mbar.fl add command -label Exit -command { exit }

Exit命令被添加到文件菜单。 这将创建一个菜单项。 选择菜单项后，应用终止。

Tcl/Tk 中的菜单和工具栏 - 图1

图：简单菜单

子菜单

子菜单是插入另一个菜单对象的菜单。 下一个示例对此进行了演示。

  1. #!/usr/bin/wish
  3. # ZetCode Tcl/Tk tutorial
  4. #
  5. # In this code example, we create 
  6. # a submenu.
  7. #
  8. # author: Jan Bodnar
  9. # last modified: March 2011
  10. # website: www.zetcode.com
  12. menu .mbar
  13. . configure -menu .mbar
  15. menu .mbar.fm -tearoff 0
  16. .mbar add cascade -menu .mbar.fm -label File \
  17.     -underline 0
  19. menu .mbar.fm.sb   
  20. .mbar.fm.sb add command -label "News feed"
  21. .mbar.fm.sb add command -label Bookmarks
  22. .mbar.fm.sb add command -label Mail
  24. .mbar.fm add cascade -label Import -menu \
  25.     .mbar.fm.sb -underline 0
  26. .mbar.fm add separator
  28. .mbar.fm add command -label Exit -underline 0 \
  29.     -command {exit}     
  31. wm title . submenu 
  32. wm geometry . 250x150+300+300

在示例中，文件菜单的子菜单中有三个选项。 我们创建一个分隔符和键盘快捷键。

  1. menu .mbar.fm.sb   
  2. .mbar.fm.sb add command -label "News feed"
  3. .mbar.fm.sb add command -label Bookmarks
  4. .mbar.fm.sb add command -label Mail

我们有一个包含三个命令的子菜单。 子菜单是常规菜单。 注意小部件路径名的层次结构。

  1. .mbar.fm add cascade -label Import -menu \
  2.     .mbar.fm.sb -underline 0

通过将菜单添加到“文件”菜单而不是菜单栏，我们创建了一个子菜单。 下划线参数创建键盘快捷键。 我们提供了角色位置，应在下面加下划线。 在我们的情况下，这是第一个。 位置从零开始。 当我们单击“文件”菜单时，将显示一个弹出窗口。 导入菜单下划线一个字符。 我们可以使用鼠标指针或 Alt + I 快捷方式选择它。

  1. .mbar.fm add separator

分隔符是一条水平线，可以在视觉上分隔菜单命令。 这样，我们可以将项目分组到一些合理的位置。

Tcl/Tk 中的菜单和工具栏 - 图2

图：子菜单

弹出菜单

在下一个示例中，我们创建一个弹出菜单。 弹出菜单是上下文窗口小部件，可以在窗口的客户区域中的任何位置显示。

  1. #!/usr/bin/wish
  3. # ZetCode Tcl/Tk tutorial
  4. #
  5. # In this code example, we create 
  6. # a popup menu.
  7. #
  8. # author: Jan Bodnar
  9. # last modified: March 2011
  10. # website: www.zetcode.com
  12. menu .m -tearoff 0
  13. .m add command -label Beep
  14. .m add command -label Exit -command {exit}
  16. bind . "<Button-3>" "showMenu %X %Y"
  18. wm title . popupmenu
  19. wm geometry . 250x150+300+300
  21. proc showMenu {x y} {
  22.     tk_popup .m $x $y
  23. }

在我们的示例中，我们使用两个命令创建一个弹出菜单。

  1. menu .m -tearoff 0
  2. .m add command -label Beep
  3. .m add command -label Exit -command {exit}

上下文菜单是常规的menu小部件。 tearoff函数已关闭。

  1. bind . "<Button-3>" "showMenu %X %Y"

我们将<Button-3>事件绑定到showMenu过程。 当我们右键单击窗口的客户区域时，将生成事件。 我们将两个参数传递给该过程。 这些是鼠标单击的 x 和 y 坐标。

  1. proc showMenu {x y} {
  2.     tk_popup .m $x $y
  3. }

showMenu过程显示上下文菜单。 弹出菜单显示在鼠标单击的 x 和 y 坐标处。 要显示弹出菜单，我们使用tk_popup命令。

Tcl/Tk 中的菜单和工具栏 - 图3

图：弹出菜单

工具栏

菜单将我们可以在应用中使用的命令分组。 使用工具栏可以快速访问最常用的命令。 Tk 中没有工具栏小部件。

  1. #!/usr/bin/wish
  3. # ZetCode Tcl/Tk tutorial
  4. #
  5. # In this code example, we create 
  6. # a toolbar.
  7. #
  8. # author: Jan Bodnar
  9. # last modified: March 2011
  10. # website: www.zetcode.com
  12. package require Img
  14. menu .mbar
  15. . configure -menu .mbar
  17. menu .mbar.fl -tearoff 0
  18. .mbar add cascade -menu .mbar.fl -label File \
  19.     -underline 0
  21. frame .toolbar -bd 1 -relief raised
  22. image create photo img -file "exit.png"
  23. button .toolbar.exitButton -image img -relief flat -command {exit}
  24. pack .toolbar.exitButton -side left -padx 2 -pady 2
  25. pack .toolbar -fill x
  27. wm title . toolbar
  28. wm geometry . 250x150+300+300

我们的工具栏将是一个框架，在该框架上将放置一个按钮。

  1. frame .toolbar -bd 1 -relief raised

工具栏已创建。 它是frame。 我们创建了一个凸起的边框，以便工具栏的边界可见。

  1. image create photo img -file "exit.png"
  2. button .toolbar.exitButton -image img -relief flat -command {exit}

创建带有图像的退出按钮。

  1. pack .toolbar.exitButton -side left -padx 2 -pady 2

工具栏是框架，框架是容器小部件。 我们将按钮包装在左侧。 我们添加一些填充。

  1. pack .toolbar -fill x

工具栏打包在根窗口中； 它是水平拉伸的。

Tcl/Tk 中的菜单和工具栏 - 图4

图：工具栏

在 Tcl/Tk 教程的这一部分中，我们展示了如何创建带有菜单和菜单项以及工具栏的菜单栏。