--- a/VisualComponent.st	Mon Sep 18 15:28:13 2006 +0200
+++ b/VisualComponent.st	Tue Sep 19 19:22:16 2006 +0200
@@ -243,6 +243,18 @@
     "Modified: 26.5.1996 / 12:56:22 / cg"
 !
 
+origin:newOrigin
+    "move my bounds"
+
+    bounds isNil ifTrue:[
+        self containerChangedSize
+    ].
+    bounds := newOrigin extent:(bounds extent).
+
+    "Created: 8.5.1996 / 23:36:07 / cg"
+    "Modified: 9.5.1996 / 00:13:12 / cg"
+!
+
 preferredBounds
     "return my preferredBounds"
 
@@ -527,5 +539,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.21 2006-09-11 13:01:30 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.22 2006-09-19 17:22:16 fm Exp $'
 ! !