--- a/Tools_ClassList.st	Tue Mar 28 19:44:50 2006 +0200
+++ b/Tools_ClassList.st	Tue Mar 28 19:44:59 2006 +0200
@@ -1499,6 +1499,7 @@
                             thenSelect:[:index | index ~~ 0].
 
         selectedClassNameIndicesHolder := self selectedClassNameIndices.
+
         ((selectedClassNameIndicesHolder value size ~~ self selectedClasses value size)
         or:[newSelectionIndices ~= selectedClassNameIndicesHolder value])
         ifTrue:[
@@ -1597,6 +1598,13 @@
 
 !ClassList methodsFor:'setup'!
 
+autoSelect:aBoolean
+    autoSelect ~~ aBoolean ifTrue:[
+        autoSelect := aBoolean.
+        classList value:nil.
+    ].
+!
+
 postBuildWith:aBuilder
     |classListView|
 
@@ -1622,5 +1630,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.13 2006-03-27 17:10:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.14 2006-03-28 17:44:59 cg Exp $'
 ! !