pd/src desire.tk,1.1.2.52,1.1.2.53 - Pd-cvs

14 Sep 2005


      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] {}