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

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

!MultiSelectionInList methodsFor:'selections'!

selections
    |selectionIndices|

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