home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 28_5.tcl < prev    next >
Text File  |  2003-04-15  |  342b  |  17 lines
  1. #
  2. # Example 28-5
  3. # A command on a radiobutton or checkbutton.
  4. #
  5.  
  6. proc PrintByName { varname } {
  7.     upvar #0 $varname var
  8.     puts stdout "$varname = $var"
  9. }
  10. checkbutton $f.$b -text $item -variable $item \
  11.     -command [list PrintByName $item]
  12. radiobutton $f.$b -variable $varname \
  13.     -text $item -value $item \
  14.     -command [list PrintByName $varname]
  15.  
  16.  
  17.