Tk Source Code

Artifact cf0b86081d2791c025d0305e217276ac307bcad8cfa35492b20050fc089cf1fd:

Attachment "testmacmenu.tcl" to ticket [7185d26c] added by bll 2020-10-01 00:44:41.

---

package require Tk

menu .menubar
proc menu_about {} {}
proc menu_objectlist {} {}
proc myapp_info {} {}
proc menu_report {} {}

proc confHelpMenu {} {
  .menubar.help add command -label "About Myapp" -command {menu_about} -state normal
  .menubar.help add command -label "About Myapp 2" -command {menu_about} -state normal
  .menubar.help add command -label "About Myapp 3" -command {menu_about} -state normal
  .menubar.help add separator
  .menubar.help add command -label "List of objects" -command {menu_objectlist} -state normal
  .menubar.help add separator
  .menubar.help add command -label "myapp.info" -command {myapp_info} -state normal
  .menubar.help add separator
  .menubar.help add command -label "Report a Bug" -command {menu_report} -state normal
}

menu .menubar.help
.menubar add cascade -label "Help" -underline 0 -menu .menubar.help -state normal
. configure -menu .menubar
confHelpMenu
toplevel .window1 -menu .menubar

if { 1 } {
  .menubar.help entryconfigure 0 -state normal
  .menubar.help entryconfigure 1 -state normal
  .menubar.help entryconfigure 2 -state normal
#  .menubar.help entryconfigure 4 -state normal
#  .menubar.help entryconfigure 6 -state normal
#  .menubar.help entryconfigure 6 -state normal
#  .menubar.help entryconfigure 8 -state normal
}