[PD-cvs] pd/src desire.tk,1.1.2.99,1.1.2.100

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
in many calls, $canvas arg is removed in favour of $@canvas attribute of $self


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.99
retrieving revision 1.1.2.100
diff -C2 -d -r1.1.2.99 -r1.1.2.100
*** desire.tk	2 Nov 2005 14:48:36 -0000	1.1.2.99
--- desire.tk	2 Nov 2005 15:18:06 -0000	1.1.2.100
***************
*** 84,88 ****
  		post %s "$o: $poolset($o)"
  		unset poolset($o)
! 		$o draw [$o canvas]
  	}
  	set @q [list]
--- 84,88 ----
  		post %s "$o: $poolset($o)"
  		unset poolset($o)
! 		$o draw
  	}
[...1215 lines suppressed...]
  	$self item BASE rectangle $x1 $y1 [expr $x1+$xs] [expr $y1+$ys] \
  		-fill [parse_color $@bcol]
! 	super
  }
  
***************
*** 3098,3099 ****
--- 3073,3084 ----
  
  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
+