--- a/DisplayObject.st Mon Apr 26 15:08:22 2010 +0200
+++ b/DisplayObject.st Mon May 03 23:16:11 2010 +0200
@@ -573,6 +573,12 @@
!DisplayObject methodsFor:'user actions-move'!
+moveBy:delta
+ "move the receiver - extent is unchanged"
+
+ self moveTo:(self origin + delta)
+!
+
moveTo:aPoint
"object must move to new origin
- default is to stay; ought to be redefined in subclass"
@@ -583,9 +589,9 @@
!DisplayObject class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.37 2009-12-17 13:22:32 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.38 2010-05-03 21:16:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.37 2009-12-17 13:22:32 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DisplayObject.st,v 1.38 2010-05-03 21:16:11 cg Exp $'
! !