hg/stx-libwidg: MultiSelectionInList.st@a9188bedbfb9 (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.
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	51	l isNil ifTrue:[^ self zeroIndex]. "/ mhmh - no list; what should we do here ?
537 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"
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	59	"Modified: 20.4.1996 / 13:14:29 / 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
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	67	"/
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	68	"/ for your convenience: allow 0 and nil as empty
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	69	"/ selections
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	70	"/
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	71	(anObjectList isNil or:[anObjectList == 0]) ifTrue:[
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	72	^ self selectionIndex:#()
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	73	].
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	74
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	75	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	76	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	77
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	78	indizes := OrderedCollection new.
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	79	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	80	\|idx\|
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	81
537 21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	82	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	83	idx ~~ 0 ifTrue:[
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	84	indizes add:idx
21fc632b22fe dont err when selection is set, but there is no list Claus Gittinger <cg@exept.de> parents: 536 diff changeset	85	].
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	86	].
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	87	^ self selectionIndex:indizes
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	88
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	89	"Created: 26.10.1995 / 16:40:24 / cg"
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	90	"Modified: 25.4.1996 / 09:07:44 / cg"
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	91	! !
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	92
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	93	!MultiSelectionInList methodsFor:'queries'!
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	94
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	95	zeroIndex
fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	96	"return the selectionIndex returned when nothing is selected.
fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	97	Here, an empty collection is returned."
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	98
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	99	^ Array new
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	100
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	101	"Modified: 20.4.1996 / 13:12:58 / cg"
166 ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	102	! !
ad76f0f28698 . Claus Gittinger <cg@exept.de> parents: 129 diff changeset	103
114 5d736ee65276 Initial revision claus parents: diff changeset	104	!MultiSelectionInList methodsFor:'selections'!
5d736ee65276 Initial revision claus parents: diff changeset	105
5d736ee65276 Initial revision claus parents: diff changeset	106	selections
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	107	"obsolete - almost the same as selection"
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	108
114 5d736ee65276 Initial revision claus parents: diff changeset	109	\|selectionIndices\|
5d736ee65276 Initial revision claus parents: diff changeset	110
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	111	self obsoleteMethodWarning.
a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	112
293 ab897211c99c * empty log message * Claus Gittinger <cg@exept.de> parents: 174 diff changeset	113	selectionIndices := selectionIndexHolder value.
536 fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	114	(selectionIndices isNil
563 fa563ad7630c zeroIndex stuff Claus Gittinger <cg@exept.de> parents: 537 diff changeset	115	or:[selectionIndices == 0
536 fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	116	or:[selectionIndices isEmpty]]) ifFalse:[
fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	117	^ selectionIndices collect:[:index \| listHolder value at:index]
114 5d736ee65276 Initial revision claus parents: diff changeset	118	].
360 c057423ecdd0 literal array overwrite fixed Claus Gittinger <cg@exept.de> parents: 293 diff changeset	119	^ Array new
536 fd1b723e69b6 checkin from browser Claus Gittinger <cg@exept.de> parents: 526 diff changeset	120
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	121	"Modified: 25.4.1996 / 09:09:45 / cg"
114 5d736ee65276 Initial revision claus parents: diff changeset	122	! !
5d736ee65276 Initial revision claus parents: diff changeset	123
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	124	!MultiSelectionInList class methodsFor:'documentation'!
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	125
8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	126	version
579 a9188bedbfb9 commentary & backward compatibility fix Claus Gittinger <cg@exept.de> parents: 563 diff changeset	127	^ '$Header: /cvs/stx/stx/libwidg/MultiSelectionInList.st,v 1.11 1996-04-25 07:56:58 cg Exp $'
526 8203430fbadd oops - clearing selection was wrong in MultiSelectionInList ca parents: 360 diff changeset	128	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 25 Apr 1996 09:56:58 +0200
changeset 579	a9188bedbfb9
parent 563	fa563ad7630c
child 583	2ec13b7ceba5
permissions	-rw-r--r--