home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 30_4.tcl < prev    next >
Text File  |  2003-04-16  |  657b  |  33 lines
  1. #
  2. # Example 30-4
  3. # Radiobuttons and checkbuttons.
  4. #
  5.  
  6. proc ShowChoices { parent varname args } {
  7.     set f [frame $parent.choices -borderwidth 5]
  8.     set b 0
  9.     foreach item $args {
  10.         radiobutton $f.$b -variable $varname \
  11.             -text $item -value $item
  12.         pack $f.$b -side left
  13.         incr b
  14.     }
  15.     pack $f -side top
  16. }
  17. proc ShowBooleans { parent args } {
  18.     set f [frame $parent.booleans -borderwidth 5]
  19.     set b 0
  20.     foreach item $args {
  21.         checkbutton $f.$b -text $item -variable $item
  22.         pack $f.$b -side left
  23.         incr b
  24.     }
  25.     pack $f -side top
  26. }
  27. set choice kiwi
  28. ShowChoices {} choice apple orange peach kiwi strawberry
  29. set Bold 1 ; set Italic 1
  30. ShowBooleans {} Bold Italic Underline
  31.  
  32.  
  33.