UIObjectView.st
changeset 79 33212fbe9766
parent 78 a0a00603a8b6
child 82 99dc76d66eab
--- a/UIObjectView.st	Tue Mar 04 11:21:16 1997 +0100
+++ b/UIObjectView.st	Tue Mar 04 12:29:48 1997 +0100
@@ -747,8 +747,9 @@
 
     self invertOutlineOf:object.
     p := (self alignToGrid:aPoint) - (actionData delta).
+
     self perform:(actionData selector) with:object with:p.
-    object geometryLayout:(object geometryLayout).
+   "/ object geometryLayout:(object geometryLayout).
     self invertOutlineOf:object
 
 !
@@ -1023,7 +1024,7 @@
     "shift layout for a view; in case of an open transaction, the undo
      action is registered
     "
-    |type layout|
+    |type layout oldExt|
 
     type := self class layoutType:aView.
 
@@ -1031,7 +1032,9 @@
         self undoLayoutView:aView.
 
         type == #Extent ifTrue:[
-            ^ aView geometryLayout:layout
+            oldExt := aView extent.
+            aView extent:(oldExt + ((r-l) @ (b-t))).
+            ^ self 
         ].
 
         layout := aView geometryLayout copy.