[PD-cvs] pd/src poe.tcl,1.1.2.2.2.14,1.1.2.2.2.15

Mathieu Bouchard matju at users.sourceforge.net
Wed Jul 18 05:01:39 CEST 2007


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25269

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
sort object table


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.14
retrieving revision 1.1.2.2.2.15
diff -C2 -d -r1.1.2.2.2.14 -r1.1.2.2.2.15
*** poe.tcl	10 Jul 2007 02:23:20 -0000	1.1.2.2.2.14
--- poe.tcl	18 Jul 2007 03:01:36 -0000	1.1.2.2.2.15
***************
*** 233,238 ****
  
  proc yell {var key args} {
! 	global _ $key
! 	puts "[VTyellow]HEY! at [info level -1] set $key [list $_($key)][VTgrey]"
  }
  
--- 233,238 ----
  
  proc yell {var key args} {
! 	global $key
! 	puts "[VTyellow]HEY! at [info level -1] set $key [list $::_($key)][VTgrey]"
  }
  
***************
*** 241,245 ****
  	set n 0
  	puts "poe.tcl object_table: {"
! 	foreach o [array names _ *:_class] {
  		set oo [lindex [split $o :] 0]
  		set class $_($o)
--- 241,245 ----
  	set n 0
  	puts "poe.tcl object_table: {"
! 	foreach o [lsort [array names _ *:_class]] {
  		set oo [lindex [split $o :] 0]
  		set class $_($o)





More information about the Pd-cvs mailing list