home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 30_13.tcl < prev    next >
Text File  |  2003-04-16  |  349b  |  20 lines
  1. #
  2. # Example 30-13
  3. # A wrapper for cascade entries.
  4. #
  5.  
  6. proc Menu_Cascade { menuName label } {
  7.     global menu
  8.     set m [MenuGet $menuName]
  9.     if [info exists menu(menu,$label)] {
  10.         error "Menu $label already defined"
  11.     }
  12.     set sub $m.sub$menu(uid)
  13.     incr menu(uid)
  14.     menu $sub -tearoff 0
  15.     $m add cascade -label $label -menu $sub
  16.     set menu(menu,$label) $sub
  17. }
  18.  
  19.  
  20.