--- a/UIObjectView.st	Wed Feb 21 13:26:09 2001 +0100
+++ b/UIObjectView.st	Wed Feb 21 13:28:19 2001 +0100
@@ -659,31 +659,30 @@
     |wasClipped|
 
     (wasClipped := clipChildren) ifTrue:[
-	self clippedByChildren:(clipChildren := false).
+        self clippedByChildren:(clipChildren := false).
     ].
 
     self xoring:[
-	|p|
-
-	something isCollection ifTrue:[
-	    something do:[:v |
-		|p|
-
-		p := v originRelativeTo:self.
-		self displayRectangle:(p extent:v extent).
-	    ].
-	] ifFalse:[
-	    |p|
-
-	    p := something originRelativeTo:self.
-	    self displayRectangle:(p extent:something extent).
-	]
+        |p|
+
+        something isCollection ifTrue:[
+            something do:[:v |
+                |p|
+
+                p := v originRelativeTo:self.
+                self displayRectangle:(p extent:v extent).
+            ].
+        ] ifFalse:[
+            |p|
+
+            p := something originRelativeTo:self.
+            self displayRectangle:(p extent:something extent).
+        ]
     ].
 
     wasClipped ifTrue:[
-	self clippedByChildren:(clipChildren := true).
+        self clippedByChildren:(clipChildren := true).
     ].
-
 !
 
 minSetOfSuperViews:setOfViews
@@ -776,12 +775,12 @@
     movedObject := self selection.
 
     movedObject isCollection ifFalse:[
-	movedObject := Array with:movedObject
+        movedObject := Array with:movedObject
     ].
     self setSelection:nil withRedraw:true.
 
     moveDelta := movedObject collect:[:aView|
-	aPoint - aView computeOrigin
+        aPoint - aView computeOrigin
     ].
     self transaction:#move objects:movedObject do:[:v|self createUndoLayout:v].
     self invertOutlineOf:movedObject.
@@ -894,9 +893,13 @@
     p := (self alignToGrid:aPoint) - (resizeData delta).
 
     self perform:(resizeData selector) with:object with:p.
+    Delay waitForSeconds:0.05.
+    [self sensor hasExposeEventFor:nil] whileTrue:[
+        self windowGroup processExposeEvents
+    ].
+
    "/ object geometryLayout:(object geometryLayout).
     self invertOutlineOf:object
-
 !
 
 endResize
@@ -915,7 +918,7 @@
     "/ redrawing the handles.
     Delay waitForSeconds:0.05.
     [self sensor hasExposeEventFor:nil] whileTrue:[
-	self windowGroup processExposeEvents
+        self windowGroup processExposeEvents
     ].
 
     self setSelection:object withRedraw:true.
@@ -931,7 +934,7 @@
     self actionResize:object selector:b.
 
     self transaction:#resize selectionDo:[:aView|
-	self createUndoLayout:aView
+        self createUndoLayout:aView
     ].
     self setSelection:nil withRedraw:true.
 
@@ -948,8 +951,8 @@
     |dlt ext|
 
     dlt := (aComponent originRelativeTo:self) - aComponent origin.
-    dlt := dlt - (3@3).
-    ext := 6@6.
+    dlt := dlt - (4@4).
+    ext := 8@8.
 
     self class handlesOf:aComponent do:[:pnt :wht |
         aTwoArgAction value:(pnt + dlt extent:ext) value:wht
@@ -1419,7 +1422,6 @@
 
     damages := OrderedCollection new.
 
-
     self forEach:something do:[:v|
         self handlesOf:v do:[:aDamage :wht|
             damages reverseDo:[:el|
@@ -1441,7 +1443,7 @@
     (oldClipped := clipChildren) ifFalse:[
         self clippedByChildren:(clipChildren := true)
     ].
-    self subViews do:[:v| self recursiveRepair:damages startIn:v].
+    self subViews reverseDo:[:v| self recursiveRepair:damages startIn:v].
 
     oldClipped ~~ clipChildren ifTrue:[
         self clippedByChildren:(clipChildren := oldClipped).