--- a/SelectionInListView.st	Mon Sep 24 10:04:22 2001 +0200
+++ b/SelectionInListView.st	Wed Sep 26 11:58:18 2001 +0200
@@ -3497,6 +3497,9 @@
 hasSelection
     "return true, if the view has a selection"
 
+    multipleSelectOk ifTrue:[
+        ^ selection size > 0
+    ].
     ^ selection notNil 
 !
 
@@ -4018,5 +4021,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.193 2001-09-08 19:16:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.194 2001-09-26 09:58:18 cg Exp $'
 ! !