[PD-cvs] pd/src desire.tk,1.1.2.157,1.1.2.158
Mathieu Bouchard
matju at users.sourceforge.net
Sun Apr 16 08:37:45 CEST 2006
Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1225
Modified Files:
Tag: devel_0_39
desire.tk
Log Message:
now on startup you see the class hierarchy (of the client)
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.157
retrieving revision 1.1.2.158
diff -C2 -d -r1.1.2.157 -r1.1.2.158
*** desire.tk 16 Apr 2006 06:28:10 -0000 1.1.2.157
--- desire.tk 16 Apr 2006 06:37:42 -0000 1.1.2.158
***************
*** 3642,3653 ****
set manager [Manager_new]
! proc post_hierarchy {self {i 0}} {
! global _
! post %*s%s [expr $i*2] "" $self
! set s $_($self:_super)
! set s1 [lindex $s [llength $s]]
! }
post_hierarchy Thing
-
--- 3642,3661 ----
set manager [Manager_new]
! # ideally:
! #def Class post_hierarchy {{i 0}} {
! # post %*s%s [expr $i*2] "" $self
! # foreach sub $@subclasses {
! # $sub post_hierarchy [expr $i+1]
! # }
! #}
! #Thing post_hierarchy
+ proc post_hierarchy {class {i 0}} {
+ global _
+ post %*s%s [expr $i*4] "" $class
+ foreach sub $_($class:subclasses) {
+ post_hierarchy $sub [expr $i+1]
+ }
+ }
post_hierarchy Thing
More information about the Pd-cvs
mailing list