[PD-cvs] pd/src objective.tcl,1.1.2.11,1.1.2.12

[Mathieu Bouchard]

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}