home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 13_9.tcl < prev    next >
Text File  |  2003-04-16  |  285b  |  17 lines
  1. #
  2. # Example 13-9
  3. # Creating array elements with array traces.
  4. #
  5.  
  6. # make sure variable is an array
  7. set dynamic() {}
  8. trace variable dynamic r FixupDynamic
  9. proc FixupDynamic {name index op} {
  10.     upvar 1 $name dynArray
  11.     if {![info exists dynArray($index)]} {
  12.         set dynArray($index) 0
  13.     }
  14. }
  15.  
  16.  
  17.