Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2897
Modified Files: Tag: devel_0_39 objective.tcl Log Message: added Thing _inspect that returns a string giving a lot of info about an object (a thing, sorry)
Index: objective.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/objective.tcl,v retrieving revision 1.1.2.11 retrieving revision 1.1.2.12 diff -C2 -d -r1.1.2.11 -r1.1.2.12 *** objective.tcl 19 Jun 2006 05:51:49 -0000 1.1.2.11 --- objective.tcl 19 Jun 2006 05:58:31 -0000 1.1.2.12 *************** *** 128,131 **** --- 128,138 ---- }
+ def Thing _inspect {} { + set t [list "#<$self: "] + foreach k [$self _vars] {lappend t "$k=[list $@$k] "} + lappend t ">" + return [join $t ""] + } + class_new Class def Class subclasses {} {return $@subclasses}