hg/stx-libwidg2: SelectionInTree.st@ff5b146ca277 (annotated)

458 e4b907c8f0ce intitial checkin ca parents: diff changeset	1	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
e4b907c8f0ce intitial checkin ca parents: diff changeset	3	All Rights Reserved
e4b907c8f0ce intitial checkin ca parents: diff changeset	4
e4b907c8f0ce intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
e4b907c8f0ce intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
e4b907c8f0ce intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
e4b907c8f0ce intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
e4b907c8f0ce intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
e4b907c8f0ce intitial checkin ca parents: diff changeset	10	hereby transferred.
e4b907c8f0ce intitial checkin ca parents: diff changeset	11	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	12
e4b907c8f0ce intitial checkin ca parents: diff changeset	13
e4b907c8f0ce intitial checkin ca parents: diff changeset	14
e4b907c8f0ce intitial checkin ca parents: diff changeset	15	Model subclass:#SelectionInTree
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	16	instanceVariableNames:'root list selection showRoot contentsAction labelAction
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	17	childrenAction iconAction indicatorList indicatorTask accessLock'
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	18	classVariableNames:''
e4b907c8f0ce intitial checkin ca parents: diff changeset	19	poolDictionaries:''
e4b907c8f0ce intitial checkin ca parents: diff changeset	20	category:'Interface-Support-Models'
e4b907c8f0ce intitial checkin ca parents: diff changeset	21	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	22
e4b907c8f0ce intitial checkin ca parents: diff changeset	23	!SelectionInTree class methodsFor:'documentation'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	24
e4b907c8f0ce intitial checkin ca parents: diff changeset	25	copyright
e4b907c8f0ce intitial checkin ca parents: diff changeset	26	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	27	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
e4b907c8f0ce intitial checkin ca parents: diff changeset	28	All Rights Reserved
e4b907c8f0ce intitial checkin ca parents: diff changeset	29
e4b907c8f0ce intitial checkin ca parents: diff changeset	30	This software is furnished under a license and may be used
e4b907c8f0ce intitial checkin ca parents: diff changeset	31	only in accordance with the terms of that license and with the
e4b907c8f0ce intitial checkin ca parents: diff changeset	32	inclusion of the above copyright notice. This software may not
e4b907c8f0ce intitial checkin ca parents: diff changeset	33	be provided or otherwise made available to, or used by, any
e4b907c8f0ce intitial checkin ca parents: diff changeset	34	other person. No title to or ownership of the software is
e4b907c8f0ce intitial checkin ca parents: diff changeset	35	hereby transferred.
e4b907c8f0ce intitial checkin ca parents: diff changeset	36	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	37
e4b907c8f0ce intitial checkin ca parents: diff changeset	38
e4b907c8f0ce intitial checkin ca parents: diff changeset	39	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	40
e4b907c8f0ce intitial checkin ca parents: diff changeset	41	documentation
e4b907c8f0ce intitial checkin ca parents: diff changeset	42	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	43	list and selection holder for hierarchical list structures. Used
e4b907c8f0ce intitial checkin ca parents: diff changeset	44	to buildup file-trees, class tress etc.
e4b907c8f0ce intitial checkin ca parents: diff changeset	45
e4b907c8f0ce intitial checkin ca parents: diff changeset	46	Especially suited for use with SelectionInTreeView.
e4b907c8f0ce intitial checkin ca parents: diff changeset	47
e4b907c8f0ce intitial checkin ca parents: diff changeset	48	[See also:]
e4b907c8f0ce intitial checkin ca parents: diff changeset	49	TreeItem
e4b907c8f0ce intitial checkin ca parents: diff changeset	50	SelectionInTreeView
e4b907c8f0ce intitial checkin ca parents: diff changeset	51
e4b907c8f0ce intitial checkin ca parents: diff changeset	52	[Author:]
e4b907c8f0ce intitial checkin ca parents: diff changeset	53	W. Olberding
e4b907c8f0ce intitial checkin ca parents: diff changeset	54	Claus Atzkern
e4b907c8f0ce intitial checkin ca parents: diff changeset	55	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	56	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	57
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	58	!SelectionInTree class methodsFor:'instance creation'!
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	59
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	60	new
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	61	^ super new initialize
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	62	! !
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	63
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	64	!SelectionInTree methodsFor:'accessing'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	65
e4b907c8f0ce intitial checkin ca parents: diff changeset	66	list
e4b907c8f0ce intitial checkin ca parents: diff changeset	67	"get list oc currently shown objects
e4b907c8f0ce intitial checkin ca parents: diff changeset	68	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	69	^ list
e4b907c8f0ce intitial checkin ca parents: diff changeset	70	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	71
e4b907c8f0ce intitial checkin ca parents: diff changeset	72	root
e4b907c8f0ce intitial checkin ca parents: diff changeset	73	"get the root node
e4b907c8f0ce intitial checkin ca parents: diff changeset	74	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	75	^ root
e4b907c8f0ce intitial checkin ca parents: diff changeset	76	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	77
509 c6c9f5ecb977 add method expand ca parents: 496 diff changeset	78	root:aRoot
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	79	"set a new root
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	80	"
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	81	root notNil ifTrue: [
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	82	root tree: nil
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	83	].
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	84	self stopRunningTasks.
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	85
515 2c09c8688bb8 set parent of root allways to nil ca parents: 509 diff changeset	86	(root := aRoot) notNil ifTrue:[
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	87	root parent:nil.
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	88	root tree: self.
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	89	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	90	self listFromRoot.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	91	self changed:#list.
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	92	!
64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	93
64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	94	value
64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	95	^ list
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	96	! !
491 c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	97
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	98	!SelectionInTree methodsFor:'accessing behavior'!
d511fde77222 show or hide root directory ca parents: 491 diff changeset	99
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	100	childrenAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	101	"get children action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	102	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	103	^childrenAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	104	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	105
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	106	childrenAction:aBlock
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	107	"set children action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	108	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	109	childrenAction := aBlock.
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	110	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	111
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	112	contentsAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	113	"get contents action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	114	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	115	^contentsAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	116	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	117
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	118	contentsAction:aBlock
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	119	"set contents action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	120	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	121	contentsAction := aBlock.
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	122	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	123
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	124	iconAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	125	"get icon action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	126	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	127	^iconAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	128	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	129
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	130	iconAction:aBlock
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	131	"set icon action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	132	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	133	iconAction := aBlock.
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	134	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	135
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	136	labelAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	137	"get label action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	138	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	139	^labelAction
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	140	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	141
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	142	labelAction:aBlock
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	143	"set label action block
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	144	"
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	145	labelAction := aBlock.
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	146	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	147
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	148	showRoot
d511fde77222 show or hide root directory ca parents: 491 diff changeset	149	"list with or without root
d511fde77222 show or hide root directory ca parents: 491 diff changeset	150	"
d511fde77222 show or hide root directory ca parents: 491 diff changeset	151	^ showRoot
491 c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	152	!
c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	153
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	154	showRoot:aState
d511fde77222 show or hide root directory ca parents: 491 diff changeset	155	"list with or without root
491 c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	156	"
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	157	aState ~~ showRoot ifTrue:[
d511fde77222 show or hide root directory ca parents: 491 diff changeset	158	showRoot := aState.
491 c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	159
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	160	root notNil ifTrue:[
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	161	aState ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	162	list addFirst:root.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	163	self changed:#insertCollection: with:(Array with:1 with:1 with:nil).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	164	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	165	list removeFirst.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	166	self changed:#removeFrom: with:(Array with:1 with:1 with:nil).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	167	].
491 c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	168	].
c7d57a5e7a21 change root, do not remove children ca parents: 482 diff changeset	169	].
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	170	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	171
e4b907c8f0ce intitial checkin ca parents: diff changeset	172	!SelectionInTree methodsFor:'accessing hierarchy'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	173
e4b907c8f0ce intitial checkin ca parents: diff changeset	174	collapse:something
e4b907c8f0ce intitial checkin ca parents: diff changeset	175	"collapse a node or collection of nodes
e4b907c8f0ce intitial checkin ca parents: diff changeset	176	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	177	\|listChanged\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	178
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	179	listChanged := false.
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	180
e4b907c8f0ce intitial checkin ca parents: diff changeset	181	self each:something do:[:aNode\|
e4b907c8f0ce intitial checkin ca parents: diff changeset	182	aNode isCollapsable ifTrue:[
e4b907c8f0ce intitial checkin ca parents: diff changeset	183	aNode collapse.
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	184	listChanged := true
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	185	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	186	].
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	187	listChanged ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	188	self listFromRoot.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	189	self changed:#list.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	190	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	191
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	192	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	193
509 c6c9f5ecb977 add method expand ca parents: 496 diff changeset	194	expand
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	195	"expand the root
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	196	"
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	197	self expand:root
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	198	!
c6c9f5ecb977 add method expand ca parents: 496 diff changeset	199
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	200	expand:something
e4b907c8f0ce intitial checkin ca parents: diff changeset	201	"expand a node or collection of nodes
e4b907c8f0ce intitial checkin ca parents: diff changeset	202	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	203	\|listChanged\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	204
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	205	listChanged := false.
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	206
e4b907c8f0ce intitial checkin ca parents: diff changeset	207	self each:something do:[:aNode\|
e4b907c8f0ce intitial checkin ca parents: diff changeset	208	aNode isExpandable ifTrue:[
e4b907c8f0ce intitial checkin ca parents: diff changeset	209	aNode expand.
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	210	listChanged := true
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	211	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	212	].
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	213	listChanged ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	214	self listFromRoot.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	215	self changed:#list.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	216	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	217	! !
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	218
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	219	!SelectionInTree methodsFor:'accessing hierarchy new'!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	220
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	221	doCollapse:something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	222	"collapse all children under an item or a sequence of items;
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	223	if the list changed, notifications are raised
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	224	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	225	self each:something do:[:anItem\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	226	self collapseItem:anItem do:[ anItem collapse ]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	227	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	228	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	229
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	230	doCollapseAll:something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	231	"collapse all children and subChildren under an item or sequence of items;
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	232	if the list changed, notifications are raised
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	233	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	234	self each:something do:[:anItem\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	235	self collapseItem:anItem do:[ anItem collapseAll ]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	236	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	237	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	238
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	239	doExpand:something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	240	"expand all children under an item or collection of items;
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	241	if the list changed, notifications are raised
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	242	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	243	self each:something do:[:anItem\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	244	self expandItem:anItem do:[anItem expand]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	245	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	246	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	247
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	248	doExpandAll:something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	249	"expand all children and subChildren under an item or sequence of items;
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	250	if the list changed, notifications are raised
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	251	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	252	self each:something do:[:anItem\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	253	self expandItem:anItem do:[anItem expandAll]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	254	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	255	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	256
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	257	doMakeVisible:something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	258	"make an item or list of items to become visible
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	259	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	260	\|anchor parent\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	261
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	262	self each:something do:[:anItem\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	263	parent := anItem.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	264	anchor := nil.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	265
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	266	[(parent := parent parent) notNil] whileTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	267	parent hidden ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	268	anchor notNil ifTrue:[ anchor expand ].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	269	anchor := parent.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	270	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	271	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	272	anchor notNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	273	self expandItem:anchor do:[anchor expand]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	274	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	275	]
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	276	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	277
e4b907c8f0ce intitial checkin ca parents: diff changeset	278	!SelectionInTree methodsFor:'adding & removing'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	279
e4b907c8f0ce intitial checkin ca parents: diff changeset	280	add:something after:aChild
e4b907c8f0ce intitial checkin ca parents: diff changeset	281	"add a node or collection of nodes to parent after a child
e4b907c8f0ce intitial checkin ca parents: diff changeset	282	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	283	"add a node or collection of nodes to after a child
e4b907c8f0ce intitial checkin ca parents: diff changeset	284	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	285	\|p\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	286
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	287	(aChild notNil and:[(p := aChild parent) notNil]) ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	288	self add:something afterIndex:(p indexOfChild:aChild) below:p
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	289	]
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	290
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	291	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	292
e4b907c8f0ce intitial checkin ca parents: diff changeset	293	add:something afterIndex:anIndex below:aParent
e4b907c8f0ce intitial checkin ca parents: diff changeset	294	"add a node or collection of nodes to parent after an index
e4b907c8f0ce intitial checkin ca parents: diff changeset	295	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	296	self add:something beforeIndex:(anIndex + 1) below:aParent
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	297	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	298
e4b907c8f0ce intitial checkin ca parents: diff changeset	299	add:something before:aChild
e4b907c8f0ce intitial checkin ca parents: diff changeset	300	"add a node or collection of nodes to before a child
e4b907c8f0ce intitial checkin ca parents: diff changeset	301	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	302	\|p\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	303
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	304	(aChild notNil and:[(p := aChild parent) notNil]) ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	305	self add:something beforeIndex:(p indexOfChild:aChild) below:p
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	306	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	307	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	308
e4b907c8f0ce intitial checkin ca parents: diff changeset	309	add:something beforeIndex:anIndex below:aParent
e4b907c8f0ce intitial checkin ca parents: diff changeset	310	"add a node or collection of nodes to parent before an index
e4b907c8f0ce intitial checkin ca parents: diff changeset	311	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	312	\|children start index size pList\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	313
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	314	( aParent isNil
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	315	or:[something isNil
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	316	or:[(something isCollection and:[something isEmpty])]]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	317	) ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	318	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	319	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	320
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	321	(start := self indexOf:aParent) == 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	322	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	323	"/ parent not visible; list not changed
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	324	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	325	aParent add:something beforeIndex:anIndex.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	326	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	327	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	328
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	329	aParent shown ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	330	aParent add:something beforeIndex:anIndex.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	331	self changed:#at: with:start.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	332	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	333	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	334	children := aParent children.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	335
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	336	(children isEmpty or:[anIndex <= 1]) ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	337	index := 1.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	338	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	339	size := children size.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	340
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	341	anIndex > size ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	342	index := size + 1.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	343	start := aParent numberOfAllVisibleChildren + start.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	344	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	345	index := anIndex.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	346	start := (self indexOf:(children at:index)) - 1.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	347	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	348	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	349	aParent add:something beforeIndex:index.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	350
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	351	(start := start + 1) == 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	352	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	353	"/ not visible
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	354	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	355	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	356	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	357	pList := OrderedCollection new:2048.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	358
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	359	self each:something do:[:aNode\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	360	pList add:aNode.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	361	aNode addVisibleChildrenTo:pList
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	362	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	363	pList isEmpty ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	364	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	365	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	366	list addAll:pList beforeIndex:start.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	367
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	368	self changed:#insertCollection:
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	369	with:(Array with:start with:pList size with:aParent).
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	370
e4b907c8f0ce intitial checkin ca parents: diff changeset	371	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	372
e4b907c8f0ce intitial checkin ca parents: diff changeset	373	add:something below:aParent
e4b907c8f0ce intitial checkin ca parents: diff changeset	374	"add a node or collection of nodes to parent
e4b907c8f0ce intitial checkin ca parents: diff changeset	375	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	376	aParent notNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	377	self add:something beforeIndex:(aParent numberOfChildren + 1) below:aParent
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	378	]
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	379	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	380
e4b907c8f0ce intitial checkin ca parents: diff changeset	381	remove:something
e4b907c8f0ce intitial checkin ca parents: diff changeset	382	"remove a node or collection of nodes
e4b907c8f0ce intitial checkin ca parents: diff changeset	383	"
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	384	\|node coll index loNums loItem start size parent stop\|
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	385
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	386	something isNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	387	^ something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	388	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	389	loNums := SortedCollection new.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	390
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	391	self each:something do:[:el\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	392	node := el isNumber ifTrue:[list at:el ifAbsent:nil]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	393	ifFalse:[el].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	394
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	395	node notNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	396	self stopIndicatorValidationFor:node.
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	397
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	398	node parent isNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	399	"/ remove all including root
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	400	node == root ifTrue:[ self root:nil ].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	401	^ something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	402	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	403	index := self indexOf:node.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	404
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	405	index == 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	406	"/ not visible
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	407	node parent removeChild:node
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	408	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	409	loNums add:index
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	410	].
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	411	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	412	].
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	413
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	414	loNums isEmpty ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	415	"/ nothing visible changed
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	416	^ something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	417	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	418	loItem := OrderedCollection new.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	419	loNums do:[:i\| loItem add:(list at:i)].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	420
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	421	loItem do:[:aNode\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	422	start := self indexOf:aNode.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	423
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	424	start ~~ 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	425	parent := aNode parent.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	426	size := 1 + aNode numberOfAllVisibleChildren.
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	427	stop := start + size - 1.
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	428	parent remove:aNode.
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	429	list removeFromIndex:start toIndex:stop.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	430
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	431	self changed:#removeFrom:
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	432	with:(Array with:start with:stop with:parent).
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	433	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	434	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	435	^ something
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	436	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	437
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	438	removeAllOtherThanRoot
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	439	"remove all other than the root
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	440	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	441	\|listChanged\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	442
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	443	root notNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	444	listChanged := root isCollapsable.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	445	root children:(OrderedCollection new).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	446
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	447	listChanged ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	448	self listFromRoot.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	449	self changed:#list
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	450	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	451	]
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	452	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	453
e4b907c8f0ce intitial checkin ca parents: diff changeset	454	removeIndex:something
e4b907c8f0ce intitial checkin ca parents: diff changeset	455	"remove a node at index or collection of indexed nodes
e4b907c8f0ce intitial checkin ca parents: diff changeset	456	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	457	self remove:something
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	458	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	459
e4b907c8f0ce intitial checkin ca parents: diff changeset	460	removeSelection
e4b907c8f0ce intitial checkin ca parents: diff changeset	461	"remove selected nodes
e4b907c8f0ce intitial checkin ca parents: diff changeset	462	"
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	463	\|sel\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	464
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	465	sel := self selectionIndex.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	466	self selectionIndex:nil.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	467	self remove:sel.
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	468	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	469
758 0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	470	!SelectionInTree methodsFor:'change & update'!
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	471
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	472	invalidate
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	473	"called; something changed what requires a redraw but no recomputation.
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	474	for example a name
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	475	"
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	476	self dependents do:[:aDependent\|
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	477	aDependent isView ifTrue:[ aDependent invalidate ]
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	478	].
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	479
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	480
762 df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	481	!
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	482
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	483	update:something with:aParameter from:aModel
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	484
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	485	self dependents do:[:aDependent\|
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	486	aDependent update:something with:aParameter from:aModel
df337e82f064 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 758 diff changeset	487	]
758 0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	488	! !
0f0b16a16fa7 add method: #invalidate ca parents: 585 diff changeset	489
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	490	!SelectionInTree methodsFor:'enumerating'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	491
e4b907c8f0ce intitial checkin ca parents: diff changeset	492	each:something do:aBlock
e4b907c8f0ce intitial checkin ca parents: diff changeset	493	"evaluate a block for something or in case of a collection for each
e4b907c8f0ce intitial checkin ca parents: diff changeset	494	element in the collection
e4b907c8f0ce intitial checkin ca parents: diff changeset	495	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	496	something notNil ifTrue:[
e4b907c8f0ce intitial checkin ca parents: diff changeset	497	something isCollection ifTrue:[something do:[:el\|aBlock value:el]]
e4b907c8f0ce intitial checkin ca parents: diff changeset	498	ifFalse:[aBlock value:something]
e4b907c8f0ce intitial checkin ca parents: diff changeset	499	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	500
e4b907c8f0ce intitial checkin ca parents: diff changeset	501	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	502
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	503	!SelectionInTree methodsFor:'initialization'!
d511fde77222 show or hide root directory ca parents: 491 diff changeset	504
d511fde77222 show or hide root directory ca parents: 491 diff changeset	505	initialize
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	506
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	507	showRoot := true.
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	508	indicatorList := OrderedCollection new.
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	509	accessLock := Semaphore forMutualExclusion.
842 636d8a543c35 call clearContents to reinitialize the list ca parents: 811 diff changeset	510	list := OrderedCollection new:128.
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	511	super initialize.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	512
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	513	! !
d511fde77222 show or hide root directory ca parents: 491 diff changeset	514
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	515	!SelectionInTree methodsFor:'private'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	516
e4b907c8f0ce intitial checkin ca parents: diff changeset	517	recomputeList
e4b907c8f0ce intitial checkin ca parents: diff changeset	518	"Travers the tree and build a new list."
e4b907c8f0ce intitial checkin ca parents: diff changeset	519
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	520	self listFromRoot.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	521	self changed:#list.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	522	! !
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	523
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	524	!SelectionInTree methodsFor:'private hierarchy'!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	525
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	526	collapseItem:anItem do:collapseBlock
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	527	"collapse all children under an item; raise a notification if
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	528	the list changed
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	529	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	530	\|start stop size\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	531
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	532	anItem isCollapsable ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	533	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	534	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	535
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	536	(start := self indexOf:anItem) == 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	537	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	538	"/ item not visible
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	539	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	540	collapseBlock value.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	541	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	542	size := anItem numberOfAllVisibleChildren.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	543	collapseBlock value.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	544
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	545	size == 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	546	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	547	"/ no children before; list not changed
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	548	"/
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	549	self changed:#at: with:start
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	550	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	551	stop := start + size.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	552	start := start + 1.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	553	list removeFromIndex:start toIndex:stop.
860 64d52b8e3dbd bug fix in remove: ca parents: 857 diff changeset	554	self changed:#removeFrom: with:(Array with:start with:stop with:anItem).
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	555	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	556	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	557	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	558
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	559	expandItem:anItem do:expandBlock
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	560	"expand all children under an item; raise a notification if
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	561	the list changed
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	562	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	563	\|start size pList\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	564
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	565	anItem isExpandable ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	566	^ self
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	567	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	568	expandBlock value.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	569
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	570	(start := self indexOf:anItem) ~~ 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	571	anItem addVisibleChildrenTo:(pList := OrderedCollection new:2048).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	572
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	573	(size := pList size) ~~ 0 ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	574	start := 1 + start.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	575	list addAll:pList beforeIndex:start.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	576
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	577	self changed:#insertCollection:
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	578	with:(Array with:start with:size with:anItem).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	579	] ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	580	self changed:#at: with:start
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	581	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	582	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	583	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	584
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	585	listFromRoot
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	586	"Travers the tree and build a new list;
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	587	no change notification is raised
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	588	"
842 636d8a543c35 call clearContents to reinitialize the list ca parents: 811 diff changeset	589	list clearContents.
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	590
e4b907c8f0ce intitial checkin ca parents: diff changeset	591	root notNil ifTrue:[
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	592	showRoot ifTrue:[ list add:root ].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	593	root addVisibleChildrenTo:list
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	594	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	595
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	596	! !
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	597
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	598	!SelectionInTree methodsFor:'queries'!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	599
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	600	indexOf:anItem
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	601	"returns the index of an item or 0
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	602	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	603	^ anItem notNil ifTrue:[list identityIndexOf:anItem]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	604	ifFalse:[0]
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	605	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	606
849 f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	607	!SelectionInTree methodsFor:'searching'!
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	608
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	609	detectItem:aOneArgBlock
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	610	"detect an item the evaluation of the block returns true. The
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	611	argument to the block is the item.
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	612	"
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	613	root notNil ifTrue:[
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	614	^ root detectChild:aOneArgBlock
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	615	].
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	616	^ nil
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	617
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	618
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	619	!
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	620
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	621	detectItem:aTwoArgBlock arguments:aListOfArgs
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	622	"detect an item the evaluation of the block returns true. The
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	623	first argument to the block is the item, the second argument
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	624	the value derived from the argument list at an index
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	625	"
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	626	root notNil ifTrue:[
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	627	^ root detectChild:aTwoArgBlock arguments:aListOfArgs index:1
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	628	].
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	629	^ nil
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	630
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	631
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	632	! !
f7d8363fc24f support more detectItem mechanisms ca parents: 842 diff changeset	633
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	634	!SelectionInTree methodsFor:'selection'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	635
906 6173137343de need method #selectedNode tz parents: 860 diff changeset	636	selectedNode
6173137343de need method #selectedNode tz parents: 860 diff changeset	637	"returns selected node or nil
6173137343de need method #selectedNode tz parents: 860 diff changeset	638	"
6173137343de need method #selectedNode tz parents: 860 diff changeset	639	\|nodes\|
6173137343de need method #selectedNode tz parents: 860 diff changeset	640	(nodes := self selectedNodes) notNil ifTrue: [
6173137343de need method #selectedNode tz parents: 860 diff changeset	641	^nodes first
6173137343de need method #selectedNode tz parents: 860 diff changeset	642	].
6173137343de need method #selectedNode tz parents: 860 diff changeset	643	^nil
6173137343de need method #selectedNode tz parents: 860 diff changeset	644
6173137343de need method #selectedNode tz parents: 860 diff changeset	645
6173137343de need method #selectedNode tz parents: 860 diff changeset	646	!
6173137343de need method #selectedNode tz parents: 860 diff changeset	647
857 d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	648	selectedNodes
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	649	"returns list of selected nodes or nil
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	650	"
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	651	\|node coll\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	652
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	653	selection isNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	654	^ nil
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	655	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	656
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	657	selection isCollection ifFalse:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	658	node := list at:selection ifAbsent:nil.
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	659	^ node notNil ifTrue:[Array with:node] ifFalse:[nil]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	660	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	661
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	662	selection isEmpty ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	663	^ nil
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	664	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	665
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	666	coll := OrderedCollection new:(selection size).
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	667
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	668	selection do:[:idx\|
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	669	(node := list at:idx ifAbsent:nil) notNil ifTrue:[
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	670	coll add:node
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	671	]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	672	].
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	673	^ coll notEmpty ifTrue:[coll] ifFalse:[nil]
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	674
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	675	!
d8e14b853cb7 methods for adding & removing items are ca parents: 849 diff changeset	676
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	677	selection
e4b907c8f0ce intitial checkin ca parents: diff changeset	678	"get the selection or nil
e4b907c8f0ce intitial checkin ca parents: diff changeset	679	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	680	^ self selectionIndex
e4b907c8f0ce intitial checkin ca parents: diff changeset	681	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	682
e4b907c8f0ce intitial checkin ca parents: diff changeset	683	selection:indexesOrNil
e4b907c8f0ce intitial checkin ca parents: diff changeset	684	"set the selection
e4b907c8f0ce intitial checkin ca parents: diff changeset	685	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	686	self selectionIndex:indexesOrNil
e4b907c8f0ce intitial checkin ca parents: diff changeset	687	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	688
e4b907c8f0ce intitial checkin ca parents: diff changeset	689	selectionIndex
e4b907c8f0ce intitial checkin ca parents: diff changeset	690	"get the selection or nil
e4b907c8f0ce intitial checkin ca parents: diff changeset	691	"
e4b907c8f0ce intitial checkin ca parents: diff changeset	692	^ selection
e4b907c8f0ce intitial checkin ca parents: diff changeset	693	!
e4b907c8f0ce intitial checkin ca parents: diff changeset	694
e4b907c8f0ce intitial checkin ca parents: diff changeset	695	selectionIndex:indexesOrNil
e4b907c8f0ce intitial checkin ca parents: diff changeset	696	"set the selection
e4b907c8f0ce intitial checkin ca parents: diff changeset	697	"
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	698	\|oldSel\|
d511fde77222 show or hide root directory ca parents: 491 diff changeset	699
d511fde77222 show or hide root directory ca parents: 491 diff changeset	700	oldSel := selection.
d511fde77222 show or hide root directory ca parents: 491 diff changeset	701	self setSelectionIndex:indexesOrNil.
d511fde77222 show or hide root directory ca parents: 491 diff changeset	702
d511fde77222 show or hide root directory ca parents: 491 diff changeset	703	oldSel = selection ifFalse:[
585 5a0ed2305998 bug fixes: ca parents: 515 diff changeset	704	self changed:#selectionIndex
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	705	]
d511fde77222 show or hide root directory ca parents: 491 diff changeset	706	!
d511fde77222 show or hide root directory ca parents: 491 diff changeset	707
d511fde77222 show or hide root directory ca parents: 491 diff changeset	708	setSelection:indexesOrNil
d511fde77222 show or hide root directory ca parents: 491 diff changeset	709	"set the selection without raising a notification
d511fde77222 show or hide root directory ca parents: 491 diff changeset	710	"
d511fde77222 show or hide root directory ca parents: 491 diff changeset	711	self setSelectionIndex:indexesOrNil
d511fde77222 show or hide root directory ca parents: 491 diff changeset	712	!
d511fde77222 show or hide root directory ca parents: 491 diff changeset	713
d511fde77222 show or hide root directory ca parents: 491 diff changeset	714	setSelectionIndex:indexesOrNil
d511fde77222 show or hide root directory ca parents: 491 diff changeset	715	"set the selection without raising a notification
d511fde77222 show or hide root directory ca parents: 491 diff changeset	716	"
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	717	\|indexes\|
e4b907c8f0ce intitial checkin ca parents: diff changeset	718
e4b907c8f0ce intitial checkin ca parents: diff changeset	719	indexes := indexesOrNil.
e4b907c8f0ce intitial checkin ca parents: diff changeset	720
e4b907c8f0ce intitial checkin ca parents: diff changeset	721	indexes size == 0 ifTrue:[
e4b907c8f0ce intitial checkin ca parents: diff changeset	722	(indexes isCollection or:[indexes == 0]) ifTrue:[
e4b907c8f0ce intitial checkin ca parents: diff changeset	723	indexes := nil
e4b907c8f0ce intitial checkin ca parents: diff changeset	724	]
e4b907c8f0ce intitial checkin ca parents: diff changeset	725	].
496 d511fde77222 show or hide root directory ca parents: 491 diff changeset	726	selection := indexes
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	727
e4b907c8f0ce intitial checkin ca parents: diff changeset	728	! !
e4b907c8f0ce intitial checkin ca parents: diff changeset	729
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	730	!SelectionInTree methodsFor:'update indication task'!
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	731
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	732	startIndicatorValidationFor:aNode
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	733	"add a node to list of updating indications
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	734	"
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	735	\|index\|
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	736
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	737	accessLock critical:[
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	738	\|prio\|
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	739
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	740	index := indicatorList identityIndexOf:aNode.
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	741
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	742	index ~~ 0 ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	743	indicatorList removeIndex:index. "/ reorganize list to be faster
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	744	].
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	745	indicatorList addLast: "addFirst:" aNode.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	746
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	747	indicatorTask isNil ifTrue:[
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	748	prio := Processor activePriority.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	749	indicatorTask := [
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	750	[ self taskCycle ] whileTrue:[ Processor yield ]
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	751	] forkAt:(prio - 1).
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	752	indicatorTask priorityRange:(prio-1 to:prio).
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	753	]
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	754	].
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	755
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	756	"Modified: / 26.9.1998 / 15:20:44 / cg"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	757	!
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	758
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	759	stopIndicatorValidationFor:aNodeOrList
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	760	"remove a node or list of nodes from list of updating indications
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	761	"
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	762	accessLock critical:[
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	763	aNodeOrList isCollection ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	764	aNodeOrList do:[:aNode\|
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	765	indicatorList removeIdentical:aNode ifAbsent:nil
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	766	]
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	767	] ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	768	indicatorList removeIdentical:aNodeOrList ifAbsent:nil
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	769	]
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	770	]
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	771
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	772
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	773	!
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	774
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	775	stopRunningTasks
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	776	"stop task
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	777	"
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	778	accessLock critical:[ indicatorList removeAll ]
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	779
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	780	!
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	781
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	782	taskCycle
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	783	"run one cycle fetching indicator state.
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	784	This is done in the background to avoid long startup
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	785	delays, in case the indicator information takes long to
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	786	gather (i.e. when reading directories)"
ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	787
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	788	\|node\|
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	789
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	790	accessLock critical:[
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	791	indicatorList isEmpty ifTrue:[ "/ queue is empty; terminate task
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	792	indicatorTask := nil.
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	793	^ false
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	794	].
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	795	node := indicatorList removeFirst. "/ run task on first node
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	796	node hasValidIndicator ifTrue:[ "/ up to date
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	797	^ true
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	798	].
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	799	node setShowIndicator:false "/ disable registry
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	800	].
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	801
1145 3ee5513dff2a no change Claus Gittinger <cg@exept.de> parents: 906 diff changeset	802	(DirectoryContents
3ee5513dff2a no change Claus Gittinger <cg@exept.de> parents: 906 diff changeset	803	directoryNamed:(node fileName)
3ee5513dff2a no change Claus Gittinger <cg@exept.de> parents: 906 diff changeset	804	detect:(node matchAction))
3ee5513dff2a no change Claus Gittinger <cg@exept.de> parents: 906 diff changeset	805	ifTrue:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	806	node showIndicator:true
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	807	].
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	808	^ true
1145 3ee5513dff2a no change Claus Gittinger <cg@exept.de> parents: 906 diff changeset	809
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	810	"Modified: / 26.9.1998 / 15:11:16 / cg"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	811	! !
a688e8f11bc6 async. reading of directory indicators ca parents: 762 diff changeset	812
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	813	!SelectionInTree class methodsFor:'documentation'!
e4b907c8f0ce intitial checkin ca parents: diff changeset	814
e4b907c8f0ce intitial checkin ca parents: diff changeset	815	version
1155 ff5b146ca277 run the indicator update process with a prio-range, Claus Gittinger <cg@exept.de> parents: 1145 diff changeset	816	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.17 1998-09-28 09:58:57 cg Exp $'
458 e4b907c8f0ce intitial checkin ca parents: diff changeset	817	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 28 Sep 1998 11:58:57 +0200
changeset 1155	ff5b146ca277
parent 1145	3ee5513dff2a
child 1166	d062a52bc7cc
permissions	-rw-r--r--