hg/stx-libwidg: MultiSelectionInList.st@21fc632b22fe (annotated)

174 d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	1	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	2	COPYRIGHT (c) 1995 by Claus Gittinger
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	3	All Rights Reserved
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	4
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	5	This software is furnished under a license and may be used
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	6	only in accordance with the terms of that license and with the
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	7	inclusion of the above copyright notice. This software may not
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	8	be provided or otherwise made available to, or used by, any
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	9	other person. No title to or ownership of the software is
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	10	hereby transferred.
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	11	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	12
114 5d736ee65276 Initial revision claus parents: diff changeset	13	SelectionInList subclass:#MultiSelectionInList
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	14	instanceVariableNames:''
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	15	classVariableNames:''
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	16	poolDictionaries:''
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	17	category:'Interface-Support-Models'
114 5d736ee65276 Initial revision claus parents: diff changeset	18	!
5d736ee65276 Initial revision claus parents: diff changeset	19
174 d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	20	!MultiSelectionInList class methodsFor:'documentation'!
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	21
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	22	copyright
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	23	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	24	COPYRIGHT (c) 1995 by Claus Gittinger
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	25	All Rights Reserved
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	26
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	27	This software is furnished under a license and may be used
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	28	only in accordance with the terms of that license and with the
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	29	inclusion of the above copyright notice. This software may not
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	30	be provided or otherwise made available to, or used by, any
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	31	other person. No title to or ownership of the software is
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	32	hereby transferred.
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	33	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	34	!
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	35
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	36	documentation
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	37	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	38	Like a selectionInList, but allows for multiple selected items.
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	39	For use as a model for SelectionInListViews, with multipleSelectOk set to true.
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	40	"
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	41	! !
d80a6cc3f9b2 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 166 diff changeset	42
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	43	!MultiSelectionInList methodsFor:'accessing-values'!
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	44
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	45	selection
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	46	"return the selections value (i.e. the entry numbers in the list)"
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	47
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	48	\|l\|
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	49
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	50	l := self list.
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	51	l isNil ifTrue:[^ 0]. "/ mhmh - no list; what should we do here ?
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	52
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	53	^ selectionIndexHolder value
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	54	collect:[:index \|
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	55	l at:index
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	56	]
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	57
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	58	"Created: 26.10.1995 / 16:52:27 / cg"
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	59	"Modified: 16.4.1996 / 15:52:57 / cg"
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	60	!
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	61
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	62	selection:anObjectList
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	63	"set the selection to be anObjectList."
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	64
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	65	\|l indizes\|
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	66
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	67	l := self list.
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	68	l isNil ifTrue:[^ self]. "/ mhmh - no list; what should we do here ?
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	69
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	70	indizes := OrderedCollection new.
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	71	anObjectList do:[:o \|
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	72	\|idx\|
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	73
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	74	idx := l indexOf:o ifAbsent:0.
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	75	idx ~~ 0 ifTrue:[
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	76	indizes add:idx
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	77	].
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	78	].
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	79	^ self selectionIndex:indizes
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	80
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	81	"Created: 26.10.1995 / 16:40:24 / cg"
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	82	"Modified: 16.4.1996 / 15:53:03 / cg"
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	83	! !
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	84
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	85	!MultiSelectionInList methodsFor:'initialization'!
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	86
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	87	initialize
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	88	self listHolder:(nil asValue). "/ could also use an empty collection here
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	89	self selectionIndexHolder:(Array new asValue).
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	90
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	91	"Created: 26.10.1995 / 16:30:22 / cg"
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	92	! !
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	93
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	94	!MultiSelectionInList methodsFor:'private'!
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	95
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	96	clearSelection
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	97	selectionIndexHolder setValue:(Array new).
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	98
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	99
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	100	! !
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	101
114 5d736ee65276 Initial revision claus parents: diff changeset	102	!MultiSelectionInList methodsFor:'selections'!
5d736ee65276 Initial revision claus parents: diff changeset	103
5d736ee65276 Initial revision claus parents: diff changeset	104	selections
5d736ee65276 Initial revision claus parents: diff changeset	105	\|selectionIndices\|
5d736ee65276 Initial revision claus parents: diff changeset	106
293 ab897211c99c * empty log message * Claus Gittinger <cg@exept.de> parents: 174 diff changeset	107	selectionIndices := selectionIndexHolder value.
536 fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	108	(selectionIndices isNil
fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	109	or:[selectionIndices == 0
fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	110	or:[selectionIndices isEmpty]]) ifFalse:[
fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	111	^ selectionIndices collect:[:index \| listHolder value at:index]
114 5d736ee65276 Initial revision claus parents: diff changeset	112	].
360 c057423ecdd0 literal array overwrite fixed Claus Gittinger <cg@exept.de> parents: 293 diff changeset	113	^ Array new
536 fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	114
fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	115	"Modified: 16.4.1996 / 12:15:34 / cg"
114 5d736ee65276 Initial revision claus parents: diff changeset	116	! !
5d736ee65276 Initial revision claus parents: diff changeset	117
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	118	!MultiSelectionInList class methodsFor:'documentation'!
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	119
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	120	version
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	121	^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.9 1996-04-16 18:48:22 cg Exp $'
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	122	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 16 Apr 1996 20:48:22 +0200
changeset 537	21fc632b22fe
parent 536	fd1b723e69b6
child 563	fa563ad7630c
permissions	-rw-r--r--