--- 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'!