--- 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.