[PD-cvs] pd/src objective.tcl,1.1.2.19,1.1.2.20
Mathieu Bouchard
matju at users.sourceforge.net
Sat Sep 2 11:04:24 CEST 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]"
+ }
More information about the Pd-cvs
mailing list