home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_7.tcl < prev    next >
Text File  |  2003-04-15  |  322b  |  18 lines
  1. #
  2. # Example 28-7
  3. # A menu bar in Tk 8.0.
  4. #
  5.  
  6. menu .menubar
  7. # attach it to the main window
  8. . config -menu .menubar
  9. # Create more cascade menus
  10. foreach m {File Edit Help} {
  11.     set $m [menu .menubar.m$m]
  12.     .menubar add cascade -label $m -menu .menubar.m$m
  13. }
  14. $File add command -label Quit -command exit
  15. # add more menu items...
  16.  
  17.  
  18.