pd/src desire.tk,1.1.2.357,1.1.2.358 - Pd-cvs

17 Aug 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23309
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
fix for undo move
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.357
retrieving revision 1.1.2.358
diff -C2 -d -r1.1.2.357 -r1.1.2.358
*** desire.tk	17 Aug 2006 01:28:11 -0000	1.1.2.357
--- desire.tk	17 Aug 2006 01:39:43 -0000	1.1.2.358
***************
*** 1323,1326 ****
--- 1323,1327 ----
  def Canvas focus {} {return $@focus}
  def Canvas focus= {o} {set @focus $o}
+ def Canvas history {} {return $@history}
#-----------------------------------------------------------------------------------#
***************
*** 2356,2361 ****
    move {
      foreach obj $@selection {
! 		mset {x1 y1} [$obj xy]; $obj moveto $x1 $y1
! 		mset {x1 y1} [$obj backupxy]; $@history add [list $obj moveto $x1 $y1]
      }
      set objs $@selection
--- 2357,2363 ----
    move {
      foreach obj $@selection {
! 		mset {x1 y1} [$obj xy]
! 		$obj position= [$obj backupxy]
! 		$obj moveto $x1 $y1
      }
      set objs $@selection
***************
*** 2658,2663 ****
  def Canvas selection_move {dx dy} {
      foreach o $@selection {
! 	mset {x1 y1} [$item xy]
! 	pd .$self object_moveto !$item [expr $x1+$dx] [expr $y1+$dy]
      }
  }
--- 2660,2665 ----
  def Canvas selection_move {dx dy} {
      foreach o $@selection {
! 	mset {x1 y1} [$o xy]
! 	$o moveto [expr $x1+$dx] [expr $y1+$dy]
      }
  }
***************
*** 2777,2780 ****
--- 2779,2783 ----
  def Box moveto {x1 y1} {
    pd .$@canvas object_moveto !$self $x1 $y1
+ 	[$@canvas history] add [list $self moveto $@x1 $@y1]
    set @x1 $x1
    set @y1 $y1