--- a/UIPropertyView.st Mon May 26 10:30:27 1997 +0200
+++ b/UIPropertyView.st Mon May 26 13:00:29 1997 +0200
@@ -23,8 +23,11 @@
documentation
"
- provides tools to the UIPainter accessing and manipulation
- properties and/or layouts.
+ provides tools to the UIPainter accessing and manipulation properties
+ and/or layouts.
+
+ [see also:]
+ UIBuilder
"
! !
@@ -1745,17 +1748,11 @@
spec := self class perform:spec.
].
self buildFromSpec:spec.
- ].
- idx := layoutTypes findFirst:[:type| type == aLayoutType ].
- noteBook setSelection:idx.
-
- selection == aLayoutType ifFalse:[
- (selection := aLayoutType) notNil ifTrue:[
+ ] ifTrue:[
+ selection notNil ifTrue:[
self perform:(('fetch', selection asString) asSymbol).
- spec := ('specification', selection asString) asSymbol.
- spec := self class perform:spec.
- ].
- self buildFromSpec:spec.
+ self modified:false.
+ ]
].
idx := layoutTypes findFirst:[:type| type == aLayoutType ].
noteBook setSelection:idx.