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