home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_14.tcl < prev    next >
Text File  |  2003-04-15  |  329b  |  17 lines
  1. #
  2. # Example 28-14
  3. # Using the menu by name package.
  4. #
  5.  
  6. Menu_Setup .menubar
  7. Menu Sampler
  8. Menu_Command Sampler Hello! {puts "Hello, World!"}
  9. Menu_Check Sampler Boolean foo {puts "foo = $foo"}
  10. Menu_Separator Sampler
  11. Menu_Cascade Sampler Fruit
  12. Menu_Radio Fruit apple fruit
  13. Menu_Radio Fruit orange fruit
  14. Menu_Radio Fruit kiwi fruit
  15.  
  16.  
  17.