--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SelList.st	Fri Mar 31 05:12:44 1995 +0200
@@ -0,0 +1,44 @@
+'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
+! !
+