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)