home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 30_5.tcl < prev    next >
Text File  |  2003-04-16  |  342b  |  17 lines
  1. #
  2. # Example 30-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.