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

     2 

     3 Model subclass:#SelectionInList

     4 	 instanceVariableNames:'listHolder indexHolder'

     5 	 classVariableNames:''

     6 	 poolDictionaries:''

     7 	 category:'Interface-Framework'

     8 !

     9 

    10 !SelectionInList class methodsFor:'instance creation'!

    11 

    12 new

    13     ^ super new initialize

    14 !

    15 

    16 with:aList 

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

    18 ! !

    19 

    20 !SelectionInList methodsFor:'initialization'!

    21 

    22 initialize

    23     listHolder := ValueHolder new.

    24     indexHolder := ValueHolder new.

    25 ! !

    26 

    27 !SelectionInList methodsFor:'accessing'!

    28 

    29 listHolder

    30     ^ listHolder

    31 !

    32 

    33 selectionIndexHolder

    34     ^ indexHolder

    35 !

    36 

    37 listHolder:aValueHolder

    38     listHolder := aValueHolder

    39 !

    40 

    41 selectionIndexHolder:aValueHolder

    42     indexHolder := aValueHolder

    43 ! !

    44