[PD-cvs] pd/src desire.tk,1.1.2.246,1.1.2.247

[chunlee]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
trivial commit before i mess it up completely....


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.246
retrieving revision 1.1.2.247
diff -C2 -d -r1.1.2.246 -r1.1.2.247
*** desire.tk	15 Jun 2006 07:35:23 -0000	1.1.2.246
--- desire.tk	15 Jun 2006 11:15:22 -0000	1.1.2.247
***************
*** 1174,1177 ****
--- 1174,1178 ----
      #not sure if init should be calling pd, but it fixes the editmode bug for now -chun
      pd $name editmode $@editmode
+     set @coords 0
  }
  
***************
*** 2683,2686 ****
--- 2684,2688 ----
  #set fields(canvas) {name width height geometry editable}
  set fields(canvas) {foo bar x y w h editable}
+ set fields(coords) {foo bar xfrom yfrom xto yto w h gop x1 y1}
  
  
***************
*** 2749,2752 ****
--- 2751,2755 ----
  		foreach f $fields($class) {
  		set _($x:$f) [lindex $d $i]
+ 		puts "------> set $x:$f to [lindex $d $i] <------"
  		incr i
  		}
***************
*** 3083,3087 ****
  class_new CanvasPropertiesDialog {PropertiesDialog}
  
! def* IEMPropertiesDialog init {} {
  }
  
--- 3086,3092 ----
  class_new CanvasPropertiesDialog {PropertiesDialog}
  
! def* CanvasPropertiesDialog init {of} {
! 	super $of
! 	#X coords 0 0 1 1 100 100 1 100 200;
  }