pd/src desire.tk,1.1.2.557,1.1.2.558 - Pd-cvs

17 Nov 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2629
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
object move fixed
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.557
retrieving revision 1.1.2.558
diff -C2 -d -r1.1.2.557 -r1.1.2.558
*** desire.tk	17 Nov 2006 07:20:58 -0000	1.1.2.557
--- desire.tk	17 Nov 2006 11:59:59 -0000	1.1.2.558
***************
*** 3955,3959 ****
  def Box moveto {x1 y1} {
    if {[info exists @isnew]} {
! 
    } else {
    	pd .$@canvas object_moveto !$self $x1 $y1
--- 3955,3959 ----
  def Box moveto {x1 y1} {
    if {[info exists @isnew]} {
! 		if {!$@isnew} { pd .$@canvas object_moveto !$self $x1 $y1}
    } else {
    	pd .$@canvas object_moveto !$self $x1 $y1
***************
*** 6597,6601 ****
    set col [format #%6.6x $color]
    $frame.color configure -background $col -foreground [complement $col] -text $col
! 	$self do_auto_apply
  }
--- 6597,6602 ----
    set col [format #%6.6x $color]
    $frame.color configure -background $col -foreground [complement $col] -text $col
! 	if {$self != "ddrc"} {$self do_auto_apply}
! 	#$self do_auto_apply
  }