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

Model subclass:#SelectionInList
	 instanceVariableNames:'listHolder indexHolder'
	 classVariableNames:''
	 poolDictionaries:''
	 category:'Interface-Framework'
!

!SelectionInList class methodsFor:'instance creation'!

new
    ^ super new initialize
!

with:aList 
    ^ self new listHolder:(ValueHolder with:aList)
! !

!SelectionInList methodsFor:'initialization'!

initialize
    listHolder := ValueHolder new.
    indexHolder := ValueHolder new.
! !

!SelectionInList methodsFor:'accessing'!

listHolder
    ^ listHolder
!

selectionIndexHolder
    ^ indexHolder
!

listHolder:aValueHolder
    listHolder := aValueHolder
!

selectionIndexHolder:aValueHolder
    indexHolder := aValueHolder
! !