Posted to tcl by Napier at Fri Jul 11 17:22:51 GMT 2014view raw

  1. proc _constant_read_trace {val name1 name2 ops args} {
  2. # upvar $name1 var
  3. puts "Old Value: $val"
  4. puts "Name1: $name1"
  5. puts "Name2: $name2"
  6. puts "Ops: $ops"
  7. upvar 0 $name1 myVar
  8. puts $myVar
  9. puts $$name1
  10. # constant $name1
  11. # set var $val
  12. }
  13.  
  14. proc constant {varName value} {
  15. # puts [list _constant_read_trace $value]
  16. uplevel [list trace variable $varName w [list _constant_read_trace $value]]
  17. }