--- a/TabView.st	Fri May 21 19:24:52 1999 +0200
+++ b/TabView.st	Fri May 21 20:01:23 1999 +0200
@@ -268,45 +268,45 @@
     |hasChanged newSel model|
 
     aList size == list size ifTrue:[
-	list notNil ifTrue:[
-	    list keysAndValuesDo:[:aKey :aTab|
-		(aTab label) = (aList at:aKey) ifFalse:[
-		    hasChanged := true
-		]
-	    ]
-	].
-	hasChanged == true ifFalse:[^ self ].
+        list notNil ifTrue:[
+            list keysAndValuesDo:[:aKey :aTab|
+                (aTab label) = (aList at:aKey) ifFalse:[
+                    hasChanged := true
+                ]
+            ]
+        ].
+        hasChanged == true ifFalse:[^ self ].
     ].
 
     self removeListDependencies.
 
     aList size ~~ 0 ifTrue:[
-	(newSel := self tabAt:selection) notNil ifTrue:[
-	    newSel := newSel printableLabel
-	].
-	list := (tabStyle at:#widget) labels:aList for:self.
+        (newSel := self tabAt:selection) notNil ifTrue:[
+            newSel := newSel printableLabel
+        ].
+        list := (tabStyle at:#widget) labels:aList for:self.
 
-	list do:[:aTab|
-	    (model := aTab model) notNil ifTrue:[
-		model addDependent:self
-	    ]
-	].
+        list do:[:aTab|
+            (model := aTab model) notNil ifTrue:[
+                model addDependent:self
+            ]
+        ].
 
-	newSel notNil ifTrue:[
-	    (newSel := list findFirst:[:aTab| aTab printableLabel = newSel]) == 0 ifTrue:[
-		newSel := nil
-	    ]
-	].
+        newSel notNil ifTrue:[
+            (newSel := list findFirst:[:aTab| aTab printableLabel = newSel]) == 0 ifTrue:[
+                newSel := nil
+            ]
+        ].
     ] ifFalse:[
-	list := nil.
+        list := nil.
     ].
     selection := newSel.
 
     self shown ifTrue:[
-	self recomputeList.
-	self invalidateRepairNow:true.
-	self changed:#preferredExtent
+        self recomputeList.
+        self invalidateRepairNow:true
     ].
+    self changed:#preferredExtent
 !
 
 oneTabPerLine
@@ -874,19 +874,19 @@
     super sizeChanged:how.
 
     list size ~~ 0 ifTrue:[
-	shown ifTrue:[
-	    self invalidate
-	].
+        shown ifTrue:[
+            self invalidate
+        ].
 
-	extent := super extent.
-	delta  := oldExtent - extent.
+        extent := super extent.
+        delta  := oldExtent - extent.
 
-	((dX := delta x) > 1 or:[dX < -1 
-	or:[(dY := delta y) > 1 or:[dY < -1]]]) ifTrue:[
-	    oldExtent := extent.
-	    self recomputeList.
-	    self changed:#preferredExtent.
-	].
+        ((dX := delta x) > 1 or:[dX < -1 
+        or:[(dY := delta y) > 1 or:[dY < -1]]]) ifTrue:[
+            oldExtent := extent.
+            self recomputeList.
+            self changed:#preferredExtent.
+        ].
     ].
 
     "Modified: / 22.4.1998 / 14:20:31 / cg"
@@ -1366,5 +1366,5 @@
 !TabView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.44 1999-05-20 17:28:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/TabView.st,v 1.45 1999-05-21 18:01:23 cg Exp $'
 ! !