# HG changeset patch
# User claus
# Date 796619564 -7200
# Node ID 5d736ee6527689e78e8eff7d7a9399241bb62472
# Parent  fdd18cfff57eccf3825e1ee7a5f3064e6276ad79
Initial revision

diff -r fdd18cfff57e -r 5d736ee65276 MSelList.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MSelList.st	Fri Mar 31 05:12:44 1995 +0200
@@ -0,0 +1,22 @@
+'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]
+    ].
+    ^ #()
+! !
+
diff -r fdd18cfff57e -r 5d736ee65276 MultiSelectionInList.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MultiSelectionInList.st	Fri Mar 31 05:12:44 1995 +0200
@@ -0,0 +1,22 @@
+'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]
+    ].
+    ^ #()
+! !
+
diff -r fdd18cfff57e -r 5d736ee65276 SelList.st
--- /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
+! !
+
diff -r fdd18cfff57e -r 5d736ee65276 SelectionInList.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SelectionInList.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
+! !
+