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; }