--- a/UIGalleryView.st Mon Apr 08 11:49:38 2002 +0200
+++ b/UIGalleryView.st Wed Apr 10 12:50:03 2002 +0200
@@ -334,41 +334,38 @@
self selection:nil.
- self subViews copy do:[:aSubView|
- aSubView ~~ inputView ifTrue:[
- aSubView destroy
- ]
+ subViews copy do:[:aSubView|
+ aSubView ~~ inputView ifTrue:[
+ aSubView destroy
+ ]
].
aSpecOrSpecArray notNil ifTrue:[
- specification := UISpecification from:aSpecOrSpecArray.
+ specification := UISpecification from:aSpecOrSpecArray.
- (specification respondsTo:#buildViewFor:in:) ifFalse:[
- specification := nil.
- ^ self
- ].
- (builder := uiBuilder) isNil ifTrue:[
- builder := UIBuilder new isEditing:true.
- builder showDefaults:true.
- ].
+ (specification respondsTo:#buildViewFor:in:) ifFalse:[
+ specification := nil.
+ ^ self
+ ].
+ (builder := uiBuilder) isNil ifTrue:[
+ builder := UIBuilder new isEditing:true.
+ builder showDefaults:true.
+ ].
- specification buildViewFor:builder in:self.
+ specification buildViewFor:builder in:self.
- subViews do:[:v|
- (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[
- v borderWidth:1.
- ]
- ].
- self shown ifTrue:[
- self realizeAllSubViews.
- inputView raise
- ]
+ subViews do:[:v|
+ (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[
+ v borderWidth:1.
+ ]
+ ].
+ self shown ifTrue:[
+ self realizeAllSubViews.
+ inputView raise
+ ]
] ifFalse:[
- specification := nil
+ specification := nil
]
-
-
-
! !
!UIGalleryView::Canvas methodsFor:'building'!