--- 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 $'
 ! !