home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 7_6.tcl < prev    next >
Text File  |  2003-04-15  |  208b  |  17 lines
  1. #
  2. # Example 7-6
  3. # Improved incr procedure.
  4. #
  5.  
  6. proc incr { varName {amount 1}} {
  7.     upvar 1 $varName var
  8.     if {[info exists var]} {
  9.         set var [expr $var + $amount]
  10.     } else {
  11.         set var $amount
  12.     }
  13.     return $var
  14. }
  15.  
  16.  
  17.