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

  1. package require Tk
  2. puts [info patchlevel]
  3. toplevel .win
  4. menu .win.menubar
  5. .win configure -menu .win.menubar
  6.  
  7. set m .win.menubar
  8. menu $m.file
  9. $m add cascade -menu $m.file -label File -command "puts file"