[PD-cvs] pd/src desire.tk,1.1.2.52,1.1.2.53

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
$_ canvases lose the leading .x in their id.
other cleanups.


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.52
retrieving revision 1.1.2.53
diff -C2 -d -r1.1.2.52 -r1.1.2.53
*** desire.tk	14 Sep 2005 04:39:41 -0000	1.1.2.52
--- desire.tk	14 Sep 2005 06:04:42 -0000	1.1.2.53
***************
*** 36,39 ****
--- 36,45 ----
  }
  
+ proc proc* {name args body} {
+ 	set argl {}
+ 	foreach arg $args {lappend argl "$arg=\$$arg"}
+ 	proc $name $args "puts \"CALL TO PROC $name [join $argl " "]\"; $body"
+ }
+ 
  proc def {class selector args body} {
[...1006 lines suppressed...]
  	set x3 [expr $x1+$xs/4]
  	set x4 [expr $x1+$xs-$xs/4]
  	$canvas coords ${self}MASK $x3 $y1 $x4 $y
- 
  	$canvas delete ${self}PEAK
  	set c [lindex $vu_col $j]
--- 2866,2873 ----
***************
*** 3005,3009 ****
  }
  
! class cnv {view}
  def cnv draw {canvas} {
  	foreach {x1 y1} [object_xy $self $canvas] {}
--- 2909,2913 ----
  }
  
! class_new cnv {view}
  def cnv draw {canvas} {
  	foreach {x1 y1} [object_xy $self $canvas] {}