Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
authorclaus
Fri, 31 Mar 1995 05:12:44 +0200
changeset 114 5d736ee65276
parent 113 fdd18cfff57e
child 115 57c0ee9a56c0
Initial revision
MSelList.st file | annotate | diff | comparison | revisions
MultiSelectionInList.st file | annotate | diff | comparison | revisions
SelList.st file | annotate | diff | comparison | revisions
SelectionInList.st file | annotate | diff | comparison | revisions 
--- /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]
+    ].
+    ^ #()
+! !
+
--- /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]
+    ].
+    ^ #()
+! !
+
--- /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
+! !
+
--- /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
+! !
+
hg/stx-libwidg