hg/stx-libwidg2: SelectionInTreeView.st@5e3a4af3be36 (annotated)

444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6d40e2c4ed53 intitial checkin ca parents: diff changeset	3	All Rights Reserved
6d40e2c4ed53 intitial checkin ca parents: diff changeset	4
6d40e2c4ed53 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
6d40e2c4ed53 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
6d40e2c4ed53 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
6d40e2c4ed53 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
6d40e2c4ed53 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
6d40e2c4ed53 intitial checkin ca parents: diff changeset	10	hereby transferred.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	11	"
1813 c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	12	"{ Package: 'stx:libwidg2' }"
c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	13
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	14	SelectionInListView subclass:#SelectionInTreeView
847 8395a2d05464 recompute image height whenever list changed ca parents: 846 diff changeset	15	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	16	showLines showLinesForRoot listOfNodes imageInset textInset
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	17	labelOffsetY lineMask itemClass lineColor computeResources
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	18	showRoot showDirectoryIndicator closeIndicator openIndicator
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	19	showDirectoryIndicatorForRoot imageOpened imageClosed imageItem
0199f65bc8ce add editable value ca parents: 1162 diff changeset	20	discardMotionEvents registeredImages supportsExpandAll
0199f65bc8ce add editable value ca parents: 1162 diff changeset	21	buildInArray drawVLinesFromLevel highlightMode editorWidget
1202 b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	22	editorIndex editValueFgColor validateExpandabilityBlock'
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	23	classVariableNames:'DefaultHilightMode SelectionInset'
847 8395a2d05464 recompute image height whenever list changed ca parents: 846 diff changeset	24	poolDictionaries:''
1233 ba2244433fd4 category change Claus Gittinger <cg@exept.de> parents: 1214 diff changeset	25	category:'Views-Trees'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	26	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	27
6d40e2c4ed53 intitial checkin ca parents: diff changeset	28	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	29
6d40e2c4ed53 intitial checkin ca parents: diff changeset	30	copyright
6d40e2c4ed53 intitial checkin ca parents: diff changeset	31	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	32	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6d40e2c4ed53 intitial checkin ca parents: diff changeset	33	All Rights Reserved
6d40e2c4ed53 intitial checkin ca parents: diff changeset	34
6d40e2c4ed53 intitial checkin ca parents: diff changeset	35	This software is furnished under a license and may be used
6d40e2c4ed53 intitial checkin ca parents: diff changeset	36	only in accordance with the terms of that license and with the
6d40e2c4ed53 intitial checkin ca parents: diff changeset	37	inclusion of the above copyright notice. This software may not
6d40e2c4ed53 intitial checkin ca parents: diff changeset	38	be provided or otherwise made available to, or used by, any
6d40e2c4ed53 intitial checkin ca parents: diff changeset	39	other person. No title to or ownership of the software is
6d40e2c4ed53 intitial checkin ca parents: diff changeset	40	hereby transferred.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	41	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	42
6d40e2c4ed53 intitial checkin ca parents: diff changeset	43	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	44
6d40e2c4ed53 intitial checkin ca parents: diff changeset	45	documentation
6d40e2c4ed53 intitial checkin ca parents: diff changeset	46	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	47	somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like)
6d40e2c4ed53 intitial checkin ca parents: diff changeset	48	lists and adds the functions to show/hide subtrees.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	49	Requires SelectionInTree as model and TreeItem (or compatible) list entries.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	50
1431 0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	51	Notice:
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	52	This class obsoletes SelectionInHierarchyView, which is no longer
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	53	maintained but kept for backward compatibility.
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	54
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	55	Notice2:
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	56	Even for this class, an improved replacement now exists:
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	57	HierarchicalListView.
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	58	Please consider using that one.
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1415 diff changeset	59	(however, this class is kept for backward compatibility).
446 b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	60
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	61	[see also:]
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	62	SelectionInTree
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	63	TreeItem
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	64	SelectionInListView
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	65	FileSelectionTree
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	66
6d40e2c4ed53 intitial checkin ca parents: diff changeset	67	[author:]
6d40e2c4ed53 intitial checkin ca parents: diff changeset	68	Claus Atzkern
6d40e2c4ed53 intitial checkin ca parents: diff changeset	69	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	70	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	71
6d40e2c4ed53 intitial checkin ca parents: diff changeset	72	examples
6d40e2c4ed53 intitial checkin ca parents: diff changeset	73	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	74	shows the tree of smalltalk classes:
6d40e2c4ed53 intitial checkin ca parents: diff changeset	75	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	76	\|top sel\|
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	77
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	78	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	79	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	80	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	81	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	82	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	83	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	84	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	85
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	86
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	87
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	88	same, including nil-subclasses (i.e. really all classes):
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	89	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	90	\|top sel\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	91
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	92	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	93	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	94	sel root:(TreeItem newAsTreeFromSmalltalkClass:nil).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	95	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
685 80751cda3340 lines as point ca parents: 659 diff changeset	96	sel lineColor:(Color red).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	97	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	98	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	99	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	100
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	101
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	102
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	103	shows the tree of smalltalk classes; show directory indication and no
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	104	lines.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	105	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	106	\|top sel\|
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	107
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	108	top := StandardSystemView new; extent:300@300.
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	109	sel := SelectionInTreeView new.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	110	sel showLines:false.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	111	sel showDirectoryIndicator:true.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	112	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	113	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	114	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	115	top open.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	116	[exEnd]
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	117	"
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	118
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	119
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	120	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	121
6d40e2c4ed53 intitial checkin ca parents: diff changeset	122	!SelectionInTreeView class methodsFor:'constants'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	123
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	124	minImageInset
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	125	"returns minimum inset from directory indication to image
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	126	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	127	^ 6
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	128
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	129
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	130	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	131
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	132	!SelectionInTreeView class methodsFor:'defaults'!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	133
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	134	defaultModelClass
0199f65bc8ce add editable value ca parents: 1162 diff changeset	135	"returns the default model
0199f65bc8ce add editable value ca parents: 1162 diff changeset	136	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	137	^ SelectionInTree
0199f65bc8ce add editable value ca parents: 1162 diff changeset	138	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	139
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	140	updateStyleCache
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	141	"extract values from the styleSheet and cache them in class variables"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	142
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	143	<resource: #style (#'selection.highlightMode')>
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	144
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	145	SelectionInset := 4.
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	146	DefaultHilightMode := StyleSheet at:'selection.highlightMode' default:#line.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	147	"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	148	self updateStyleCache
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	149	"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	150
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	151
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	152	! !
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	153
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	154	!SelectionInTreeView class methodsFor:'resources'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	155
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	156	closeIndicator
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	157	"returns a little [+] bitmap"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	158
1624 1062c88430f9 icon fetch changed Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	159	^ HierarchicalListView closeIndicator
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	160
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	161
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	162
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	163
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	164
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	165
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	166	!
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	167
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	168	imageClosed
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	169	"returns a closed file-directory bitmap"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	170
1624 1062c88430f9 icon fetch changed Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	171	^ HierarchicalListView collapsedIcon
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	172
6d40e2c4ed53 intitial checkin ca parents: diff changeset	173	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	174
6d40e2c4ed53 intitial checkin ca parents: diff changeset	175	imageItem
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	176	"returns a regular file bitmap"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	177
1624 1062c88430f9 icon fetch changed Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	178	^ HierarchicalListView emptyIcon
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	179
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	180
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	181
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	182
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	183
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	184	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	185
6d40e2c4ed53 intitial checkin ca parents: diff changeset	186	imageOpened
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	187	"returns an opened file-directory bitmap"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	188
1624 1062c88430f9 icon fetch changed Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	189	^ HierarchicalListView expandedIcon
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	190
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	191	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	192
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	193	openIndicator
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	194	"returns a little [-] bitmap"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	195
1624 1062c88430f9 icon fetch changed Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	196	^ HierarchicalListView openIndicator
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	197
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	198
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	199	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	200
6d40e2c4ed53 intitial checkin ca parents: diff changeset	201	!SelectionInTreeView methodsFor:'accessing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	202
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	203	highlightMode
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	204	"get the mode how to draw a selected line:
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	205	#line draw whole line selected
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	206	#label draw label selected
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	207	"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	208	^ highlightMode
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	209	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	210
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	211	highlightMode:aMode
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	212	"set the mode how to draw a selected line:
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	213	#line draw whole line selected
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	214	#label draw label selected
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	215	"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	216	\|mode\|
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	217
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	218	(mode := aMode) == #label ifFalse:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	219	mode := #line
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	220	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	221
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	222	mode ~~ highlightMode ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	223	highlightMode := mode.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	224	self invalidate
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	225	]
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	226	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	227
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	228	itemClass
0199f65bc8ce add editable value ca parents: 1162 diff changeset	229	"returns current itemClass used
0199f65bc8ce add editable value ca parents: 1162 diff changeset	230	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	231	^ itemClass
0199f65bc8ce add editable value ca parents: 1162 diff changeset	232
0199f65bc8ce add editable value ca parents: 1162 diff changeset	233
0199f65bc8ce add editable value ca parents: 1162 diff changeset	234	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	235
0199f65bc8ce add editable value ca parents: 1162 diff changeset	236	itemClass:anItemClass
0199f65bc8ce add editable value ca parents: 1162 diff changeset	237	"set itemClass to be used
0199f65bc8ce add editable value ca parents: 1162 diff changeset	238	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	239
0199f65bc8ce add editable value ca parents: 1162 diff changeset	240	(anItemClass notNil and:[anItemClass ~~ itemClass]) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	241	itemClass := anItemClass.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	242	computeResources := true.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	243	self refetchDeviceResources.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	244	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	245
0199f65bc8ce add editable value ca parents: 1162 diff changeset	246	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	247
685 80751cda3340 lines as point ca parents: 659 diff changeset	248	lineColor
80751cda3340 lines as point ca parents: 659 diff changeset	249	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	250	"
80751cda3340 lines as point ca parents: 659 diff changeset	251	^ lineColor
80751cda3340 lines as point ca parents: 659 diff changeset	252
80751cda3340 lines as point ca parents: 659 diff changeset	253	!
80751cda3340 lines as point ca parents: 659 diff changeset	254
80751cda3340 lines as point ca parents: 659 diff changeset	255	lineColor:aColor
80751cda3340 lines as point ca parents: 659 diff changeset	256	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	257	"
80751cda3340 lines as point ca parents: 659 diff changeset	258	\|col\|
80751cda3340 lines as point ca parents: 659 diff changeset	259
80751cda3340 lines as point ca parents: 659 diff changeset	260	col := aColor = fgColor ifTrue:[nil] ifFalse:[aColor].
80751cda3340 lines as point ca parents: 659 diff changeset	261
80751cda3340 lines as point ca parents: 659 diff changeset	262	col = lineColor ifFalse:[
80751cda3340 lines as point ca parents: 659 diff changeset	263	lineColor := col.
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	264	lineColor notNil ifTrue:[lineColor := lineColor onDevice:self graphicsDevice].
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2501 diff changeset	265	self invalidate
685 80751cda3340 lines as point ca parents: 659 diff changeset	266	]
80751cda3340 lines as point ca parents: 659 diff changeset	267	!
80751cda3340 lines as point ca parents: 659 diff changeset	268
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	269	nodeAtIndex:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	270	"returns node at an index or nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	271	"
785 6114a6e125c5 update ca parents: 782 diff changeset	272	(anIndex notNil and:[anIndex between:1 and:listOfNodes size]) ifTrue:[
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	273	^ listOfNodes at:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	274	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	275	^ nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	276	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	277
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	278	root
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	279	"gets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	280	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	281	^ self nodeAtIndex:1
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	282	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	283
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	284	root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	285	"sets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	286	"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	287	aRoot notNil ifTrue:[aRoot expand].
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	288	model root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	289	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	290
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	291	textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	292	"get the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	293	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	294	^ textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	295	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	296
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	297	textInset:anInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	298	"set the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	299	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	300	anInset ~~ textInset ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	301	anInset >= 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	302	textInset := anInset.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	303	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	304	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	305	self error
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	306	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	307	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	308	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	309
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	310	!SelectionInTreeView methodsFor:'accessing-behavior'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	311
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	312	drawVLinesFromLevel
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	313	"returns the level vertical lines are drawn from;
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	314	starting at 1 up to n
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	315	"
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	316	^ drawVLinesFromLevel
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	317	!
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	318
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	319	drawVLinesFromLevel:aLevel
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	320	"set the level vertical lines are drawn from;
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	321	starting at 1 up to n
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	322	"
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	323	\|lv\|
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	324
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	325	lv := (aLevel ? 1) max:1.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	326
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	327	lv ~~ drawVLinesFromLevel ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	328	drawVLinesFromLevel := lv.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	329	self invalidate
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	330	]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	331	!
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	332
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	333	supportsExpandAll
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	334	^ supportsExpandAll
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	335	!
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	336
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	337	supportsExpandAll:aBool
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	338
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	339	supportsExpandAll := aBool
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	340	!
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	341
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	342	validateDoubleClickBlock
1202 b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	343	"return the conditionBlock; this block is evaluated before a doubleClick action
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	344	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	345	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	346	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	347	^ validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	348
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	349
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	350	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	351
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	352	validateDoubleClickBlock:aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	353	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	354	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	355	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	356	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	357	validateDoubleClickBlock := aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	358
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	359
1202 b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	360	!
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	361
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	362	validateExpandabilityBlock
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	363	"return the expand conditionBlock; this block is evaluated before an expand due to
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	364	a doubleClick on a node will be performed. In case of returning false,
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	365	the node will not be expanded.
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	366	"
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	367	^ validateExpandabilityBlock
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	368
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	369
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	370	!
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	371
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	372	validateExpandabilityBlock:aOneArgBlock
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	373	"set the expand conditionBlock; this block is evaluated before an expand due to
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	374	a doubleClick on a node will be performed. In case of returning false,
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	375	the node will not be expanded.
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	376	"
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	377	validateExpandabilityBlock := aOneArgBlock
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	378
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	379
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	380	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	381
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	382	!SelectionInTreeView methodsFor:'accessing-channels'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	383
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	384	rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	385	"get the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	386	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	387	^ rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	388	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	389
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	390	rootHolder:aValueHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	391	"set the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	392	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	393	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	394	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	395	].
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	396
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	397	(rootHolder := aValueHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	398	rootHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	399	self rootFromModel.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	400	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	401	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	402
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	403	selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	404	"get the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	405	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	406	^ selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	407
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	408	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	409
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	410	selectionHolder:aHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	411	"set the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	412	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	413	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	414	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	415	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	416
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	417	(selectionHolder := aHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	418	selectionHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	419	self selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	420	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	421
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	422	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	423
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	424	!SelectionInTreeView methodsFor:'accessing-images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	425
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	426	imageClosed
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	427	"return the value of the instance variable 'imageClosed'.
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	428	Thats the (default) bitmap image shown for closed folders
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	429	(initialized to a file-directory bitmap)"
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	430
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	431	^ imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	432
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	433	"Created: 3.7.1997 / 12:34:31 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	434	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	435
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	436	imageItem
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	437	"return the value of the instance variable 'imageItem'.
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	438	Thats the (default) bitmap image shown for regular items
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	439	(initialized to a plain-file bitmap)"
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	440
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	441	^ imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	442
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	443	"Created: 3.7.1997 / 12:34:34 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	444	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	445
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	446	imageOnMyDevice:anImage
4608 5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	447	"associate image to device and returns the new image."
5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	448
5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	449	anImage isNil ifTrue:[^ nil].
5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	450	^ anImage onDevice:self graphicsDevice.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	451
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	452	"Modified: / 12.8.1998 / 12:46:38 / cg"
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	453	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	454
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	455	imageOpened
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	456	"return the value of the instance variable 'imageOpened'.
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	457	Thats the (default) bitmap image shown for opened folders
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	458	(initialized to an open file-directory bitmap)"
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	459
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	460	^ imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	461
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	462	"Created: 3.7.1997 / 12:34:28 / cg"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	463	! !
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	464
1275 cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	465	!SelectionInTreeView methodsFor:'accessing-look'!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	466
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	467	showDirectoryIndicator
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	468	"returns true if directories has an open/closed indicator
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	469	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	470	^ showDirectoryIndicator
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	471	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	472
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	473	showDirectoryIndicator:aState
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	474	"set or clear open/closed indicator for directories
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	475	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	476	"show or hide lines
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	477	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	478	aState ~~ showDirectoryIndicator ifTrue:[
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	479	showDirectoryIndicator := aState.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	480	self recomputeDirectoryIndicator.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	481	self invalidate
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	482	].
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	483	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	484
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	485	showDirectoryIndicatorForRoot
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	486	"returns true if root directory has an open/closed indicator if
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	487	the common showDirectoryIndicator is enabled
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	488	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	489	^ showDirectoryIndicatorForRoot
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	490	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	491
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	492	showDirectoryIndicatorForRoot:aState
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	493	"true if root directory has an open/closed indicator if
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	494	the common showDirectoryIndicator is enabled
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	495	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	496	aState ~~ showDirectoryIndicatorForRoot ifTrue:[
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	497	showDirectoryIndicatorForRoot := aState.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	498	self recomputeDirectoryIndicator.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	499	self invalidate
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	500	].
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	501	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	502
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	503	showLines
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	504	"returns true if lines are shown
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	505	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	506	^ showLines
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	507	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	508
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	509	showLines:aState
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	510	"show or hide lines
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	511	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	512	aState ~~ showLines ifTrue:[
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	513	showLines := aState.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	514	self invalidate
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	515	].
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	516	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	517
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	518	showLinesForRoot
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	519	"returns true if root-lines are shown
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	520	"
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	521	^ showLinesForRoot
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	522	!
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	523
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	524	showLinesForRoot:aState
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	525	"show or hide lines for root(s)
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	526	"
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	527	aState ~~ showLinesForRoot ifTrue:[
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	528	showLinesForRoot := aState.
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	529	self invalidate
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	530	].
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	531	!
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	532
1275 cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	533	showRoot
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	534	"list with or without root
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	535	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	536	^ showRoot
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	537	!
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	538
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	539	showRoot:aState
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	540	"list with or without root
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	541	"
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	542	showRoot ~~ aState ifTrue:[
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	543	model showRoot:(showRoot := aState).
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	544	].
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	545	! !
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	546
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	547	!SelectionInTreeView methodsFor:'change & update'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	548
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	549	modelChanged:what with:aPara
2483 1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	550	"hierarchical list changed"
1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	551
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	552	\|start size visLn h y0 y1 cY parent pvLv ndLv\|
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	553
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	554	aPara isNil ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	555	what == #list ifTrue:[ self getListFromModel ]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	556	ifFalse:[ super update:what with:aPara from:model ].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	557	^ self
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	558	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	559
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	560	(what == #insertCollection: or:[what == #removeFrom:]) ifFalse:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	561	what == #at: ifTrue:[ ^ self redrawLine:aPara ].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	562	what == #replace ifTrue:[ ^ self invalidateRepairNow:true ].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	563
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	564	^ super update:what with:aPara from:model.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	565	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	566	list := self listFromModel.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	567
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	568	shown ifFalse:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	569	^ self contentsChanged
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	570	].
2483 1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	571	(self sensor hasExposeEventFor:self) ifTrue:[
1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	572	"/ outstanding expose events
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	573	self invalidateRepairNow:true.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	574	^ self contentsChanged
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	575	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	576
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	577	start := aPara at:1.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	578	size := aPara at:2.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	579	parent := aPara at:3.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	580
860 64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	581	what == #removeFrom: ifTrue:[
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	582	size := size - start + 1
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	583	].
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	584
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	585	start > 1 ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	586	pvLv := (list at:start - 1) level.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	587	ndLv := parent level + 1.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	588
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	589	ndLv < pvLv ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	590	what == #insertCollection: ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	591	visLn := start + size.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	592	] ifFalse:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	593	visLn := start.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	594	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	595
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	596	(visLn > list size or:[(list at:visLn) level ~~ ndLv]) ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	597	[(start := start - 1) ~~ 1] whileTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	598	(list at:start) level <= ndLv ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	599	self redrawFromLine:start.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	600	^ self contentsChanged.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	601	]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	602	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	603	self invalidateRepairNow:true.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	604	^ self contentsChanged
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	605	]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	606	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	607	self redrawIconAndIndicatorAt:(start - 1)
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	608	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	609	(visLn := self listLineToVisibleLine:start) isNil ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	610	^ self contentsChanged
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	611	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	612
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	613	h := size * fontHeight.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	614	y0 := self yOfVisibleLine:visLn.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	615	y1 := y0 + h.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	616	cY := height - y1 - 1.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	617
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	618	cY < 40 ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	619	self redrawFromLine:start.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	620	] ifFalse:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	621	self catchExpose.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	622
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	623	what == #insertCollection: ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	624	self copyFrom:self x:0 y:y0 toX:0 y:y1 width:width height:cY async:true.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	625	] ifFalse:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	626	self copyFrom:self x:0 y:y1 toX:0 y:y0 width:width height:cY async:true.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	627	y0 := y0 + cY.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	628	h := height - y0.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	629	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	630	self redrawX:0 y:y0 width:width height:h.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	631	self waitForExpose.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	632	].
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	633	self flush.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	634	self contentsChanged.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	635	!
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	636
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	637	update:something with:aParameter from:aModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	638	"one of my models changed its value
785 6114a6e125c5 update ca parents: 782 diff changeset	639	"
6114a6e125c5 update ca parents: 782 diff changeset	640	\|idx\|
6114a6e125c5 update ca parents: 782 diff changeset	641
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	642	aModel == rootHolder ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	643	^ self rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	644	].
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	645
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	646	aModel == selectionHolder ifTrue:[
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	647	^ self selectionFromModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	648	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	649
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	650	aModel == model ifTrue:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	651	^ self modelChanged:something with:aParameter
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	652	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	653
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	654	(aModel isKindOf:TreeItem) ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	655	(something == #size or:[something == #children]) ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	656	model recomputeList.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	657	^ self
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	658	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	659
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	660	(idx := self indexOfNode:aModel) ~~ 0 ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	661	something == #value ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	662	^ self redrawLine:idx.
785 6114a6e125c5 update ca parents: 782 diff changeset	663	].
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	664
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	665	something == #indication ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	666	^ self redrawIndicatorLine:idx.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	667	].
1308 b04e4fb53fb4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	668	"/ assume that the nodes string has changed
b04e4fb53fb4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1305 diff changeset	669	^ self redrawLine:idx.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	670	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	671	^ self
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	672	].
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	673	super update:something with:aParameter from:aModel.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	674
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	675	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	676
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	677	!SelectionInTreeView methodsFor:'drawing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	678
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	679	drawLine:line atX:atX inVisible:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	680	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	681
6d40e2c4ed53 intitial checkin ca parents: diff changeset	682	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	683
6d40e2c4ed53 intitial checkin ca parents: diff changeset	684	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	685	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	686
6d40e2c4ed53 intitial checkin ca parents: diff changeset	687	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	688
6d40e2c4ed53 intitial checkin ca parents: diff changeset	689	drawLine:line inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	690	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	691
6d40e2c4ed53 intitial checkin ca parents: diff changeset	692	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	693
6d40e2c4ed53 intitial checkin ca parents: diff changeset	694	drawVisibleLine:visLineNr col:col with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	695	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	696
6d40e2c4ed53 intitial checkin ca parents: diff changeset	697	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	698
6d40e2c4ed53 intitial checkin ca parents: diff changeset	699	drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	700	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	701
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	702	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	703
6d40e2c4ed53 intitial checkin ca parents: diff changeset	704	drawVisibleLine:visLineNr from:startCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	705	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	706
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	707	!
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	708
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	709	redrawFromVisibleLine:startVisLineNr to:endVisLineNr
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	710	self redrawX:0
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	711	y:(self yOfVisibleLine:startVisLineNr)
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	712	width:width
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	713	height:(endVisLineNr - startVisLineNr + 1 * fontHeight)
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	714
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	715
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	716	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	717
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	718	redrawIconAndIndicatorAt:aLnNr
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	719	\|visLineNr x0 x1 lv\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	720
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	721	shown ifTrue:[
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	722	visLineNr := self listLineToVisibleLine:aLnNr.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	723	visLineNr notNil ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	724	lv := (listOfNodes at:aLnNr) level.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	725	x1 := (imageWidth + (self xOfFigureLevel:lv)) min:width.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	726	x0 := (self xOfFigureLevel:(lv - 1)) max:0.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	727
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	728	(x0 > width or:[x1 < 0]) ifFalse:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	729	self redrawX:x0
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	730	y:(self yOfVisibleLine:visLineNr)
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	731	width:(x1 - x0)
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	732	height:fontHeight
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	733	]
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	734	]
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	735	].
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	736	!
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	737
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	738	redrawIndicatorLine:aLineNr
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	739	"redraw the directory indicator for a line
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	740	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	741	\|node ext img visLn
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	742	x "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	743	y "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	744	dX "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	745	\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	746
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	747	( shown
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	748	and:[showDirectoryIndicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	749	and:[(visLn := self listLineToVisibleLine:aLineNr) notNil]]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	750	) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	751	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	752	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	753
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	754	node := listOfNodes at:aLineNr.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	755
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	756	(node parent notNil or:[showDirectoryIndicatorForRoot]) ifFalse:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	757	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	758	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	759
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	760	x := imageWidth // 2.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	761	x := x + (self xOfFigureLevel:(node level - 1)).
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	762
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	763	"/ draw directory indicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	764
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	765	img := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
1620 99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	766	img notNil ifTrue:[
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	767	ext := img extent // 2.
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	768	dX := ext x.
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	769
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	770	(x + dX > 0 and:[(x := x - dX) < (width - margin)]) ifTrue:[
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	771	self paintOnIsSelected:(self isInSelection:aLineNr).
1620 99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	772
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	773	y := (self yOfVisibleLine:visLn) + (fontHeight // 2) - 1.
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	774	self displayForm:img x:x y:(y - ext y)
99124a1a1342 care for nil-image when drawing indicator line Claus Gittinger <cg@exept.de> parents: 1477 diff changeset	775	].
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	776	].
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	777	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	778
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	779	redrawVisibleLine:visLineNr
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	780	self drawFromVisibleLine:visLineNr to:visLineNr with:fgColor and:bgColor
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	781	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	782
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	783	redrawVisibleLine:visLineNr from:startCol to:endCol
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	784	self drawFromVisibleLine:visLineNr to:visLineNr with:fgColor and:bgColor
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	785	! !
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	786
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	787	!SelectionInTreeView methodsFor:'drawing basics'!
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	788
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	789	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	790	"redraw a visible line range with clearing the background
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	791	"
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	792	\|y h\|
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	793
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	794	y := self yOfVisibleLine:startVisLineNr.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	795	h := endVisLineNr - startVisLineNr + 1 * fontHeight.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	796
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	797	y + h > height ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	798	h := height - y
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	799	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	800	self redrawX:0 y:y width:width height:h.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	801	!
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	802
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	803	drawVHLinesX:x0 y:y0 toX:x1 start:start stop:stop
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	804	"redraw from line to line without clearing the background
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	805	"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	806	\|node prevNode parent p1 p2 showVLines showHLine lv nxtPrnt
1305 c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	807	showRootNot isFirst
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	808
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	809	x "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	810	y "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	811
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	812	yTop "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	813	yBot "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	814	yCtr "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	815
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	816	begHLnY "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	817	begHLnX "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	818	endHLnX "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	819
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	820	widthLvl "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	821	offsHLnX "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	822
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	823	level "{ Class:SmallInteger }"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	824	startLvI "{ Class:SmallInteger }"
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	825	startLvX "{ Class:SmallInteger }"
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	826	limitLvI "{ Class:SmallInteger }"
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	827	limitLvX "{ Class:SmallInteger }"
3692 af710a4ee08a do not draw dotted line under the icon (for transparent icons) Claus Gittinger <cg@exept.de> parents: 3690 diff changeset	828	xIcon
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	829	\|
1305 c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	830
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	831	yBot := y0.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	832	yCtr := yBot - (fontHeight // 2).
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	833	widthLvl := imageInset + imageWidth.
3692 af710a4ee08a do not draw dotted line under the icon (for transparent icons) Claus Gittinger <cg@exept.de> parents: 3690 diff changeset	834	offsHLnX := (imageWidth // 2) + (self xOfFigureLevel:-1).
af710a4ee08a do not draw dotted line under the icon (for transparent icons) Claus Gittinger <cg@exept.de> parents: 3690 diff changeset	835	xIcon := imageWidth // 2.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	836
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	837	parent := 4711. "/ to force a recompute
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	838	prevNode := 4711. "/ to force a recomputation of the level
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	839
3456 fa55a397f4c9 changed #drawVHLinesX:y:toX:start:stop: Stefan Vogel <sv@exept.de> parents: 3423 diff changeset	840	self maskOrigin:(self viewOrigin + (0 @ 1) \\ (lineMask extent)).
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	841	self paint:lineColor on:bgColor.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	842	self mask:lineMask.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	843	begHLnY := y0.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	844	startLvI := self smallestLevelOfNodesBetween:start and:stop.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	845	startLvX := self xOfFigureLevel:startLvI.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	846	limitLvI := drawVLinesFromLevel + 1.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	847	limitLvX := limitLvI * widthLvl + offsHLnX.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	848
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	849	buildInArray atAllPut:0.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	850
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	851	start == 1 ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	852	begHLnY := yCtr + fontHeight.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	853	].
1305 c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	854	showRootNot := showRoot not.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	855
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	856	start to:stop do:[:anIndex\|
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	857	node := listOfNodes at:anIndex.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	858	yTop := yBot - 1.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	859	yBot := yBot + fontHeight.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	860	yCtr := yCtr + fontHeight.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	861
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	862	(nxtPrnt := node parent) ~~ parent ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	863	parent := nxtPrnt.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	864
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	865	prevNode == parent ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	866	level := level + 1.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	867	begHLnX := endHLnX.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	868	] ifFalse:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	869	level := node level.
1309 d87d431dad62 * empty log message * Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	870	begHLnX := level * widthLvl + offsHLnX.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	871	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	872
1305 c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	873	isFirst := parent isNil or:[(showRootNot and:[level == 2])].
c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	874	endHLnX := begHLnX + widthLvl.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	875	showVLines := begHLnX >= x0 and:[level > drawVLinesFromLevel].
1305 c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	876	showHLine := x0 < endHLnX and:[x1 > begHLnX].
c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	877
c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	878	(showHLine and:[isFirst]) ifTrue:[
c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	879	showHLine := showDirectoryIndicatorForRoot and:[showDirectoryIndicator]
c8f2fe1fac85 fix drawing horizontal lines for the root element(s) Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	880	]
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	881	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	882
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	883	showHLine ifTrue:[
3692 af710a4ee08a do not draw dotted line under the icon (for transparent icons) Claus Gittinger <cg@exept.de> parents: 3690 diff changeset	884	self displayLineFromX:begHLnX y:yCtr toX:endHLnX-xIcon y:yCtr
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	885	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	886
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	887	showVLines ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	888	y := (parent basicLastChild == node) ifTrue:[yCtr] ifFalse:[yBot].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	889	x := begHLnX.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	890	p2 := parent.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	891	lv := level - 1.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	892	self displayLineFromX:x y:begHLnY toX:x y:y.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	893
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	894	[((p1 := p2 parent) notNil and:[(x := x - widthLvl) >= limitLvX])] whileTrue:[
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	895	(p1 basicLastChild ~~ p2 and:[x <= x1]) ifTrue:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	896	x >= startLvX ifTrue:[
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	897	(isFirst not or:[showLinesForRoot]) ifTrue:[
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	898	self displayLineFromX:x y:yTop toX:x y:yBot
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	899	]
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	900	] ifFalse:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	901	buildInArray at:lv put:yBot
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	902	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	903	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	904	lv := lv - 1.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	905	p2 := p1
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	906	]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	907	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	908	prevNode := node.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	909	begHLnY := yCtr.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	910	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	911
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	912	"/
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	913	"/ draw outstanding verical lines to left
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	914	"/
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	915	x := limitLvX.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	916	y := (start ~~ 1) ifTrue:[y0] ifFalse:[y0 + (fontHeight // 2)].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	917
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	918	limitLvI to:startLvI do:[:i\|
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	919	(yBot := buildInArray at:i) ~~ 0 ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	920	self displayLineFromX:x y:y toX:x y:yBot
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	921	].
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	922	x := x + widthLvl.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	923	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	924	self mask:nil.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	925	!
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	926
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	927	drawVisibleLineSelected:visLineNr with:fg and:bg
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	928	"redraw a single line as selected."
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	929
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	930	(self visibleLineToListLine:visLineNr) isNil ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	931	^ super drawVisibleLine:visLineNr with:fg and:bg
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	932	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	933	self redrawX:0
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	934	y:(self yOfVisibleLine:visLineNr)
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	935	width:width
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	936	height:fontHeight
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	937	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	938
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	939	paintOnIsSelected:isSelected
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	940	isSelected ifTrue:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	941	self hasFocus ifTrue:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	942	self paint:hilightFgColor on:hilightBgColor
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	943	] ifFalse:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	944	self paint:hilightFgColorNoFocus on:hilightBgColorNoFocus
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	945	]
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	946	] ifFalse:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	947	self paint:fgColor on:bgColor.
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	948	].
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	949	!
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	950
902 de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	951	redrawElement:anIndex
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	952
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	953	\|vln x0 xT y\|
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	954
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	955	shown ifTrue:[
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	956	( highlightMode ~~ #label
908 749621e1a1d6 bugFix in redrawElement: ca parents: 902 diff changeset	957	or:[(vln := self listLineToVisibleLine:anIndex) isNil
749621e1a1d6 bugFix in redrawElement: ca parents: 902 diff changeset	958	or:[anIndex > listOfNodes size]]
902 de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	959	) ifTrue:[
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	960	super redrawElement:anIndex
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	961	] ifFalse:[
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	962	y := self yOfVisibleLine:vln.
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	963	xT := self xOfStringLevel:((listOfNodes at:anIndex) level).
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	964	x0 := xT - textInset.
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	965	self paint:bgColor.
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	966	self fillRectangleX:x0 y:y width:(width - x0) height:fontHeight.
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	967	self redrawLabelAt:xT y:y index:anIndex
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	968	]
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	969	]
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	970
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	971	!
de7a2459bd3b faster drawing of select/unselect changes ca parents: 900 diff changeset	972
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	973	redrawLabelAt:x y:yTop index:anIndex
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	974	\|isSel y0 x0 w label node value xV wV\|
0199f65bc8ce add editable value ca parents: 1162 diff changeset	975
0199f65bc8ce add editable value ca parents: 1162 diff changeset	976	node := listOfNodes at:anIndex.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	977	label := node name.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	978	isSel := self isInSelection:anIndex.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	979	xV := 0.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	980	wV := 0.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	981	y0 := yTop + (fontHeight // 2) + labelOffsetY.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	982
0199f65bc8ce add editable value ca parents: 1162 diff changeset	983	(value := node printableEditValue) notNil ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	984	xV := (self xOfValueNode:node) - SelectionInset
0199f65bc8ce add editable value ca parents: 1162 diff changeset	985	].
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	986
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	987	highlightMode == #label ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	988	x0 := x + 4.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	989
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	990	isSel ifTrue:[
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	991	w := (label notNil ifTrue:[label widthOn:self] ifFalse:[60]) + 8.
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	992
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	993	self hasFocus ifTrue:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	994	self paint:hilightBgColor.
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	995	] ifFalse:[
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	996	self paint:hilightBgColorNoFocus.
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	997	].
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	998	self fillRectangleX:x y:yTop width:w height:fontHeight.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	999
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1000	(value notNil and:[(editorWidget isNil or:[editorIndex ~~ anIndex])]) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1001	wV := SelectionInset + SelectionInset + (value widthOn:self).
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1002	self fillRectangleX:xV y:yTop width:wV height:fontHeight.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1003	]
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1004	]
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1005	] ifFalse:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1006	x0 := x
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1007	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1008
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1009	label notNil ifTrue:[
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1010	self paintOnIsSelected:isSel.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1011	self displayOpaqueString:label x:x0 y:y0.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1012
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1013	value notNil ifTrue:[
1175 1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1014	isSel ifFalse:[
1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1015	self paint:editValueFgColor on:bgColor
1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1016	].
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1017	self displayOpaqueString:value x:(xV + SelectionInset) y:y0
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1018	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1019
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1020	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1021
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1022	(isSel and:[highlightMode == #label]) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1023	self redrawSelFrameAtX:x y:yTop toX:(x + w).
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1024
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1025	wV ~~ 0 ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1026	self redrawSelFrameAtX:xV y:yTop toX:(xV + wV)
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1027	].
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1028	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1029	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1030
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1031	redrawLinesX:x0 y:y0 toX:x1 start:start stop:stop
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1032	"redraw from line to line without clearing the background
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1033	"
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1034	\|node prevNode parent icon showIndc showIcon showText nxtPrnt
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1035
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1036	end "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1037
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1038	yBot "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1039	yCtr "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1040
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1041	xIndc "{ Class:SmallInteger }"
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1042	xIcon "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1043	xText "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1044
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1045	widthLvl "{ Class:SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1046	insetTxt "{ Class:SmallInteger }"
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1047
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1048	offIndcX "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1049	offIndcY "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1050	offIconX "{ Class:SmallInteger }"
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1051	\|
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1052	(end := stop min:(listOfNodes size)) < start ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1053	^ self
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1054	].
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1055	yBot := y0.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1056	yCtr := yBot - (fontHeight // 2).
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1057	widthLvl := imageInset + imageWidth.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1058	insetTxt := imageWidth + textInset.
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1059	offIconX := self xOfFigureLevel:0.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1060	showIndc := false.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1061
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1062	showDirectoryIndicator ifTrue:[
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1063	offIndcX := imageWidth // 2 - widthLvl.
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1064	offIndcY := 0.
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1065	openIndicator notNil ifTrue:[
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1066	icon := openIndicator extent // 2.
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1067	offIndcX := offIndcX - icon x.
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1068	offIndcY := icon y.
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1069	]
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1070	].
785 6114a6e125c5 update ca parents: 782 diff changeset	1071
6114a6e125c5 update ca parents: 782 diff changeset	1072	showLines ifTrue:[
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1073	self drawVHLinesX:x0 y:y0 toX:x1 start:start stop:end
785 6114a6e125c5 update ca parents: 782 diff changeset	1074	].
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	1075
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1076	parent := 4711. "/ to force a recompute
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1077	prevNode := 4711. "/ to force a recomputation of the level
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1078
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1079	start to:end do:[:anIndex\|
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1080	node := listOfNodes at:anIndex.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1081	yBot := yBot + fontHeight.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1082	yCtr := yCtr + fontHeight.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	1083
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1084	(nxtPrnt := node parent) ~~ parent ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1085	parent := nxtPrnt.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1086	xIcon := prevNode == parent ifTrue:[xIcon + widthLvl]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1087	ifFalse:[node level * widthLvl + offIconX].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	1088
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1089	xText := xIcon + insetTxt.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1090	showIcon := xIcon < x1 and:[xText > x0].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1091	showText := xText < x1.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1092
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1093	showDirectoryIndicator ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1094	xIndc := xIcon + offIndcX.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	1095
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1096	showIndc := ( (parent notNil or:[showDirectoryIndicatorForRoot])
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1097	and:[(xIcon > x0 and:[xIndc < x1])]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1098	)
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1099	]
785 6114a6e125c5 update ca parents: 782 diff changeset	1100	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	1101
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1102	(showIcon and:[(icon := self figureFor:node) notNil]) ifTrue:[
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1103	self displayForm:icon x:xIcon y:(yCtr - (icon height // 2))
770 f197d1f5a246 fix clipping ca parents: 769 diff changeset	1104	].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1105
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1106	showText ifTrue:[
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1107	self redrawLabelAt:xText y:(yBot - fontHeight) index:anIndex
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	1108	].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1109	(showIndc and:[node showIndicator]) ifTrue:[
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1110	icon := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
1091 2e86163cfb17 care for non-existing icon image Claus Gittinger <cg@exept.de> parents: 1072 diff changeset	1111	icon notNil ifTrue:[
2e86163cfb17 care for non-existing icon image Claus Gittinger <cg@exept.de> parents: 1072 diff changeset	1112	self displayForm:icon x:xIndc y:(yCtr - offIndcY)
2e86163cfb17 care for non-existing icon image Claus Gittinger <cg@exept.de> parents: 1072 diff changeset	1113	]
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1114	].
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1115	prevNode := node.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1116	]
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1117
1091 2e86163cfb17 care for non-existing icon image Claus Gittinger <cg@exept.de> parents: 1072 diff changeset	1118	"Modified: / 22.8.1998 / 12:56:50 / cg"
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1119	!
5a0af910519e bug fix: ca parents: 785 diff changeset	1120
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1121	redrawSelFrameAtX:x0 y:y0 toX:x1
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1122	"redraw selection frame for a line
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1123	"
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1124	\|
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1125	w "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	1126	y "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	1127	x "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	1128	\|
5a0af910519e bug fix: ca parents: 785 diff changeset	1129
5a0af910519e bug fix: ca parents: 785 diff changeset	1130	hilightFrameColor notNil ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	1131	hilightLevel == 0 ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	1132	self paint:hilightFrameColor.
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1133
1105 c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1134	highlightMode == #line ifTrue:[
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1135	self displayLineFromX:x0 y:y0 toX:x1 y:y0.
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1136	y := y0 + fontHeight - 1.
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1137	self displayLineFromX:x0 y:y toX:x1 y:y.
1105 c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1138	] ifFalse:[
3176 4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1139	self displayRectangleX:x0 y:y0 width:x1 - x0 height:fontHeight.
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1140	].
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1141	^ self
4785f8b58e64 support focus highlighting ca parents: 2689 diff changeset	1142	].
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1143	] ifFalse:[
5a0af910519e bug fix: ca parents: 785 diff changeset	1144	hilightStyle == #motif ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	1145	self paint:bgColor.
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1146	y := y0 + 1.
1105 c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1147	highlightMode == #line ifTrue:[
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1148	self displayLineFromX:x0 y:y toX:x1 y:y.
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1149	y := y0 + fontHeight - 2.
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1150	self displayLineFromX:x0 y:y toX:x1 y:y.
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1151	] ifFalse:[
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1152	self displayRectangleX:x0 + 1 y:y width:x1 - x0 - 2 height:fontHeight - 2
c79bb5824b74 draw closed frames around selections if highlightMode ~~ #line tz parents: 1091 diff changeset	1153	]
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1154	]
5a0af910519e bug fix: ca parents: 785 diff changeset	1155	].
5a0af910519e bug fix: ca parents: 785 diff changeset	1156
5a0af910519e bug fix: ca parents: 785 diff changeset	1157	hilightLevel ~~ 0 ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	1158	"/ draw edge
5a0af910519e bug fix: ca parents: 785 diff changeset	1159
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1160	highlightMode == #line ifTrue:[
2015 5a83ee792cc3 eliminated accesses to leftOffset Claus Gittinger <cg@exept.de> parents: 2014 diff changeset	1161	w := ((width - (2 * margin)) max:(self widthOfContents)) + viewOrigin x.
5a83ee792cc3 eliminated accesses to leftOffset Claus Gittinger <cg@exept.de> parents: 2014 diff changeset	1162	x := margin - viewOrigin x.
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1163	] ifFalse:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1164	w := x1 - x0.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1165	x := x0.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1166	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1167	self drawEdgesForX:x y:y0 width:w height:fontHeight level:hilightLevel.
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1168	]
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1169	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1170
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1171	redrawX:x y:y width:w height:h
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1172	"a region must be redrawn"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1173
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1174	\|savClip startLn sel
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1175	y0 "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1176	y1 "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1177	visStart "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1178	visEnd "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1179	stopLn "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1180	maxY "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1181	maxX "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1182	dltLine "{ Class:SmallInteger }"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1183	startY "{ Class:SmallInteger }"\|
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1184
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1185	shown ifFalse:[^ self].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1186
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1187	visStart := self visibleLineOfY:(y + 1).
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1188	startLn := self visibleLineToAbsoluteLine:visStart.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1189
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1190	self paint:bgColor.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1191	self fillRectangleX:x y:y width:w height:h.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1192	startLn isNil ifTrue:[ ^ self ].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1193
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1194	sel := nil.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1195	maxX := x + w.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1196	maxY := y + h.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1197	visEnd := self visibleLineOfY:maxY.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1198	startY := self yOfVisibleLine:visStart.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1199	dltLine := startLn - visStart.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1200	stopLn := dltLine + visEnd.
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1201	savClip := self clippingBoundsOrNil.
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1202
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1203	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1204
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1205	(highlightMode == #line and:[self hasSelection]) ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1206	"/ redraw the background for all selected lines in the invalid range
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1207
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1208	self selectionDo:[:lnNr\|
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1209	(lnNr between:startLn and:stopLn) ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1210	sel isNil ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1211	sel := OrderedCollection new.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1212	self paint:hilightBgColor.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1213	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1214	sel add:(y0 := self yOfVisibleLine:(lnNr - dltLine)).
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1215	y1 := y0 + fontHeight min:maxY.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1216	y0 := y0 max:y.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1217	self fillRectangleX:x y:y0 width:w height:y1 - y0.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1218	]
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1219	]
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1220	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1221	self redrawLinesX:x y:startY toX:maxX start:startLn stop:stopLn.
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1222
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1223	"/ draw selection frames
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1224	sel notNil ifTrue:[
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1225	sel do:[:y0\| self redrawSelFrameAtX:x y:y0 toX:maxX]
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1226	].
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1227
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1228	self clippingRectangle:savClip.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1229	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1230
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1231	!SelectionInTreeView methodsFor:'enumerating'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1232
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1233	detectNode:aOneArgBlock
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1234	"evaluate the argument, aBlock for each node in the list until
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1235	the block returns true; in this case return the node which caused
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1236	the true evaluation. If none node is detected, nil is returned.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1237	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1238	^ listOfNodes detect:aOneArgBlock ifNone:nil
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1239	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1240
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1241	selectedNodesDo:aOneArgBlock
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1242	"evaluate the block on each node selected
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1243	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1244	self selectionDo:[:i\| aOneArgBlock value:(listOfNodes at:i) ]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1245	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1246
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1247	!SelectionInTreeView methodsFor:'event handling'!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1248
3744 b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1249	activateMenu
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1250	\|node menu\|
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1251
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1252	node := self selectedNode.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1253	node notNil ifTrue:[
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1254	menu := node middleButtonMenu.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1255	menu notNil ifTrue:[
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1256	menu isCollection ifTrue:[
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1257	\|appl\|
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1258
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1259	menu := Menu decodeFromLiteralArray:menu.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1260
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1261	(appl := self application) notNil ifTrue:[
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1262	menu findGuiResourcesIn:appl
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1263	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1264	"/ menu receiver:appl. -- now done in findGuiResources ...
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1265	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1266	self startUpMenu:menu.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1267	^ self.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1268	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1269	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1270	super activateMenu
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1271	!
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1272
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1273	buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1274	"mouse-move while button was pressed - handle selection changes"
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1275
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1276	discardMotionEvents ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1277	super buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1278	]
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1279
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1280
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1281	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1282
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1283	buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1284
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1285	(self indicatiorLineForButton:button atX:x y:y) == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1286	^ super buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1287	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1288	"/ discard doubleClick on indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1289	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1290
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1291	buttonPress:button x:x y:y
3744 b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1292	"handle button press event"
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1293
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1294	\|node\|
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1295
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1296	(button == 1) ifTrue:[
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1297	self handleSelectButtonAtX:x y:y.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1298
3744 b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1299	(editorWidget isNil
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1300	and:[(node := self selectedNode) notNil
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1301	and:[node canEdit
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1302	and:[x >= (self xOfValueNode:node)]]]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1303	) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1304	self openEditor
3744 b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1305	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1306	^ self.
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1307	].
b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1308	super buttonPress:button x:x y:y
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1309	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1310
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1311	buttonRelease:button x:x y:y
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1312	"stop any autoscroll"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1313
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1314	discardMotionEvents ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1315	clickPosition := nil.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1316	discardMotionEvents := false.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1317	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1318	super buttonRelease:button x:x y:y
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1319
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1320	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1321
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1322	doubleClicked
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1323	"handle a double click; collapse or expand selected entry
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1324	in case of having children
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1325	"
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	1326	\|node \|
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1327
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1328	(node := self selectedNode) notNil ifTrue:[
1202 b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1329	(validateDoubleClickBlock isNil
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1330	or:[(validateDoubleClickBlock value:node) ~~ false]) ifTrue:[
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1331	(validateExpandabilityBlock isNil
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1332	or:[(validateExpandabilityBlock value:node) ~~ false]) ifTrue:[
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1333	self selectedNodeExpand:(node isExpandable).
b9a3beb20ca7 added an extra validateExpandability block, Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	1334	].
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	1335	node hasChildren ifFalse:[
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	1336	super doubleClicked
a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	1337	]
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1338	]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1339	]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1340
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1341	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1342
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1343	handleSelectButtonAtX:x y:y
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1344	"handle a select button click
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1345	"
1268 37066c039eb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	1346	\|node lineNr sensor isExpd\|
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1347
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1348	lineNr := self indicatiorLineForButton:#select atX:x y:y.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1349
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1350	lineNr == 0 ifTrue:[
3744 b956bec8751b cleanup Claus Gittinger <cg@exept.de> parents: 3739 diff changeset	1351	^ super buttonPress:1 x:x y:y
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1352	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1353	node := listOfNodes at:lineNr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1354
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1355	discardMotionEvents := true.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1356	dragIsActive := false.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1357	clickPosition := nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1358
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1359	self hasSelection ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1360	(selectConditionBlock isNil or:[selectConditionBlock value:lineNr]) ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1361	self selection:lineNr
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1362	] ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1363	self selection:nil
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1364	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1365	].
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1366
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1367	isExpd := node isExpandable.
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1368
2483 1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	1369	(supportsExpandAll
1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	1370	and:[(sensor := self sensor) ctrlDown or:[sensor shiftDown]]
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1371	) ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1372	isExpd ifTrue:[model doExpandAll:node]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1373	ifFalse:[model doCollapseAll:node]
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1374	] ifFalse:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1375	isExpd ifTrue:[model doExpand:node]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1376	ifFalse:[model doCollapse:node].
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1377	].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1378	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	1379
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1380	indicatiorLineForButton:aButton atX:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1381	"returns linenumber assigned to indicator at x/y or 0
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1382	"
1268 37066c039eb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	1383	\|nr x0 node\|
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1384
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1385	( enabled
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1386	and:[showDirectoryIndicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1387	and:[aButton == 1 or:[aButton == #select]]]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1388	) ifTrue:[
2014 3052fe815bcb use #lineAtY: Claus Gittinger <cg@exept.de> parents: 1972 diff changeset	1389	nr := self lineAtY:y. "/ self visibleLineToListLine:(self visibleLineOfY:y).
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1390
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1391	nr notNil ifTrue:[
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1392	node := listOfNodes at:nr.
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1393	node hasChildren ifTrue:[
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1394	x0 := self xOfFigureLevel:(node level - 1).
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1395
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1396	(x > x0 and:[(x0 + imageWidth) > x and:[node children notEmpty]]) ifTrue:[
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1397	^ nr
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1398	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1399	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1400	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1401	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1402	^ 0
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1403	!
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1404
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1405	isCtrlMetaAltOrShiftPressed
2483 1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	1406	"returns true if CTRL, META, ALT or SHIFT is pressed"
1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	1407
1589203d52f3 Use SynchronousWindoeSensor if no windowGroup Stefan Vogel <sv@exept.de> parents: 2333 diff changeset	1408	^ self sensor anyModifierKeyDown.
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1409	!
36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1410
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1411	key:key select:index x:x y:y
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1412	"select an entry by a keyboard action. This is treated like a doubleClick
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1413	on that entry.
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1414	Add on: In case that the entry is not selectable, scroll to the entry
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1415	"
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1416	(enabled and:[keyActionStyle notNil]) ifFalse:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1417	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1418	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1419
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1420	(selectConditionBlock isNil or:[selectConditionBlock value:index]) ifTrue:[
1887 b47b3cb2515b does not inherit #key:select:x:y: Claus Gittinger <cg@exept.de> parents: 1822 diff changeset	1421	^ super keyPress:key x:x y:y
b47b3cb2515b does not inherit #key:select:x:y: Claus Gittinger <cg@exept.de> parents: 1822 diff changeset	1422	"/ ^ super key:key select:index x:x y:y
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1423	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1424
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1425	keyActionStyle == #pass ifTrue:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1426	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1427	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1428
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	1429	self gotoLine:index
785 6114a6e125c5 update ca parents: 782 diff changeset	1430	!
6114a6e125c5 update ca parents: 782 diff changeset	1431
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1432	keyPress:key x:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1433	"handle keyboard input"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1434
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1435	<resource: #keyboard ( #CursorLeft #CursorRight ) >
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1436
4253 85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	1437	\|node\|
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1438
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1439	enabled ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1440	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1441	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1442
2065 845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1443	"/ cg: its nicer to expand/collaps on these keys
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1444	key == #CursorRight ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1445	(node := self selectedNode) notNil ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1446	model doExpand:node.
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1447	^ self.
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1448	].
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1449	].
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1450	key == #CursorLeft ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1451	(node := self selectedNode) notNil ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1452	model doCollapse:node.
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1453	^ self.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1454	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1455	].
2065 845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1456
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1457	"/ search fwd/bwd for a node with children
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1458
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1459	"/ (key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1460	"/ (idx := self selectedIndex) == 0 ifTrue:[ ^ self ].
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1461	"/
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1462	"/ (key == #CursorLeft) ifTrue:[ inc := -1. end := 0 ]
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1463	"/ ifFalse:[ inc := 1. end := 1 + listOfNodes size ].
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1464	"/
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1465	"/ [(idx := idx + inc) ~~ end] whileTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1466	"/ node := listOfNodes at:idx.
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1467	"/ node hasChildren ifTrue:[
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1468	"/ ^ self key:key select:idx x:x y:y
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1469	"/ ]
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1470	"/ ].
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1471	"/ ^ self
845bd5d2523c crsrLeft/right behavior changed Claus Gittinger <cg@exept.de> parents: 2056 diff changeset	1472	"/ ].
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1473	^ super keyPress:key x:x y:y
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1474	! !
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1475
2501 832cbac295b8 method category rename Claus Gittinger <cg@exept.de> parents: 2494 diff changeset	1476	!SelectionInTreeView methodsFor:'initialization & release'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1477
685 80751cda3340 lines as point ca parents: 659 diff changeset	1478	create
80751cda3340 lines as point ca parents: 659 diff changeset	1479	super create.
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1480	lineMask := lineMask onDevice:self graphicsDevice.
685 80751cda3340 lines as point ca parents: 659 diff changeset	1481
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1482	lineColor := lineColor isNil ifTrue:[fgColor]
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1483	ifFalse:[lineColor onDevice:self graphicsDevice].
1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1484
1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1485	editValueFgColor := editValueFgColor onDevice:self graphicsDevice.
685 80751cda3340 lines as point ca parents: 659 diff changeset	1486	!
80751cda3340 lines as point ca parents: 659 diff changeset	1487
785 6114a6e125c5 update ca parents: 782 diff changeset	1488	fetchDefaultImages
6114a6e125c5 update ca parents: 782 diff changeset	1489	"returns a directory with default keys and images; could be
6114a6e125c5 update ca parents: 782 diff changeset	1490	redefined by subclass.
6114a6e125c5 update ca parents: 782 diff changeset	1491	"
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1492	^ itemClass notNil ifTrue:[itemClass keysAndIcons]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1493	ifFalse:[nil]
785 6114a6e125c5 update ca parents: 782 diff changeset	1494	!
6114a6e125c5 update ca parents: 782 diff changeset	1495
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1496	fetchDeviceResources
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1497	"initialize heavily used device resources - to avoid rendering
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1498	images again and again later"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1499
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1500	super fetchDeviceResources.
478 d7286b946764 add: ca parents: 471 diff changeset	1501	self refetchDeviceResources
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1502	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1503
478 d7286b946764 add: ca parents: 471 diff changeset	1504	fetchImageResources
d7286b946764 add: ca parents: 471 diff changeset	1505	"initialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	1506	images again and again later; returns maximum extent of the images used.
d7286b946764 add: ca parents: 471 diff changeset	1507	Could be redefined by subclass
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1508	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1509	\|img x y keysAndIcons\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1510
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1511	x := y := 0.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1512	imageOpened isNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1513	imageOpened := self imageOnMyDevice:(self class imageOpened)
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1514	].
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1515	imageOpened notNil ifTrue:[
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1516	x := x max:(imageOpened width).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1517	y := y max:(imageOpened height).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1518	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1519
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1520	imageClosed isNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1521	imageClosed := self imageOnMyDevice:(self class imageClosed)
533 d7867efb6f60 #fetchImageResources returned the max extent only on the first invocation Stefan Vogel <sv@exept.de> parents: 532 diff changeset	1522	].
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1523	imageClosed notNil ifTrue:[
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1524	x := x max:(imageClosed width).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1525	y := y max:(imageClosed height).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1526	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1527
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1528	imageItem isNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1529	imageItem := self imageOnMyDevice:(self class imageItem)
533 d7867efb6f60 #fetchImageResources returned the max extent only on the first invocation Stefan Vogel <sv@exept.de> parents: 532 diff changeset	1530	].
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1531	imageItem notNil ifTrue:[
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1532	x := x max:(imageItem width).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1533	y := y max:(imageItem height).
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1534	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1535
785 6114a6e125c5 update ca parents: 782 diff changeset	1536	(keysAndIcons := self fetchDefaultImages) notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1537	keysAndIcons keysAndValuesDo:[:aKey :anIcon\|
6114a6e125c5 update ca parents: 782 diff changeset	1538	(anIcon isImage and:[aKey notNil]) ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1539	registeredImages at:aKey put:(self imageOnMyDevice:anIcon)
785 6114a6e125c5 update ca parents: 782 diff changeset	1540	]
6114a6e125c5 update ca parents: 782 diff changeset	1541	]
6114a6e125c5 update ca parents: 782 diff changeset	1542	].
6114a6e125c5 update ca parents: 782 diff changeset	1543	registeredImages keysAndValuesDo:[:k :img\|
6114a6e125c5 update ca parents: 782 diff changeset	1544	x := (img width) max:x.
6114a6e125c5 update ca parents: 782 diff changeset	1545	y := (img height) max:y.
6114a6e125c5 update ca parents: 782 diff changeset	1546	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1547
785 6114a6e125c5 update ca parents: 782 diff changeset	1548	(listOfNodes size > 0 and:[(img := listOfNodes first icon) isImage]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1549	x := (img width) max:x.
6114a6e125c5 update ca parents: 782 diff changeset	1550	y := (img height) max:y.
6114a6e125c5 update ca parents: 782 diff changeset	1551	].
6114a6e125c5 update ca parents: 782 diff changeset	1552	^ x @ y
1070 856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1553
856d037fe133 care for non-existing images. Claus Gittinger <cg@exept.de> parents: 1061 diff changeset	1554	"Modified: / 12.8.1998 / 12:45:53 / cg"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1555	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1556
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1557	getFontParameters
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1558	"save old computed height derived from images
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1559	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1560	\|lineHeight\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1561
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1562	lineHeight := fontHeight ? 0.
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1563	super getFontParameters.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1564	labelOffsetY := fontAscent - (fontHeight - lineSpacing // 2).
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1565
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1566	lineHeight > fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1567	fontHeight := lineHeight
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1568	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	1569	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	1570	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	1571	]
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1572	!
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1573
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1574	initStyle
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1575	"setup viewStyle specifics"
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1576
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1577	super initStyle.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1578	highlightMode := DefaultHilightMode ? #label.
900 cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1579
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1580	!
cd74dcab7e3f support hightlightMode ca parents: 860 diff changeset	1581
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1582	initialize
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1583	"setup instance attributes
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1584	"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1585	super initialize.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1586
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1587	itemClass isNil ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1588	itemClass := TreeItem
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1589	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1590
835 36202285352f support of expandAll/collapseAll if the indicator ca parents: 825 diff changeset	1591	supportsExpandAll := true.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1592	self bitGravity:#NorthWest.
773 b3596157f97d register the icons and put them into a caching dict tz parents: 771 diff changeset	1593	showRoot := showDirectoryIndicatorForRoot := showLines := computeResources := true.
1815 a5f2bd36e179 double click on expandable item does not perform Claus Gittinger <cg@exept.de> parents: 1813 diff changeset	1594	showDirectoryIndicator := discardMotionEvents := showLinesForRoot := false.
1275 cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	1595	leftMargin := 2.
cc62615ed032 checkin from browser Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	1596	lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55].
773 b3596157f97d register the icons and put them into a caching dict tz parents: 771 diff changeset	1597	registeredImages := IdentityDictionary new.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1598	drawVLinesFromLevel := 1.
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1599	textInset := 4.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1600	imageInset := 0. "/ set during indication enabled
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1601	imageWidth := 8. "/ default: will change during startup
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1602
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1603	buildInArray := Array new:50. "/ used for temporary calculation
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1604	"/ suppress garbage collection
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1605
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1606	self model:nil. "/ creates a default model.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1607	highlightMode := #label.
1175 1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1608	editValueFgColor := Color blue.
478 d7286b946764 add: ca parents: 471 diff changeset	1609	!
d7286b946764 add: ca parents: 471 diff changeset	1610
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1611	realize
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1612	super realize.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1613	self refetchDeviceResources.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1614	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1615
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1616	recomputeDirectoryIndicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1617	"setup attributes used by directory indicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1618	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1619	\|x w\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1620
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1621	imageInset := 0.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1622
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1623	(showDirectoryIndicator and:[computeResources not]) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1624	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1625	].
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1626
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1627	x := 0.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1628	openIndicator isNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1629	openIndicator := self imageOnMyDevice:(self class openIndicator)
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1630	].
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1631	openIndicator notNil ifTrue:[
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1632	x := openIndicator width
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1633	].
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1634
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1635	closeIndicator isNil ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	1636	closeIndicator := self imageOnMyDevice:(self class closeIndicator)
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1637	].
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1638	closeIndicator notNil ifTrue:[
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1639	x := x max:(closeIndicator width)
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1640	].
1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1641
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1642	x := x // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1643	w := imageWidth // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1644
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1645	(x := x + self class minImageInset) > w ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1646	imageInset := x - w.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1647	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1648
1072 1888703adc18 care for non-existing open/close indicators. Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	1649	"Modified: / 13.8.1998 / 12:02:04 / cg"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1650	!
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1651
478 d7286b946764 add: ca parents: 471 diff changeset	1652	refetchDeviceResources
d7286b946764 add: ca parents: 471 diff changeset	1653	"reinitialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	1654	images again and again later
d7286b946764 add: ca parents: 471 diff changeset	1655	"
551 b9d3ddbc3365 * empty log message * Claus Gittinger <cg@exept.de> parents: 546 diff changeset	1656	\|extent\|
478 d7286b946764 add: ca parents: 471 diff changeset	1657
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1658	(realized and:[computeResources and:[listOfNodes size ~~ 0]]) ifTrue:[
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1659	computeResources := false.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1660	extent := self fetchImageResources.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1661
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1662	extent y >= fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1663	fontHeight := 1 + extent y.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1664	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	1665	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	1666	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	1667	].
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1668	"/ round and not odd: because of line drawing
685 80751cda3340 lines as point ca parents: 659 diff changeset	1669
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1670	imageWidth := (extent x) // 2.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1671	imageWidth odd ifTrue:[imageWidth := imageWidth + 1].
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1672	imageWidth := imageWidth * 2.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1673
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1674	self recomputeDirectoryIndicator.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1675	self computeNumberOfLinesShown.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1676	]
2156 e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1677	!
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1678
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1679	release
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1680	"remove dependencies
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1681	"
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1682	rootHolder removeDependent:self.
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1683	selectionHolder removeDependent:self.
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1684
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1685	model notNil ifTrue:[
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1686	model stopRunningTasks
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1687	].
e16dc409ecf2 destroy - release Claus Gittinger <cg@exept.de> parents: 2065 diff changeset	1688	super release.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1689	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1690
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1691	!SelectionInTreeView methodsFor:'model'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1692
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1693	getListFromModel
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1694	"if I have a model, get my list from it using the listMessage.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1695	If listMessage is nil, try aspectMessage for backward compatibilty.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1696	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1697	super list:(self listFromModel) keepSelection:true
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1698	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1699
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1700	listFromModel
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1701	"get list from model and return the new list.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1702	If listMessage is nil, try aspectMessage for backward compatibilty.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1703	"
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1704	\|msg\|
838 d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	1705
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1706	widthOfWidestLine := nil.
847 8395a2d05464 recompute image height whenever list changed ca parents: 846 diff changeset	1707	list := listOfNodes := (msg := listMsg ? aspectMsg) notNil ifTrue:[model perform:msg] ifFalse:[#()].
8395a2d05464 recompute image height whenever list changed ca parents: 846 diff changeset	1708	self refetchDeviceResources.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1709	^ listOfNodes
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1710	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1711
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1712	model:aModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1713	"check whether model is nil; than a default model is created
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1714	"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1715	\|model root\|
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1716
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1717	model notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1718	model stopRunningTasks
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1719	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1720
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1721	model := aModel ? (self class defaultModelClass new).
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1722	self itemClass:(model class defaultItemClass).
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1723	root := model root.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1724
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1725	model showRoot:showRoot.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1726
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1727	root notNil ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1728	root expand
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1729	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1730	super model:model.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1731	self getListFromModel
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1732
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1733	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1734
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1735	rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1736	"update hierarchical list from root model; 'rootHolder'
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1737	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1738	\|root\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1739
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1740	root := rootHolder root.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1741
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1742	self root == root ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1743	self selection:nil.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1744	self root:root.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1745	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1746	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1747
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1748	selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1749	"set the selection derived from the selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1750	"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	1751	\|coll value size idx\|
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1752
4246 b2aeabea341b class: SelectionInTreeView Claus Gittinger <cg@exept.de> parents: 3985 diff changeset	1753	(value := selectionHolder value) notNil ifTrue:[
1214 6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1754	(multipleSelectOk and:[value isCollection]) ifFalse:[
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	1755	^ self selectNode:value withNotify:false.
860 64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	1756	].
1214 6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1757
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1758	(size := value size) ~~ 0 ifTrue:[
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1759	size == 1 ifTrue:[
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	1760	^ self selectNode:(value at:1) withNotify:false
1214 6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1761	].
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1762
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1763	model doMakeVisible:value.
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1764
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1765	coll := OrderedCollection new:size.
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1766
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1767	value do:[:el\|
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1768	idx := el isNumber ifTrue:[el] ifFalse:[self indexOfNode:el].
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1769
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1770	idx ~~ 0 ifTrue:[
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1771	coll add:idx
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1772	].
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1773	].
6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1774
4272 7372fb880713 class: SelectionInTreeView Claus Gittinger <cg@exept.de> parents: 4253 diff changeset	1775	coll := coll asNilIfEmpty.
1214 6aa740fb636c code cleanup. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	1776	].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1777	].
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	1778	self setSelection:coll
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1779	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1780
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1781	selectionToModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1782	"write selection to selection holder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1783	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1784	\|newSel oldSel\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1785
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1786	oldSel := selectionHolder value.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1787
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1788	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1789	(newSel := self selectedNode) ~~ oldSel ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1790	selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1791	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1792	] ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1793	selection size == 0 ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1794	oldSel notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1795	selectionHolder value:nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1796	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1797	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1798	newSel := selection collect:[:i\| listOfNodes at:i].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1799
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1800	newSel size ~~ oldSel size ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1801	selectionHolder value:newSel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1802	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1803	newSel do:[:aNode\|
785 6114a6e125c5 update ca parents: 782 diff changeset	1804	(oldSel includesIdentical:aNode) ifFalse:[
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1805	^ selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1806	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1807	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1808	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1809	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1810	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1811	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1812
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1813	!SelectionInTreeView methodsFor:'private'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1814
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1815	closeEditor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1816	"close the editor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1817	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1818	editorWidget notNil ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1819	editorWidget destroy.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1820	editorIndex := 0.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1821	editorWidget := nil.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1822	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1823
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1824	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1825
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1826	list:aList keepSelection:keepSelection
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1827	"setup new list; keep selection dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1828	keepSelection
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1829	"
1268 37066c039eb3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	1830	\|list\|
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1831
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1832	list := (aList size == 0) ifTrue:[#()] ifFalse:[aList].
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1833	super list:list keepSelection:keepSelection.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1834	self refetchDeviceResources.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1835
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1836	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1837
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1838	openEditor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1839	"open an editor on selection
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1840	"
1175 1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1841	\|node x0 x1 y0\|
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1842
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1843	editorWidget notNil ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1844	^ self
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1845	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1846	editorIndex := self selectedIndex.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1847
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1848	( (node := listOfNodes at:editorIndex ifAbsent:nil) isNil
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1849	or:[(y0 := self listLineToVisibleLine:editorIndex) isNil
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1850	or:[(editorWidget := node editor) isNil]]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1851	) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1852	^ self
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1853	].
4516 1e8e11a8465c class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4380 diff changeset	1854	editorWidget withAllSubViewsDo:[:v\| v font:gc font ].
1175 1fa0de353686 add new color used by editValue ca parents: 1171 diff changeset	1855
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1856	y0 := self yOfVisibleLine:y0.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1857	x0 := self xOfValueNode:node.
3423 5870494fda6b added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 3220 diff changeset	1858	x1 := (editorWidget preferredWidth) max:50.
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	1859	x1 := (x0 + x1) min:(self width - 5).
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1860
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1861	editorWidget geometryLayout:(Rectangle left:x0 right:x1 top:y0 bottom:y0 + fontHeight).
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1862
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1863	self addComponent:editorWidget.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1864	editorWidget realize.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1865	self paint:bgColor.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1866
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1867	self fillRectangleX:(x0 - SelectionInset)
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1868	y:y0
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1869	width:SelectionInset + SelectionInset + (x1 - x0)
0199f65bc8ce add editable value ca parents: 1162 diff changeset	1870	height:fontHeight.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1871	! !
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1872
2494 87ae868b836a method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	1873	!SelectionInTreeView methodsFor:'private-drag and drop'!
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1874
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1875	collectionOfDragObjects
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1876	"returns collection of dragable objects assigned to selection
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1877	Here, by default, a collection of text-dragObjects is generated;
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1878	however, if a dragObjectConverter is defined, that one gets a chance
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1879	to convert as appropriate."
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1880
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1881	\|collection converted selection dLbl dObj node\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1882
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1883	selection := self selectionAsCollection.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1884
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1885	collection := selection collect:[:nr\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1886	node := listOfNodes at:nr.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1887	dObj := self dragObjectForNode:node.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1888	dObj theObject:(node contents).
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1889	dLbl := LabelAndIcon icon:(self figureFor:node) string:(node name).
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1890	dObj displayObject:dLbl.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1891	dObj
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1892	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1893
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1894	dragObjectConverter notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1895	converted := OrderedCollection new.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1896	collection keysAndValuesDo:[:nr :obj \|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1897	(dObj := dragObjectConverter value:obj) notNil ifTrue:[
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1898	node := listOfNodes at:nr.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1899	dLbl := LabelAndIcon icon:(self figureFor:node) string:(node name).
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1900	converted displayObject:dLbl.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1901	converted add:dObj
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1902	]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1903	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1904	collection := converted
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1905	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1906	^ collection.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1907
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1908
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1909
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1910	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1911
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1912	dragObjectForNode:aNode
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1913	"returns the dragable object for a node; could be redefined in subclass
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1914	"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1915	^ DropObject new:aNode.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1916
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1917
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1918	!
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1919
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1920	startDragX:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1921	"start drag
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1922	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1923	dragIsActive := true.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1924
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1925	DragAndDropManager startDrag:(self collectionOfDragObjects)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1926	from:self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1927	atEnd:endDragAction
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1928
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1929
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1930	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1931
2494 87ae868b836a method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	1932	!SelectionInTreeView methodsFor:'private-queries'!
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1933
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1934	lengthOfLongestLineBetween:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1935	"return the length (in characters) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1936	"
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1937	^ self widthOfContents // fontWidth + 1
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1938	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1939
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1940	smallestLevelOfNodesBetween:start and:stop
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1941	"returns the smallest level of the nodes in a line range
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1942	"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1943	\|prevNode currParent nextParent
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1944
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1945	lvl "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1946	min "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1947	end "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1948	beg "{ Class:SmallInteger }"
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1949	\|
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1950
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1951	(end := stop min:(listOfNodes size)) < start ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1952	^ 0
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1953	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1954
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1955	prevNode := listOfNodes at:start.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1956	currParent := prevNode parent.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1957
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1958	currParent isNil ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1959	^ 1
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1960	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1961
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1962	(min := prevNode level) == 2 ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1963	^ min
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1964	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1965	beg := start + 1.
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1966
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1967	listOfNodes from:beg to:end do:[:currNode\|
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1968	(nextParent := currNode parent) == currParent ifFalse:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1969	(currParent := nextParent) == prevNode ifFalse:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1970	(lvl := currNode level) == 2 ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1971	^ 2
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1972	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1973	min := min min:lvl
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1974	]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1975	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1976	prevNode := currNode
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1977	].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1978	^ min
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1979
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1980
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1981
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1982
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1983	!
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	1984
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1985	widthOfContents
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1986	"return the width of the contents in pixels
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1987	- used for scrollbar interface"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1988
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1989	listOfNodes isNil ifTrue:[^ 0].
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1990
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1991	(widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1992	widthOfWidestLine := self widthOfLongestLine
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1993	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1994	^ widthOfWidestLine + (leftMargin * 2)
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1995
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1996	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1997
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1998	widthOfLongestLine
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	1999	"return the width of the longest line in pixels
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2000	"
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2001	\|parent pItem p
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2002	startX "{ Class: SmallInteger }"
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2003	deltaX "{ Class: SmallInteger }"
838 d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2004	level "{ Class: SmallInteger }"
d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2005	width "{ Class: SmallInteger }"
d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2006	maxSz "{ Class: SmallInteger }"\|
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2007
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2008	buildInArray atAllPut:0.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2009	parent := nil.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2010	maxSz := 1.
838 d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2011	level := 1.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2012
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2013	listOfNodes do:[:anItem\|
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2014	(p := anItem parent) ~~ parent ifTrue:[
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2015	buildInArray at:level put:maxSz.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2016
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2017	(parent := p) == pItem ifTrue:[level := level + 1]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2018	ifFalse:[level := anItem level].
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2019
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2020	maxSz := buildInArray at:level.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2021	].
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2022	pItem := anItem.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2023	maxSz := maxSz max:(anItem name size).
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2024	].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2025	buildInArray at:level put:maxSz.
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2026
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2027	startX := self xOfStringLevel:1.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2028	deltaX := imageInset + imageWidth.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2029	width := '1' widthOn:self.
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2030	maxSz := 0.
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2031
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2032	buildInArray do:[:el\|
2015 5a83ee792cc3 eliminated accesses to leftOffset Claus Gittinger <cg@exept.de> parents: 2014 diff changeset	2033	el == 0 ifTrue:[ ^ maxSz + viewOrigin x ].
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2034	maxSz := maxSz max:(el * width + startX).
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2035	startX := startX + deltaX.
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2036	].
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2037	! !
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2038
2494 87ae868b836a method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	2039	!SelectionInTreeView methodsFor:'private-redefinitions'!
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2040
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2041	expandTabs
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2042	"nothing to do
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2043	"
838 d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2044
d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2045
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2046	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2047
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2048	list:aCollection expandTabs:expand scanForNonStrings:scan
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2049
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2050	includesNonStrings := false.
4380 0c043b8a8b4b class: SelectionInTreeView Claus Gittinger <cg@exept.de> parents: 4272 diff changeset	2051	self list:aCollection expandTabs:false scanForNonStrings:false includesNonStrings:nil
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2052	!
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2053
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2054	withoutRedrawAt:anIndex put:aString
1813 c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	2055	"change a line without redisplay and WITHOUT any sizeChange notifications.
c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	2056	Somewhat dangerous, since scrollBars will not be informed about contents-changes.
c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	2057	Use only if multiple lines are to be changed, and a sizeChanged is invoked by some other
c25b1a3476b2 comment only Claus Gittinger <cg@exept.de> parents: 1624 diff changeset	2058	means at the end."
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2059
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2060	\|width\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2061
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2062	width := widthOfWidestLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2063	widthOfWidestLine := nil.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2064	super withoutRedrawAt:anIndex put:aString.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2065	widthOfWidestLine := width.
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2066
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2067	(widthOfWidestLine notNil and:[aString size ~~ 0]) ifTrue:[
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2068	width := self xOfStringNode:(listOfNodes at:anIndex)
368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2069	+ (aString widthOn:self)
2015 5a83ee792cc3 eliminated accesses to leftOffset Claus Gittinger <cg@exept.de> parents: 2014 diff changeset	2070	+ viewOrigin x.
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2071
838 d15daece0c54 optimize algorithm to get list from model and to ca parents: 835 diff changeset	2072	widthOfWidestLine := widthOfWidestLine max:width.
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2073	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2074	! !
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2075
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2076	!SelectionInTreeView methodsFor:'queries'!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2077
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2078	figureFor:aNode
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2079	"return a (bitmap) figure for a node"
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2080
785 6114a6e125c5 update ca parents: 782 diff changeset	2081	\|icon img\|
6114a6e125c5 update ca parents: 782 diff changeset	2082
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2083	"/ the item may provide an icon
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2084	"/ (it knows for itself if its open or closed)
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2085
785 6114a6e125c5 update ca parents: 782 diff changeset	2086	(icon := aNode icon) notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	2087	img := registeredImages at:icon ifAbsent:nil.
6114a6e125c5 update ca parents: 782 diff changeset	2088	img notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	2089	^ img
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	2090	].
785 6114a6e125c5 update ca parents: 782 diff changeset	2091	icon isImage ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2483 diff changeset	2092	img := self imageOnMyDevice:icon.
785 6114a6e125c5 update ca parents: 782 diff changeset	2093	registeredImages at:icon put:img.
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2094	^ img
785 6114a6e125c5 update ca parents: 782 diff changeset	2095	]
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	2096	].
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	2097
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2098	"/ ok, node did not return an icon - use default.
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2099
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2100	aNode hasChildren ifFalse:[
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2101	"/ regular
7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2102	^ imageItem
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2103	].
1278 7083a9583174 comments Claus Gittinger <cg@exept.de> parents: 1275 diff changeset	2104	"/ folder
846 368acc8d9258 optimize widthOfContents and drawing ca parents: 838 diff changeset	2105	^ aNode hidden ifTrue:[imageClosed] ifFalse:[imageOpened]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2106	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2107
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2108	indexOfNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2109	"returns index of a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2110	"
785 6114a6e125c5 update ca parents: 782 diff changeset	2111	^ listOfNodes identityIndexOf:aNode
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2112	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2113
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2114	xOfFigureLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2115	"origin x where to draw the icon
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2116	"
785 6114a6e125c5 update ca parents: 782 diff changeset	2117	\|l "{ Class:SmallInteger }"\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2118
785 6114a6e125c5 update ca parents: 782 diff changeset	2119	l := showRoot ifTrue:[aLevel] ifFalse:[aLevel - 1].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2120
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2121	showDirectoryIndicator ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2122	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2123	] ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2124	showDirectoryIndicatorForRoot ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2125	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2126	]
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	2127	].
2015 5a83ee792cc3 eliminated accesses to leftOffset Claus Gittinger <cg@exept.de> parents: 2014 diff changeset	2128	^ (l * (imageInset + imageWidth)) + imageInset - viewOrigin x + leftMargin
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2129	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2130
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2131	xOfFigureNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2132	"origin x where to draw the icon
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2133	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2134	^ self xOfFigureLevel:(aNode level)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2135	!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	2136
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2137	xOfStringLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2138	"origin x where to draw the text( label )
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2139	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2140	^ (self xOfFigureLevel:aLevel) + imageWidth + textInset
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2141
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2142	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2143
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2144	xOfStringNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2145	"origin x where to draw the text( label )
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2146	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	2147	^ self xOfStringLevel:(aNode level)
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2148
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	2149	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2150
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2151	xOfValueNode:aNode
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2152	"returns the left x position of the start of the value
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2153	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2154	\|p x\|
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2155
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2156	p := aNode parent.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2157
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2158	x := p notNil ifTrue:[30 + (p childrenWidthOn:self)]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2159	ifFalse:[0].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2160
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2161	^ x + (self xOfStringNode:aNode)
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2162
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2163	! !
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2164
1061 8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2165	!SelectionInTreeView methodsFor:'scrolling'!
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2166
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2167	needScrollToMakeLine:aListLineNr
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2168	"redefined to scroll whenever line is not in top half"
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2169
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2170	(aListLineNr >= firstLineShown) ifTrue:[
1162 b1aee7c3fd98 no need of scrolling for one item if selecting an item tz parents: 1105 diff changeset	2171	(aListLineNr < (firstLineShown + nFullLinesShown)) ifTrue:[
1061 8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2172	^ false
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2173	]
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2174	].
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2175	^ true
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2176
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	2177	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2178
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2179	originChanged:delta
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2180	"sent after scrolling - have to update origin of editor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2181	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2182	super originChanged:delta.
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2183
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2184	editorWidget notNil ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2185	editorWidget origin:(editorWidget origin - delta)
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2186	]
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2187
1061 8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2188	! !
8eba9d898259 scroll to bring selection into upper half of view Claus Gittinger <cg@exept.de> parents: 908 diff changeset	2189
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2190	!SelectionInTreeView methodsFor:'selection'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2191
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2192	selectNode:aNode
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2193	"change selection to a node
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2194	"
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2195	^ self selectNode:aNode withNotify:true.
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2196	!
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2197
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2198	selectNode:aNode withNotify:withNotify
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2199	"change selection to a node
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2200	"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2201	\|index\|
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2202
860 64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2203	(index := aNode) notNil ifTrue:[
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2204	index isNumber ifFalse:[
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2205	(index := self indexOfNode:aNode) == 0 ifTrue:[
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2206	model doMakeVisible:aNode.
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2207	index := self indexOfNode:aNode.
64d52b8e3dbd bug fix in remove: ca parents: 855 diff changeset	2208	]
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2209	].
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2210	index == 0 ifTrue:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2211	index := nil
848 29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2212	]
29f1947578b8 expand selected nodes automatically ca parents: 847 diff changeset	2213	].
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2214	withNotify ifFalse:[
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2215	self setSelection:index
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2216	] ifTrue:[
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2217	self selection:index
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2218	].
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2219	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	2220
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2221	selectNodes:aCollectionOfNodes
2689 c382886ddb08 bugfix: catch recursion if selection changed through to the model ca parents: 2688 diff changeset	2222	^ self selectNodes:aCollectionOfNodes withNotify:true.
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2223	!
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2224
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2225	selectNodes:aCollectionOfNodes withNotify:withNotify
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2226	\|selIndexCollection\|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2227
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2228	selIndexCollection := aCollectionOfNodes collect:[:eachNode \| listOfNodes identityIndexOf:eachNode].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2229	selIndexCollection := selIndexCollection reject:[:eachIndex \| eachIndex == 0].
2688 2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2230
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2231	withNotify ifTrue:[
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2232	self selection:selIndexCollection.
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2233	] ifFalse:[
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2234	self setSelection:selIndexCollection.
2d853020325f bugfix: catch recursion if selection changed through to the model ca parents: 2659 diff changeset	2235	].
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2236
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2237	"/ first := true.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2238	"/ aCollectionOfNodes do:[:eachNode \|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2239	"/ first ifTrue:[
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2240	"/ self selectNode:eachNode.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2241	"/ first := false.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2242	"/ ] ifFalse:[
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2243	"/ self selectedNodeAdd:eachNode
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2244	"/ ]
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2245	"/ ].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2246	"/
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2247	!
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2248
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2249	selectedIndex
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2250	"get single selected index or 0
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2251	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2252	selection size == 1 ifTrue:[^ selection first].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	2253	selection isNumber ifTrue:[^ selection].
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2254	^ 0
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2255	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2256
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2257	selectedNode
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2258	"get the single selected node or nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2259	"
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2260	\|idx\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2261
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	2262	(idx := self selectedIndex) ~~ 0 ifTrue:[
3985 4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2263	^ listOfNodes at:idx ifAbsent:nil
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2264	].
3985 4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2265	^ nil
4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2266
4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2267	"Modified: / 19-01-2011 / 18:41:02 / cg"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2268	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2269
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2270	selectedNodes
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2271	"get a collection of selected nodes
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2272	"
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2273	\|selIndexCollection\|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2274
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2275	(selIndexCollection := self selection) size == 0 ifTrue:[^ #() ].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2276	^ selIndexCollection collect:[:eachIndex \| listOfNodes at:eachIndex].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2277	!
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2278
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2279	selectionChangedFrom:oldSelection
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2280	"update selectionHolder if not nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2281	"
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	2282	self closeEditor.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2283
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	2284	"/ first change my selectionHolders value ...
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2285	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2286	self selectionToModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2287	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	2288
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	2289	"/ ... then make notifications.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	2290	super selectionChangedFrom:oldSelection.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	2291
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	2292
1171 0199f65bc8ce add editable value ca parents: 1162 diff changeset	2293	!
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2294
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2295	setSelection:aSelection
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2296	"if no selection exists, close the editor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2297	"
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2298	(aSelection isNil or:[aSelection == 0]) ifTrue:[
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2299	self closeEditor
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2300	].
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2301	super setSelection:aSelection
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2302
0199f65bc8ce add editable value ca parents: 1162 diff changeset	2303
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2304	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2305
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2306	!SelectionInTreeView methodsFor:'selection actions'!
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2307
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2308	selectedNodeAdd:something
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2309	"add a node or collection of nodes after selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2310	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2311	\|node\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2312
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2313	something notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2314	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2315	node parent notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2316	node isCollapsable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2317	model add:something beforeIndex:1 below:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2318	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2319	model add:something after:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2320	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2321	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2322	model add:something beforeIndex:1 below:(self root)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2323	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2324	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2325	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2326
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2327	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2328
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2329	selectedNodeBecomeChildOfNext
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2330	"make the selected node a child of the next node
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2331	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2332	\|idx node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2333
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2334	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2335	idx := cprt indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2336
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2337	idx == cprt children size ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2338	nprt := cprt childAt:(idx + 1).
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2339
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2340	nprt notNil ifTrue:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2341	self setSelection:nil.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2342	model remove:node.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2343	model add:node beforeIndex:1 below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2344	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2345	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2346	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2347	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2348	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2349
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2350	selectedNodeBecomeChildOfPrevious
4253 85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	2351	"make the selected node a child of the previous node"
85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	2352
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2353	\|idx node cprt nprt\|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2354
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2355	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2356	idx := cprt indexOfChild:node.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2357
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2358	idx == cprt children size ifFalse:[
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2359	nprt := cprt childAt:(idx - 1).
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2360
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2361	nprt notNil ifTrue:[
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2362	self setSelection:nil.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2363	model remove:node.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2364	model add:node below:nprt.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2365	self selectNode:node.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2366	]
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2367	]
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2368	]
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2369	!
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2370
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2371	selectedNodeBecomeSisterOfParent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2372	"become node a sister of its current parent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2373	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2374	\|node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2375
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2376	( (node := self selectedNode) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2377	or:[(cprt := node parent) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2378	or:[(nprt := cprt parent) isNil]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2379	) ifFalse:[
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2380	self setSelection:nil.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2381	model remove:node.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2382	model add:node afterIndex:(nprt indexOfChild:cprt) below:nprt.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2383	self selectNode:node.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2384	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2385
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2386	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2387
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2388	selectedNodeChangeSequenceOrder:anOffset
3690 867272f708bc comment Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2389	"move child 'anOffset' forward or backward in list of children"
867272f708bc comment Claus Gittinger <cg@exept.de> parents: 3456 diff changeset	2390
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2391	\|idx node size parent\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2392
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2393	( (node := self selectedNode) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2394	and:[(parent := node parent) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2395	and:[(size := parent children size) > 1]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2396	) ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2397	idx := parent indexOfChild:node.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2398	self setSelection:nil.
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2399	model remove:node.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2400
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2401	(idx := idx + anOffset) < 1 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2402	idx := size
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2403	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2404	idx > size ifTrue:[idx := 1]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2405	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2406	model add:node beforeIndex:idx below:parent.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2407	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2408	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2409	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2410
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2411	selectedNodeExpand:doExpand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2412	"collapse or expand selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2413	"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2414	\|node\|
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2415
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2416	(node := self selectedNode) notNil ifTrue:[
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2417	doExpand ifTrue:[model doExpand:node]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2418	ifFalse:[model doCollapse:node]
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2419	]
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2420	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2421
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2422	selectedNodesBecomeChildrenOfNext
4253 85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	2423	"make the selected nodes children of the next node"
85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	2424
85c181bb2c96 class: SelectionInTreeView Stefan Vogel <sv@exept.de> parents: 4246 diff changeset	2425	\|indices maxIndex nodes newParent\|
1972 d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2426
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2427	nodes := self selectedNodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2428	nodes size == 0 ifTrue:[^ self].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2429
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2430	indices := nodes collect:[:eachNode \| listOfNodes identityIndexOf:eachNode].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2431	maxIndex := indices max.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2432
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2433	newParent := listOfNodes at:(maxIndex + 1) ifAbsent:nil.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2434	newParent isNil ifTrue:[^ self].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2435
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2436	indices sortWith:nodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2437
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2438	nodes reverseDo:[:eachNodeToMove \|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2439	model remove:eachNodeToMove.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2440	model add:eachNodeToMove beforeIndex:1 below:newParent.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2441	].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2442	self selectNodes:nodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2443	!
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2444
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2445	selectedNodesBecomeSistersOfParent
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2446	"move selected nodes up (out of their parent to their grandparent).
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2447	I.e. nodes become sisters of their current parent
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2448	"
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2449	\|nodes parent grandParent indices\|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2450
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2451	nodes := self selectedNodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2452	nodes size == 0 ifTrue:[^ self].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2453
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2454	"/ common parent ?
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2455	parent := nodes first parent.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2456	(nodes conform:[:eachNode \| eachNode parent == parent]) ifFalse:[^ self].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2457
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2458	"/ is there a grandparent ?
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2459	grandParent := parent parent.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2460	grandParent isNil ifTrue:[^ self].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2461
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2462	self setSelection:nil.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2463	indices := nodes collect:[:eachNode \| listOfNodes identityIndexOf:eachNode].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2464	indices sortWith:nodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2465
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2466	nodes reverseDo:[:eachNodeToMove \|
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2467	model remove:eachNodeToMove.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2468	model add:eachNodeToMove afterIndex:(grandParent indexOfChild:parent) below:grandParent.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2469	].
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2470	self selectNodes:nodes.
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2471	!
d88252f4c668 group-move (for menuEditor) Claus Gittinger <cg@exept.de> parents: 1887 diff changeset	2472
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2473	selectedNodesRemove
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2474	"remove selected nodes
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2475	"
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2476	\|selection\|
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2477
1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2478	selection := self selection.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2479	self selection:nil.
855 1714ba38f374 add/remove item operation are moved to the model ca parents: 850 diff changeset	2480	model remove:selection.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2481	! !
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	2482
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2483	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2484
6d40e2c4ed53 intitial checkin ca parents: diff changeset	2485	version
4608 5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	2486	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
3985 4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2487	!
4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2488
4638e9fbb842 changed: #selectedNode Claus Gittinger <cg@exept.de> parents: 3744 diff changeset	2489	version_CVS
4608 5e3a4af3be36 Sending of Image>>#clearMaskedPixels moved to Image >> #asFormOnDevice: Stefan Vogel <sv@exept.de> parents: 4516 diff changeset	2490	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.121 2014-06-06 07:30:35 stefan Exp $'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	2491	! !
4246 b2aeabea341b class: SelectionInTreeView Claus Gittinger <cg@exept.de> parents: 3985 diff changeset	2492

author	Stefan Vogel <sv@exept.de>
	Fri, 06 Jun 2014 09:30:35 +0200
changeset 4608	5e3a4af3be36
parent 4516	1e8e11a8465c
child 5004	fc2a53728ebf
permissions	-rw-r--r--