--- a/Tools_ClassList.st	Tue Feb 26 12:10:31 2008 +0100
+++ b/Tools_ClassList.st	Wed Feb 27 13:25:11 2008 +0100
@@ -1550,60 +1550,60 @@
 
     "/ update for a changed class in the classList
     (classes := classList value) size > 0 ifTrue:[
-	(self updateClassesIn:classes) ifTrue:[
-	    found := true
-	].
-	(classes includes:nil) ifTrue:[
+        (self updateClassesIn:classes) ifTrue:[
+            found := true
+        ].
+        (classes includes:nil) ifTrue:[
 self halt:'should not happen'.
-	    classList value:(classes := classes select:[:each | each notNil]).
-	].
+            classList value:(classes := classes select:[:each | each notNil]).
+        ].
     ].
     "/ possibly in the generator
     ((classes := inGeneratorHolder value) isOrderedCollection 
     and:[classes size > 0]) ifTrue:[
-	(self updateClassesIn:classes) ifTrue:[
-	    found := true
-	].
-	(classes includes:nil) ifTrue:[
+        (self updateClassesIn:classes) ifTrue:[
+            found := true
+        ].
+        (classes includes:nil) ifTrue:[
 self halt:'should not happen'.
-	    inGeneratorHolder value:(classes select:[:each | each notNil]).
-	]
+            inGeneratorHolder value:(classes select:[:each | each notNil]).
+        ]
     ].
     "/ and in the selection
     (classes := self selectedClasses value) size > 0 ifTrue:[
-	(self updateClassesIn:classes) ifTrue:[
-	    found := true.
-	    foundInSelection := true.
-	].
-	(classes includes:nil) ifTrue:[
+        (self updateClassesIn:classes) ifTrue:[
+            found := true.
+            foundInSelection := true.
+        ].
+        (classes includes:nil) ifTrue:[
 self halt:'should not happen'.
-	    self selectedClasses value:(classes select:[:each | each notNil]).
-	]
+            self selectedClasses value:(classes select:[:each | each notNil]).
+        ]
     ].
     "/ and in the last selection
     (classes := lastSelectedClasses) size > 0 ifTrue:[
-	(self updateClassesIn:classes) ifTrue:[
-	    found := true
-	].
-	(classes includes:nil) ifTrue:[
-self halt:'should not happen'.
-	    lastSelectedClasses := (classes select:[:each | each notNil]).
-	]
+        (self updateClassesIn:classes) ifTrue:[
+            found := true
+        ].
+        (classes includes:nil) ifTrue:[
+"/ self halt:'should not happen'.
+            lastSelectedClasses := (classes select:[:each | each notNil]).
+        ]
     ].
 
     found ifFalse:[
-	"/ could be a new class (or no-longer autolaoded one).
-	listValid ifTrue:[
-	    self enqueueDelayedUpdateList.
-	].
-	listValid := false.
+        "/ could be a new class (or no-longer autolaoded one).
+        listValid ifTrue:[
+            self enqueueDelayedUpdateList.
+        ].
+        listValid := false.
     ].
     foundInSelection ifTrue:[
-	"/ force update of output generator
-	self selectedClasses 
-	    removeDependent:self;
-	    changed;
-	    addDependent:self.
+        "/ force update of output generator
+        self selectedClasses 
+            removeDependent:self;
+            changed;
+            addDependent:self.
     ].
 
     "Modified: / 25.2.2000 / 23:54:19 / cg"
@@ -1643,5 +1643,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.28 2008-01-22 22:33:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.29 2008-02-27 12:25:11 cg Exp $'
 ! !