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

author	Claus Gittinger <cg@exept.de>
	Thu, 11 Feb 1999 18:45:00 +0100
changeset 1190	ae1b8efaf402
parent 1188	5c365b74eedd
child 1191	8d371ffa3adf
permissions	-rw-r--r--