--- a/SelectionInListView.st	Thu Apr 09 13:32:29 1998 +0200
+++ b/SelectionInListView.st	Thu Apr 09 13:48:42 1998 +0200
@@ -3272,7 +3272,23 @@
     newSelection notNil ifTrue:[
         (self isValidSelection:newSelection) ifFalse:[
             newSelection := nil
-        ]
+        ].
+        newSelection == 0 ifTrue:[
+            newSelection := nil
+        ] ifFalse:[
+            (newSelection isCollection
+            and:[newSelection size == 0]) ifTrue:[
+                newSelection := nil
+            ]
+        ].
+
+        newSelection notNil ifTrue:[
+            multipleSelectOk ifTrue:[
+                newSelection isCollection ifFalse:[
+                    newSelection := OrderedCollection with:newSelection
+                ]
+            ]
+        ].
     ].
 
     (newSelection = selection) ifTrue: [^ self].
@@ -3299,9 +3315,9 @@
     "
     newSelection notNil ifTrue:[
         multipleSelectOk ifTrue:[
-            newSelection isCollection ifFalse:[
-                selection := OrderedCollection with:newSelection.
-            ].
+"/            newSelection isCollection ifFalse:[
+"/                selection := OrderedCollection with:newSelection.
+"/            ].
             selection do:[:line |
                 self redrawElement:line
             ]
@@ -3495,5 +3511,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.125 1998-03-30 12:06:46 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.126 1998-04-09 11:48:42 ca Exp $'
 ! !