--- a/SelList.st	Fri Mar 29 03:08:00 1996 +0100
+++ b/SelList.st	Mon Apr 01 20:56:26 1996 +0200
@@ -185,17 +185,17 @@
 
     changedObject == selectionIndexHolder ifTrue:[
 "/        self notifyChange:#selectionIndex
-	self changed:#selectionIndex
+        self changed:#selectionIndex
     ] ifFalse:[
-	changedObject == listHolder ifTrue:[
-	    something == #value ifTrue:[
-		selectionIndexHolder setValue:0.
+        changedObject == listHolder ifTrue:[
+            something == #value ifTrue:[
+                self clearSelection.
 "/                self notifyChange:#list.
 "/                selectionIndexHolder notifyChange:#value
-		self changed:#list.
-		selectionIndexHolder changed:#value
-	    ]
-	]
+                self changed:#list.
+                selectionIndexHolder changed:#value
+            ]
+        ]
     ]
 ! !
 
@@ -236,8 +236,14 @@
     ^ self selectionIndexHolder:aValueHolder
 ! !
 
+!SelectionInList methodsFor:'private'!
+
+clearSelection
+    selectionIndexHolder setValue:0.
+! !
+
 !SelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.8 1996-02-11 11:53:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelList.st,v 1.9 1996-04-01 18:56:16 ca Exp $'
 ! !