home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_6.tcl < prev    next >
Text File  |  2003-04-15  |  539b  |  20 lines
  1. #
  2. # Example 28-6
  3. # A menu sampler.
  4. #
  5.  
  6. menubutton .mb -text Sampler -menu .mb.menu
  7. pack .mb -padx 10 -pady 10
  8. set m [menu .mb.menu -tearoff 1]
  9. $m add command -label Hello! -command {puts "Hello, World!"}
  10. $m add check -label Boolean -variable foo \
  11.     -command {puts "foo = $foo"}
  12. $m add separator
  13. $m add cascade -label Fruit -menu $m.sub1
  14. set m2 [menu $m.sub1 -tearoff 0]
  15. $m2 add radio -label apple -variable fruit -value apple
  16. $m2 add radio -label orange -variable fruit -value orange
  17. $m2 add radio -label kiwi -variable fruit -value kiwi
  18.  
  19.  
  20.