home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_12.tcl < prev    next >
Text File  |  2003-04-15  |  618b  |  31 lines
  1. #
  2. # Example 28-12
  3. # Adding menu entries.
  4. #
  5.  
  6. proc Menu_Command { menuName label command } {
  7.     set m [MenuGet $menuName]
  8.     $m add command -label $label -command $command
  9. }
  10.  
  11. proc Menu_Check { menuName label var { command {} } } {
  12.     set m [MenuGet $menuName]
  13.     $m add check -label $label -command $command \
  14.         -variable $var
  15. }
  16.  
  17. proc Menu_Radio { menuName label var {val {}} {command {}} } {
  18.     set m [MenuGet $menuName]
  19.     if {[string length $val] == 0} {
  20.         set val $label
  21.     }
  22.     $m add radio -label $label -command $command \
  23.         -value $val -variable $var
  24. }
  25.  
  26. proc Menu_Separator { menuName } {
  27.     [MenuGet $menuName] add separator
  28. }
  29.  
  30.  
  31.