` `菜单按钮可以使用 Tk 的 menubutton 命令建立。 ``` #!/usr/bin/env wish frame .menutop ;#使用 frame 命令在工具栏上分配框架 pack .menutop -side top -fill x #在 -slide top 中建立的窗口将会分配到上层。 menubutton .menutop.file -text "文件" -menu .menutop.file.menu #在 -menu 选项中将 .menutop.file.menu 分配为子菜单 menubutton .menutop.edit -text "编辑" menubutton .menutop.view -text "视图" pack .menutop.file .menutop.edit .menutop.view -side left #分配所建立的菜单按钮 menu .menutop.file.menu -tearoff 0 \# 在 -tearoff 选项中选取“真”(true) 时，所建立的菜单将可 #从窗口删除。 .menutop.file.menu add command -label exit -command exit #定义在选取“menutop.file.menu”时的子菜单。 ```  ` `使用 menubutton 命令所建立之菜单的功能与使用 menu 命令建立的一样。如果要在工具栏 上分配菜单，必须使用frame 命令预先分配菜单栏的框架。