1 'From Smalltalk/X, Version:2.10.5 on 25-mar-1995 at 12:12:09 pm'!

     2 

     3 SelectionInList subclass:#MultiSelectionInList

     4 	 instanceVariableNames:''

     5 	 classVariableNames:''

     6 	 poolDictionaries:''

     7 	 category:'Interface-Framework'

     8 !

     9 

    10 !MultiSelectionInList methodsFor:'selections'!

    11 

    12 selections

    13     |selectionIndices|

    14 

    15     selectionIndices := indexHolder value.

    16     (selectionIndices isNil 

    17     or:[selectionIndices isEmpty]) ifFalse:[

    18         ^ selectionIndices collect:[:index | listHolder value at:index]

    19     ].

    20     ^ #()

    21 ! !

    22