--- a/UIPainterView.st	Wed Jun 11 16:00:03 1997 +0200
+++ b/UIPainterView.st	Wed Jun 11 16:00:53 1997 +0200
@@ -1388,6 +1388,14 @@
 
 !
 
+specForSelection
+    "returns spec assigned to current single selection or nil
+    "
+    ^ self specFor:(self singleSelection)
+
+
+!
+
 updateFromSpec:aSpec
     "update current selected view from specification
     "
@@ -1539,7 +1547,7 @@
             (lyt := aView geometryLayout) notNil ifTrue:[
                 args at:2 put:#geometryLayout:
             ] ifFalse:[
-                lyt extent.
+                lyt := aView extent.
                 args at:2 put:#extent:
             ].
             args at:3 put:(lyt copy).
@@ -1588,7 +1596,8 @@
     |view|
 
     (view := self findViewWithId:(args at:1)) notNil ifTrue:[
-        view perform:(args at:2) with:(args at:3)
+        view perform:(args at:2) with:(args at:3).
+        self changed:#layout.
     ]
 !
 
@@ -1635,12 +1644,8 @@
             self elementChangedSize:view.
         ].
         listHolder propertyChanged:props.
-    ] ifFalse:[
-        self halt
     ]
 
-
-
 ! !
 
 !UIPainterView::ViewProperty class methodsFor:'documentation'!