Posted to tcl by mjanssen at Fri Mar 15 12:47:24 GMT 2019view pretty

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"