MultiSelectionInList.st
changeset 536 fd1b723e69b6
parent 526 8203430fbadd
child 537 21fc632b22fe
--- a/MultiSelectionInList.st	Sat Apr 13 13:42:01 1996 +0200
+++ b/MultiSelectionInList.st	Tue Apr 16 12:15:42 1996 +0200
@@ -98,15 +98,18 @@
     |selectionIndices|
 
     selectionIndices := selectionIndexHolder value.
-    (selectionIndices isNil 
-    or:[selectionIndices isEmpty]) ifFalse:[
-	^ selectionIndices collect:[:index | listHolder value at:index]
+    (selectionIndices isNil
+     or:[selectionIndices == 0
+     or:[selectionIndices isEmpty]]) ifFalse:[
+        ^ selectionIndices collect:[:index | listHolder value at:index]
     ].
     ^ Array new
+
+    "Modified: 16.4.1996 / 12:15:34 / cg"
 ! !
 
 !MultiSelectionInList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.7 1996-04-01 18:56:26 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.8 1996-04-16 10:15:42 cg Exp $'
 ! !