home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_10.tcl < prev    next >
Text File  |  2003-04-15  |  623b  |  30 lines
  1. #
  2. # Example 28-10
  3. # Using the Tk 8.0 menu bar facility.
  4. #
  5.  
  6. proc Menu_Setup { menubar } {
  7.     global menu
  8.     menu $menubar
  9.     # Associated menu with its main window
  10.     set top [winfo parent $menubar]
  11.     $top config -menu $menubar
  12.     set menu(menubar) $menubar
  13.     set menu(uid) 0
  14. }
  15. proc Menu { label } {
  16.     global menu
  17.     if [info exists menu(menu,$label)] {
  18.         error "Menu $label already defined"
  19.     }
  20.     # Create the cascade menu
  21.     set menuName $menu(menubar).mb$menu(uid)
  22.     incr menu(uid)
  23.     menu $menuName -tearoff 1
  24.     $menu(menubar) add cascade -label $label -menu $menuName
  25.     # Remember the name to menu mapping
  26.     set menu(menu,$label) $menuName
  27. }
  28.  
  29.  
  30.