Posted to tcl by mjanssen at Fri Mar 15 12:47:24 GMT 2019view raw
- package require Tk
- puts [info patchlevel]
- toplevel .win
- menu .win.menubar
- .win configure -menu .win.menubar
- set m .win.menubar
- menu $m.file
- $m add cascade -menu $m.file -label File -command "puts file"