home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 30_1.tcl < prev    next >
Text File  |  2003-04-16  |  418b  |  24 lines
  1. #
  2. # Example 30-1
  3. # A troublesome button command.
  4. #
  5.  
  6. proc Trouble {args} {
  7.     set b 0
  8.     # Display the value of x, a global variable
  9.     label .label -textvariable x
  10.     set f [frame .buttons -borderwidth 10]
  11.     # Create buttons that multiply x by their value
  12.     foreach val $args {
  13.         button $f.$b -text $val \
  14.             -command "set x \[expr \$x * $val\]"
  15.         pack $f.$b -side left
  16.         incr b
  17.     }
  18.     pack .label $f
  19. }
  20. set x 1
  21. Trouble -1 4 7 36
  22.  
  23.  
  24.