pd/src objective.tcl,1.1.2.19,1.1.2.20 - Pd-cvs

2 Sep 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31964
Modified Files:
      Tag: devel_0_39
    objective.tcl 
Log Message:
added proc yell, for use with "trace add variable" on @ vars.
Index: objective.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v
retrieving revision 1.1.2.19
retrieving revision 1.1.2.20
diff -C2 -d -r1.1.2.19 -r1.1.2.20
*** objective.tcl	31 Aug 2006 22:21:18 -0000	1.1.2.19
--- objective.tcl	2 Sep 2006 09:04:22 -0000	1.1.2.20
***************
*** 159,165 ****
  #-----------------------------------------------------------------------------------#
! proc VTgreen {} {return "\x1b[0;1;32m"}
! proc VTred   {} {return "\x1b[0;1;31m"}
! proc VTgrey  {} {return "\x1b[0m"}
proc error_dump {} {
--- 159,166 ----
  #-----------------------------------------------------------------------------------#
! proc VTgreen  {} {return "\x1b[0;1;32m"}
! proc VTred    {} {return "\x1b[0;1;31m"}
! proc VTyellow {} {return "\x1b[0;1;33m"}
! proc VTgrey   {} {return "\x1b[0m"}
proc error_dump {} {
***************
*** 175,176 ****
--- 176,182 ----
    set __trace($class:$method) $when
  }
+ 
+ proc yell {var key args} {
+ 	global _ $key
+ 	puts "[VTyellow]HEY! at [info level -1] set $key [list $_($key)][VTgrey]"
+ }