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

SelectionInList subclass:#MultiSelectionInList
	 instanceVariableNames:''
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Interface-Framework'
!

!MultiSelectionInList methodsFor:'selections'!

selections
    |selectionIndices|

    selectionIndices := indexHolder value.
    (selectionIndices isNil 
    or:[selectionIndices isEmpty]) ifFalse:[
        ^ selectionIndices collect:[:index | listHolder value at:index]
    ].
    ^ #()
! !