hg/stx-libwidg2: SelectionInTreeView.st@a688e8f11bc6 (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
792 5a0af910519e bug fix: ca parents: 785 diff changeset	15	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
5a0af910519e bug fix: ca parents: 785 diff changeset	16	showLines listOfNodes imageInset textInset labelOffsetY lineMask
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	17	lineColor computeResources showRoot showDirectoryIndicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	18	closeIndicator openIndicator showDirectoryIndicatorForRoot
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	19	imageOpened imageClosed imageItem discardMotionEvents
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	20	registeredImages'
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	21	classVariableNames:''
792 5a0af910519e bug fix: ca parents: 785 diff changeset	22	poolDictionaries:''
5a0af910519e bug fix: ca parents: 785 diff changeset	23	category:'Views-Text'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	24	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	25
6d40e2c4ed53 intitial checkin ca parents: diff changeset	26	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	27
6d40e2c4ed53 intitial checkin ca parents: diff changeset	28	copyright
6d40e2c4ed53 intitial checkin ca parents: diff changeset	29	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	30	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6d40e2c4ed53 intitial checkin ca parents: diff changeset	31	All Rights Reserved
6d40e2c4ed53 intitial checkin ca parents: diff changeset	32
6d40e2c4ed53 intitial checkin ca parents: diff changeset	33	This software is furnished under a license and may be used
6d40e2c4ed53 intitial checkin ca parents: diff changeset	34	only in accordance with the terms of that license and with the
6d40e2c4ed53 intitial checkin ca parents: diff changeset	35	inclusion of the above copyright notice. This software may not
6d40e2c4ed53 intitial checkin ca parents: diff changeset	36	be provided or otherwise made available to, or used by, any
6d40e2c4ed53 intitial checkin ca parents: diff changeset	37	other person. No title to or ownership of the software is
6d40e2c4ed53 intitial checkin ca parents: diff changeset	38	hereby transferred.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	39	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	40
6d40e2c4ed53 intitial checkin ca parents: diff changeset	41	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	42
6d40e2c4ed53 intitial checkin ca parents: diff changeset	43	documentation
6d40e2c4ed53 intitial checkin ca parents: diff changeset	44	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	45	somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like)
6d40e2c4ed53 intitial checkin ca parents: diff changeset	46	lists and adds the functions to show/hide subtrees.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	47	Requires SelectionInTree as model and TreeItem (or compatible) list entries.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	48
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	49	This class obsoletes SelectionInTreeView, which is no longer
446 b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	50	maintained but kept for backward compatibility.
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	51
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	52
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	53	[see also:]
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	54	SelectionInTree
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	55	TreeItem
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	56	SelectionInTreeView
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	57	SelectionInListView
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	58	FileSelectionTree
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	59
6d40e2c4ed53 intitial checkin ca parents: diff changeset	60	[author:]
6d40e2c4ed53 intitial checkin ca parents: diff changeset	61	Claus Atzkern
6d40e2c4ed53 intitial checkin ca parents: diff changeset	62	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	63
6d40e2c4ed53 intitial checkin ca parents: diff changeset	64	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	65
6d40e2c4ed53 intitial checkin ca parents: diff changeset	66	examples
6d40e2c4ed53 intitial checkin ca parents: diff changeset	67	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	68	shows the tree of smalltalk classes:
6d40e2c4ed53 intitial checkin ca parents: diff changeset	69	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	70	\|top sel\|
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	71
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	72	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	73	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	74	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	75	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	76	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	77	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	78	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	79
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	80
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	81
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	82	same, including nil-subclasses (i.e. really all classes):
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	83	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	84	\|top sel\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	85
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	86	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	87	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	88	sel root:(TreeItem newAsTreeFromSmalltalkClass:nil).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	89	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
685 80751cda3340 lines as point ca parents: 659 diff changeset	90	sel lineColor:(Color red).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	91	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	92	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	93	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	94
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	95
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	96
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	97	shows the tree of smalltalk classes; show directory indication and no
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	98	lines.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	99	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	100	\|top sel\|
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	101
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	102	top := StandardSystemView new; extent:300@300.
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	103	sel := SelectionInTreeView new.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	104	sel showLines:false.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	105	sel showDirectoryIndicator:true.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	106	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	107	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	108	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	109	top open.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	110	[exEnd]
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	111	"
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	112
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	113
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	114	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	115
6d40e2c4ed53 intitial checkin ca parents: diff changeset	116	!SelectionInTreeView class methodsFor:'constants'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	117
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	118	minImageInset
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	119	"returns minimum inset from directory indication to image
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	120	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	121	^ 6
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	122
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	123
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	124	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	125
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	126	!SelectionInTreeView class methodsFor:'resources'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	127
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	128	closeIndicator
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	129	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	130
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	131	^ Icon
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	132	constantNamed:#plus
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	133	ifAbsentPut:[Image fromFile:('xpmBitmaps/plus.xpm')]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	134
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	135
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	136
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	137
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	138
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	139
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	140	!
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	141
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	142	imageClosed
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	143	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	144
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	145	^ Icon
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	146	constantNamed:#directory
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	147	ifAbsentPut:[Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm')]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	148
6d40e2c4ed53 intitial checkin ca parents: diff changeset	149	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	150
6d40e2c4ed53 intitial checkin ca parents: diff changeset	151	imageItem
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	152	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	154	^ Icon
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	155	constantNamed:#plainFile
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	156	ifAbsentPut:[Image fromFile:('xpmBitmaps/document_images/tiny_file_plain.xpm')]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	157
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	158
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	159
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	160
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	161
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	162	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	163
6d40e2c4ed53 intitial checkin ca parents: diff changeset	164	imageOpened
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	165	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	166
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	167	^ Icon
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	168	constantNamed:#directoryOpened
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	169	ifAbsentPut:[Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_open.xpm')]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	170
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	171	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	172
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	173	openIndicator
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	174	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	175
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	176	^ Icon
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	177	constantNamed:#minus
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	178	ifAbsentPut:[Image fromFile:('xpmBitmaps/minus.xpm')]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	179
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	180
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	181	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	182
6d40e2c4ed53 intitial checkin ca parents: diff changeset	183	!SelectionInTreeView methodsFor:'accessing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	184
685 80751cda3340 lines as point ca parents: 659 diff changeset	185	lineColor
80751cda3340 lines as point ca parents: 659 diff changeset	186	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	187	"
80751cda3340 lines as point ca parents: 659 diff changeset	188	^ lineColor
80751cda3340 lines as point ca parents: 659 diff changeset	189
80751cda3340 lines as point ca parents: 659 diff changeset	190	!
80751cda3340 lines as point ca parents: 659 diff changeset	191
80751cda3340 lines as point ca parents: 659 diff changeset	192	lineColor:aColor
80751cda3340 lines as point ca parents: 659 diff changeset	193	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	194	"
80751cda3340 lines as point ca parents: 659 diff changeset	195	\|col\|
80751cda3340 lines as point ca parents: 659 diff changeset	196
80751cda3340 lines as point ca parents: 659 diff changeset	197	col := aColor = fgColor ifTrue:[nil] ifFalse:[aColor].
80751cda3340 lines as point ca parents: 659 diff changeset	198
80751cda3340 lines as point ca parents: 659 diff changeset	199	col = lineColor ifFalse:[
80751cda3340 lines as point ca parents: 659 diff changeset	200	lineColor := col.
80751cda3340 lines as point ca parents: 659 diff changeset	201
80751cda3340 lines as point ca parents: 659 diff changeset	202	shown ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	203	lineColor notNil ifTrue:[lineColor := lineColor on:device].
80751cda3340 lines as point ca parents: 659 diff changeset	204	self invalidate
80751cda3340 lines as point ca parents: 659 diff changeset	205	]
80751cda3340 lines as point ca parents: 659 diff changeset	206	]
80751cda3340 lines as point ca parents: 659 diff changeset	207	!
80751cda3340 lines as point ca parents: 659 diff changeset	208
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	209	nodeAtIndex:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	210	"returns node at an index or nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	211	"
785 6114a6e125c5 update ca parents: 782 diff changeset	212	(anIndex notNil and:[anIndex between:1 and:listOfNodes size]) ifTrue:[
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	213	^ listOfNodes at:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	214	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	215	^ nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	216	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	217
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	218	root
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	219	"gets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	220	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	221	^ self nodeAtIndex:1
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	222	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	223
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	224	root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	225	"sets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	226	"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	227	aRoot notNil ifTrue:[aRoot expand].
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	228	model root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	229	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	230
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	231	textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	232	"get the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	233	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	234	^ textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	235	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	236
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	237	textInset:anInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	238	"set the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	239	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	240	anInset ~~ textInset ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	241	anInset >= 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	242	textInset := anInset.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	243	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	244	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	245	self error
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	246	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	247	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	248	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	249
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	250	!SelectionInTreeView methodsFor:'accessing-behavior'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	251
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	252	showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	253	"returns true if directories has an open/closed indicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	254	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	255	^ showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	256	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	257
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	258	showDirectoryIndicator:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	259	"set or clear open/closed indicator for directories
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	260	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	261	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	262	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	263	aState ~~ showDirectoryIndicator ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	264	showDirectoryIndicator := aState.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	265	self recomputeDirectoryIndicator.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	266	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	267	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	268	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	269
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	270	showDirectoryIndicatorForRoot
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	271	"returns true if root directory has an open/closed indicator if
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	272	the common showDirectoryIndicator is enabled
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	273	"
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	274	^ showDirectoryIndicatorForRoot
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	275	!
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	276
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	277	showDirectoryIndicatorForRoot:aState
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	278	"true if root directory has an open/closed indicator if
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	279	the common showDirectoryIndicator is enabled
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	280	"
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	281	aState ~~ showDirectoryIndicator ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	282	showDirectoryIndicatorForRoot := aState.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	283	self recomputeDirectoryIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	284	self invalidate
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	285	].
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	286	!
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	287
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	288	showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	289	"returns true if lines are shown
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	290	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	291	^ showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	292	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	293
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	294	showLines:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	295	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	296	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	297	aState ~~ showLines ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	298	showLines := aState.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	299	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	300	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	301	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	302
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	303	showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	304	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	305	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	306	^ showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	307	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	308
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	309	showRoot:aState
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	310	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	311	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	312	showRoot ~~ aState ifTrue:[
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	313	model showRoot:(showRoot := aState)
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	314	].
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	315	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	316
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	317	validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	318	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	319	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	320	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	321	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	322	^ validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	323
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	324
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	325	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	326
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	327	validateDoubleClickBlock:aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	328	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	329	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	330	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	331	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	332	validateDoubleClickBlock := aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	333
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	334
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	335	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	336
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	337	!SelectionInTreeView methodsFor:'accessing-channels'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	338
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	339	rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	340	"get the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	341	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	342	^ rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	343	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	344
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	345	rootHolder:aValueHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	346	"set the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	347	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	348	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	349	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	350	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	351	(rootHolder := aValueHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	352	rootHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	353	self rootFromModel.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	354	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	355	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	356
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	357	selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	358	"get the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	359	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	360	^ selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	361
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	362	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	363
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	364	selectionHolder:aHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	365	"set the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	366	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	367	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	368	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	369	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	370
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	371	(selectionHolder := aHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	372	selectionHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	373	self selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	374	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	375
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	376	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	377
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	378	!SelectionInTreeView methodsFor:'accessing-images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	379
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	380	imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	381	"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	382
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	383	^ imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	384
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	385	"Created: 3.7.1997 / 12:34:31 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	386	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	387
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	388	imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	389	"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	390
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	391	^ imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	392
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	393	"Created: 3.7.1997 / 12:34:34 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	394	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	395
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	396	imageOnDevice:anImage
2a1014d6697c checkin from browser ca parents: 552 diff changeset	397	"associate iamge to device and clear pixel mask (in case of realized);
2a1014d6697c checkin from browser ca parents: 552 diff changeset	398	returns the new image.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	399	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	400	\|img\|
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	401
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	402	img := anImage onDevice:device.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	403
2a1014d6697c checkin from browser ca parents: 552 diff changeset	404	realized ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	405	img := img clearMaskedPixels
2a1014d6697c checkin from browser ca parents: 552 diff changeset	406	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	407	^ img
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	408	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	409
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	410	imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	411	"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	412
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	413	^ imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	414
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	415	"Created: 3.7.1997 / 12:34:28 / cg"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	416	! !
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	417
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	418	!SelectionInTreeView methodsFor:'change & update'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	419
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	420	update:something with:aParameter from:aModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	421	"one of my models changed its value
785 6114a6e125c5 update ca parents: 782 diff changeset	422	"
6114a6e125c5 update ca parents: 782 diff changeset	423	\|idx\|
6114a6e125c5 update ca parents: 782 diff changeset	424
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	425	aModel == rootHolder ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	426	^ self rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	427	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	428	aModel == selectionHolder ifTrue:[
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	429	^ self selectionFromModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	430	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	431
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	432	aModel == model ifTrue:[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	433	something == #list ifTrue:[
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	434	^ self getListFromModel
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	435	]
785 6114a6e125c5 update ca parents: 782 diff changeset	436	] ifFalse:[
6114a6e125c5 update ca parents: 782 diff changeset	437	(aModel isKindOf:TreeItem) ifTrue:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	438	(something == #size or:[something == #children]) ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	439	model recomputeList.
785 6114a6e125c5 update ca parents: 782 diff changeset	440	^ self
6114a6e125c5 update ca parents: 782 diff changeset	441	].
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	442
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	443	(idx := self indexOfNode:aModel) ~~ 0 ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	444	something == #value ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	445	list at:idx put:(aModel name).
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	446	self redrawLine:idx.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	447	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	448	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	449
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	450	something == #indication ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	451	self redrawIndicatorLine:idx.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	452	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	453	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	454	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	455	^ self
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	456	]
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	457	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	458	^ super update:something with:aParameter from:aModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	459
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	460
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	461
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	462
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	463	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	464
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	465	!SelectionInTreeView methodsFor:'drawing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	466
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	467	drawLine:line atX:atX inVisible:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	468	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	469
6d40e2c4ed53 intitial checkin ca parents: diff changeset	470	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	471
6d40e2c4ed53 intitial checkin ca parents: diff changeset	472	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	473	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	474
6d40e2c4ed53 intitial checkin ca parents: diff changeset	475	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	476
6d40e2c4ed53 intitial checkin ca parents: diff changeset	477	drawLine:line inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	478	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	479
6d40e2c4ed53 intitial checkin ca parents: diff changeset	480	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	481
6d40e2c4ed53 intitial checkin ca parents: diff changeset	482	drawVisibleLine:visLineNr col:col with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	483	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	484
6d40e2c4ed53 intitial checkin ca parents: diff changeset	485	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	486
6d40e2c4ed53 intitial checkin ca parents: diff changeset	487	drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	488	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	489
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	490	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	491
6d40e2c4ed53 intitial checkin ca parents: diff changeset	492	drawVisibleLine:visLineNr from:startCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	493	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	494
6d40e2c4ed53 intitial checkin ca parents: diff changeset	495	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	496
6d40e2c4ed53 intitial checkin ca parents: diff changeset	497	!SelectionInTreeView methodsFor:'drawing basics'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	498
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	499	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	500	"redraw a visible line range with clearing the background
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	501	"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	502	\|y0 y1 sz\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	503
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	504	shown ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	505	y0 := self yOfVisibleLine:startVisLineNr.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	506	y0 := y0 - 1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	507	sz := endVisLineNr - startVisLineNr + 1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	508	y1 := sz * fontHeight.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	509
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	510	"/ clear rectangle line and set background color
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	511	self paint:bg.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	512	self fillRectangleX:0 y:y0 width:width height:y1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	513
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	514	(y1 := self visibleLineToAbsoluteLine:startVisLineNr) notNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	515	self redrawLinesX:0 y:y0 toX:width start:y1 stop:(y1 + sz)
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	516	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	517	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	518	!
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	519
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	520	drawLabelIndex:anIndex atX:x y:yCenter
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	521	"draw text label at x and y centered
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	522	"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	523	\|lbl\|
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	524
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	525	(lbl := (listOfNodes at:anIndex) name) notNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	526	self displayOpaqueString:lbl x:x y:(yCenter + labelOffsetY).
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	527	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	528	!
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	529
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	530	redrawIndicatorLine:aLineNr
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	531	"redraw the directory indicator for a line
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	532	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	533	\|node ext img visLn
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	534	x "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	535	y "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	536	lv "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	537	dX "{ Class:SmallInteger }"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	538	\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	539
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	540	( shown
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	541	and:[showDirectoryIndicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	542	and:[(visLn := self listLineToVisibleLine:aLineNr) notNil]]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	543	) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	544	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	545	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	546
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	547	node := listOfNodes at:aLineNr.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	548
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	549	((lv := node level) ~~ 1 or:[showDirectoryIndicatorForRoot]) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	550	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	551	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	552
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	553	(x := imageWidth // 2) odd ifTrue:[x := x + 1].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	554	x := (self xOfFigureLevel:(lv - 1)) + x.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	555
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	556	"/ draw directory indicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	557
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	558	img := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	559	ext := img extent // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	560	dX := ext x.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	561
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	562	(x + dX > 0 and:[(x := x - dX) < (width - margin)]) ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	563	(self isInSelection:aLineNr) ifTrue:[ self paint:hilightFgColor on:hilightBgColor ]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	564	ifFalse:[ self paint:fgColor on:bgColor ].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	565
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	566	y := (self yOfVisibleLine:visLn) + (fontHeight // 2) - 1.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	567	self displayForm:img x:x y:(y - ext y)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	568	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	569
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	570
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	571
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	572	!
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	573
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	574	redrawLinesX:x0 y:y0 toX:x1 start:start stop:stop
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	575	"redraw from line to line without clearing the background
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	576	"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	577	\|node image extent isSelected defLineColor rnode prnt
785 6114a6e125c5 update ca parents: 782 diff changeset	578	x "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	579	y "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	580	level "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	581	yTop "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	582	yBot "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	583	yCtr "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	584	size "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	585	end "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	586	index "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	587	xCross "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	588	xFig "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	589	xStr "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	590	dyLvl "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	591	soVDt "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	592	soVLn "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	593	lv "{ Class:SmallInteger }"
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	594	figWidthDiv2 "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	595	\|
785 6114a6e125c5 update ca parents: 782 diff changeset	596	size := listOfNodes size.
6114a6e125c5 update ca parents: 782 diff changeset	597	index := start.
6114a6e125c5 update ca parents: 782 diff changeset	598	end := stop min:size.
6114a6e125c5 update ca parents: 782 diff changeset	599	level := -1. "/ to force evaluation of #ifFalse in loop
6114a6e125c5 update ca parents: 782 diff changeset	600	soVDt := 0.
6114a6e125c5 update ca parents: 782 diff changeset	601	yTop := y0.
6114a6e125c5 update ca parents: 782 diff changeset	602	yCtr := yTop - (fontHeight // 2).
6114a6e125c5 update ca parents: 782 diff changeset	603	dyLvl := imageInset + imageWidth.
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	604	figWidthDiv2 := imageWidth // 2.
685 80751cda3340 lines as point ca parents: 659 diff changeset	605	figWidthDiv2 odd ifTrue:[figWidthDiv2 := figWidthDiv2 + 1].
785 6114a6e125c5 update ca parents: 782 diff changeset	606
6114a6e125c5 update ca parents: 782 diff changeset	607	showLines ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	608	soVDt := (figWidthDiv2 + (self xOfFigureLevel:1)) - dyLvl - dyLvl.
6114a6e125c5 update ca parents: 782 diff changeset	609	self setMaskOrigin:(self viewOrigin + (0 @ 1) \\ (lineMask extent)).
6114a6e125c5 update ca parents: 782 diff changeset	610	defLineColor := lineColor ? fgColor.
6114a6e125c5 update ca parents: 782 diff changeset	611	].
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	612
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	613	[index <= end] whileTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	614	node := listOfNodes at:index.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	615	yBot := yTop + fontHeight.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	616	yCtr := yCtr + fontHeight.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	617
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	618	(lv := node level) == level ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	619	xFig := self xOfFigureLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	620	xStr := self xOfStringLevel:lv.
785 6114a6e125c5 update ca parents: 782 diff changeset	621	xCross := xFig - dyLvl + figWidthDiv2.
6114a6e125c5 update ca parents: 782 diff changeset	622	level := lv.
6114a6e125c5 update ca parents: 782 diff changeset	623	soVLn := lv * dyLvl + soVDt.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	624	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	625
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	626	(isSelected := self isInSelection:index) ifTrue:[
785 6114a6e125c5 update ca parents: 782 diff changeset	627	self paint:hilightFgColor on:hilightBgColor
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	628	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	629	showLines ifTrue:[
785 6114a6e125c5 update ca parents: 782 diff changeset	630	isSelected ifFalse:[
6114a6e125c5 update ca parents: 782 diff changeset	631	self paint:defLineColor on:bgColor
685 80751cda3340 lines as point ca parents: 659 diff changeset	632	].
80751cda3340 lines as point ca parents: 659 diff changeset	633	self mask:lineMask.
80751cda3340 lines as point ca parents: 659 diff changeset	634
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	635	xCross < x1 ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	636	( ((x := xFig + figWidthDiv2) between:x0 and:x1)
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	637	and:[node isCollapsable
785 6114a6e125c5 update ca parents: 782 diff changeset	638	and:[node children notEmpty]]
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	639	) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	640	self displayLineFromX:x y:yCtr toX:x y:yBot
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	641	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	642
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	643	"/ vertical line from previous to current form
785 6114a6e125c5 update ca parents: 782 diff changeset	644	(xCross >= x0 and:[level ~~ 1]) ifTrue:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	645	prnt := node parent children.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	646	prnt isEmpty ifTrue:[ ^ self ]. "/ error occured
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	647	lv := prnt last == node ifTrue:[yCtr] ifFalse:[yBot].
785 6114a6e125c5 update ca parents: 782 diff changeset	648	self displayLineFromX:xCross y:yTop - 1 toX:xCross y:lv
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	649	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	650
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	651	"/ horizontal line from previous to current form
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	652	( xFig > x0
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	653	and:[(level ~~ 1
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	654	or:[showDirectoryIndicatorForRoot and:[showDirectoryIndicator]])]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	655	) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	656	self displayLineFromX:xCross y:yCtr toX:xFig y:yCtr
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	657	]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	658	].
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	659
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	660	"/ draw all vertical lines to left side
785 6114a6e125c5 update ca parents: 782 diff changeset	661	(xCross >= x0 and:[(rnode := node parent) notNil]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	662	x := soVLn.
6114a6e125c5 update ca parents: 782 diff changeset	663	y := yTop - 1.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	664
785 6114a6e125c5 update ca parents: 782 diff changeset	665	[((prnt := rnode parent) notNil and:[(x := x - dyLvl) >= x0])] whileTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	666	(prnt children last ~~ rnode and:[x <= x1]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	667	self displayLineFromX:x y:y toX:x y:yBot
6114a6e125c5 update ca parents: 782 diff changeset	668	].
6114a6e125c5 update ca parents: 782 diff changeset	669	rnode := prnt
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	670	]
685 80751cda3340 lines as point ca parents: 659 diff changeset	671	].
80751cda3340 lines as point ca parents: 659 diff changeset	672	self mask:nil.
785 6114a6e125c5 update ca parents: 782 diff changeset	673	].
6114a6e125c5 update ca parents: 782 diff changeset	674	isSelected ifFalse:[
6114a6e125c5 update ca parents: 782 diff changeset	675	self paint:fgColor on:bgColor
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	676	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	677
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	678	"/ draw image
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	679	(image := self figureFor:node) notNil ifTrue:[
785 6114a6e125c5 update ca parents: 782 diff changeset	680	(xFig < x1 and:[xStr > x0]) ifTrue:[
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	681	self displayForm:image x:xFig y:(yCtr - (image height // 2))
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	682	]
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	683	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	684
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	685	"/ draw text label
770 f197d1f5a246 fix clipping ca parents: 769 diff changeset	686	xStr < x1 ifTrue:[
f197d1f5a246 fix clipping ca parents: 769 diff changeset	687	self drawLabelIndex:index atX:xStr y:yCtr .
f197d1f5a246 fix clipping ca parents: 769 diff changeset	688	].
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	689
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	690	"/ draw directory indicator
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	691
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	692	(showDirectoryIndicator and:[node showIndicator]) ifTrue:[
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	693	(level ~~ 1 or:[showDirectoryIndicatorForRoot]) ifTrue:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	694	image := node isCollapsable ifTrue:[openIndicator] ifFalse:[closeIndicator].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	695	extent := image extent // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	696	x := extent x.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	697
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	698	(xCross + x > x0 and:[(x := xCross - x) < x1]) ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	699	self displayForm:image x:x y:(yCtr - extent y)
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	700	]
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	701	]
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	702	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	703	"/ setup next line
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	704	index := index + 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	705	yTop := yBot.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	706	]
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	707
792 5a0af910519e bug fix: ca parents: 785 diff changeset	708	!
5a0af910519e bug fix: ca parents: 785 diff changeset	709
5a0af910519e bug fix: ca parents: 785 diff changeset	710	redrawSelFrameForYs:aList fromX:x0 toX:x1
5a0af910519e bug fix: ca parents: 785 diff changeset	711	"redraw selection frames for each line starting at an absolute
5a0af910519e bug fix: ca parents: 785 diff changeset	712	y derived from the argument a list.
5a0af910519e bug fix: ca parents: 785 diff changeset	713	"
5a0af910519e bug fix: ca parents: 785 diff changeset	714	\|
5a0af910519e bug fix: ca parents: 785 diff changeset	715	spc "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	716	dY "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	717	w "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	718	y "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	719	x "{ Class: SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	720	\|
5a0af910519e bug fix: ca parents: 785 diff changeset	721
5a0af910519e bug fix: ca parents: 785 diff changeset	722	aList size == 0 ifTrue:[ ^ self ].
5a0af910519e bug fix: ca parents: 785 diff changeset	723
5a0af910519e bug fix: ca parents: 785 diff changeset	724	strikeOut ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	725	y := fontHeight // 2.
5a0af910519e bug fix: ca parents: 785 diff changeset	726	self paint:bgColor.
5a0af910519e bug fix: ca parents: 785 diff changeset	727	aList do:[:sY\| self displayLineFromX:x0 y:(sY + y) toX:x1 y:(sY + y) ].
5a0af910519e bug fix: ca parents: 785 diff changeset	728	^ self
5a0af910519e bug fix: ca parents: 785 diff changeset	729	].
5a0af910519e bug fix: ca parents: 785 diff changeset	730	spc := lineSpacing // 2.
5a0af910519e bug fix: ca parents: 785 diff changeset	731
5a0af910519e bug fix: ca parents: 785 diff changeset	732	hilightFrameColor notNil ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	733	hilightLevel == 0 ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	734	dY := fontHeight - 1.
5a0af910519e bug fix: ca parents: 785 diff changeset	735	self paint:hilightFrameColor.
5a0af910519e bug fix: ca parents: 785 diff changeset	736
5a0af910519e bug fix: ca parents: 785 diff changeset	737	aList do:[:sY\|
5a0af910519e bug fix: ca parents: 785 diff changeset	738	y := sY - spc. self displayLineFromX:x0 y:y toX:x1 y:y.
5a0af910519e bug fix: ca parents: 785 diff changeset	739	y := y + dY. self displayLineFromX:x0 y:y toX:x1 y:y.
5a0af910519e bug fix: ca parents: 785 diff changeset	740	]
5a0af910519e bug fix: ca parents: 785 diff changeset	741	]
5a0af910519e bug fix: ca parents: 785 diff changeset	742	] ifFalse:[
5a0af910519e bug fix: ca parents: 785 diff changeset	743	hilightStyle == #motif ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	744	dY := fontHeight - spc - 2.
5a0af910519e bug fix: ca parents: 785 diff changeset	745	self paint:bgColor.
5a0af910519e bug fix: ca parents: 785 diff changeset	746
5a0af910519e bug fix: ca parents: 785 diff changeset	747	aList do:[:sY\|
5a0af910519e bug fix: ca parents: 785 diff changeset	748	y := sY - spc + 1. self displayLineFromX:x0 y:y toX:x1 y:y.
5a0af910519e bug fix: ca parents: 785 diff changeset	749	y := sY + dY. self displayLineFromX:x0 y:y toX:x1 y:y.
5a0af910519e bug fix: ca parents: 785 diff changeset	750	]
5a0af910519e bug fix: ca parents: 785 diff changeset	751	]
5a0af910519e bug fix: ca parents: 785 diff changeset	752	].
5a0af910519e bug fix: ca parents: 785 diff changeset	753
5a0af910519e bug fix: ca parents: 785 diff changeset	754	hilightLevel ~~ 0 ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	755	"/ draw edge
5a0af910519e bug fix: ca parents: 785 diff changeset	756
5a0af910519e bug fix: ca parents: 785 diff changeset	757	w := ((width - (2 * margin)) max:(self widthOfContents)) + leftOffset.
5a0af910519e bug fix: ca parents: 785 diff changeset	758	x := margin - leftOffset.
5a0af910519e bug fix: ca parents: 785 diff changeset	759
5a0af910519e bug fix: ca parents: 785 diff changeset	760	aList do:[:sY\|
5a0af910519e bug fix: ca parents: 785 diff changeset	761	self drawEdgesForX:x y:(sY - spc) width:w height:fontHeight level:hilightLevel.
5a0af910519e bug fix: ca parents: 785 diff changeset	762	]
5a0af910519e bug fix: ca parents: 785 diff changeset	763	]
5a0af910519e bug fix: ca parents: 785 diff changeset	764
5a0af910519e bug fix: ca parents: 785 diff changeset	765
5a0af910519e bug fix: ca parents: 785 diff changeset	766
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	767	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	768
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	769	!SelectionInTreeView methodsFor:'enumerating'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	770
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	771	detectNode:aOneArgBlock
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	772	"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	773	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	774	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	775	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	776	^ listOfNodes detect:aOneArgBlock ifNone:nil
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	777	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	778
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	779	selectedNodesDo:aOneArgBlock
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	780	"evaluate the block on each node selected
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	781	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	782	self selectionDo:[:i\| aOneArgBlock value:(listOfNodes at:i) ]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	783	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	784
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	785	!SelectionInTreeView methodsFor:'event handling'!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	786
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	787	buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	788	"mouse-move while button was pressed - handle selection changes"
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	789
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	790	discardMotionEvents ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	791	super buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	792	]
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	793
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	794
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	795	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	796
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	797	buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	798
2a1014d6697c checkin from browser ca parents: 552 diff changeset	799	(self indicatiorLineForButton:button atX:x y:y) == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	800	^ super buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	801	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	802	"/ discard doubleClick on indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	803	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	804
2a1014d6697c checkin from browser ca parents: 552 diff changeset	805	buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	806	"check for indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	807	"
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	808	\|expand node lineNr\|
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	809
2a1014d6697c checkin from browser ca parents: 552 diff changeset	810	lineNr := self indicatiorLineForButton:button atX:x y:y.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	811
2a1014d6697c checkin from browser ca parents: 552 diff changeset	812	lineNr == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	813	^ super buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	814	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	815	node := listOfNodes at:lineNr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	816
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	817	"/ ( validateDoubleClickBlock isNil
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	818	"/ or:[(validateDoubleClickBlock value:node) ~~ false]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	819	"/ ) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	820	"/ ^ super buttonPress:button x:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	821	"/ ].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	822	discardMotionEvents := true.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	823	dragIsActive := false.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	824	clickPosition := nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	825
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	826	self hasSelection ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	827	(selectConditionBlock isNil or:[selectConditionBlock value:lineNr]) ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	828	self selection:lineNr
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	829	] ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	830	self selection:nil
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	831	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	832	].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	833	self nodeAt:lineNr expand:(node isExpandable).
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	834
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	835	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	836
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	837	buttonRelease:button x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	838	"stop any autoscroll"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	839
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	840	discardMotionEvents ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	841	clickPosition := nil.
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	842	discardMotionEvents := false.
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	843	].
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	844	super buttonRelease:button x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	845
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	846	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	847
2a1014d6697c checkin from browser ca parents: 552 diff changeset	848	doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	849	"handle a double click; collapse or expand selected entry
2a1014d6697c checkin from browser ca parents: 552 diff changeset	850	in case of having children
2a1014d6697c checkin from browser ca parents: 552 diff changeset	851	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	852	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	853
2a1014d6697c checkin from browser ca parents: 552 diff changeset	854	(node := self selectedNode) notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	855	( validateDoubleClickBlock isNil
2a1014d6697c checkin from browser ca parents: 552 diff changeset	856	or:[(validateDoubleClickBlock value:node) ~~ false]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	857	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	858	self selectedNodeExpand:(node isExpandable).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	859	super doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	860	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	861	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	862
2a1014d6697c checkin from browser ca parents: 552 diff changeset	863	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	864
2a1014d6697c checkin from browser ca parents: 552 diff changeset	865	indicatiorLineForButton:aButton atX:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	866	"returns linenumber assigned to indicator at x/y or 0
2a1014d6697c checkin from browser ca parents: 552 diff changeset	867	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	868	\|sensor nr x0 node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	869
2a1014d6697c checkin from browser ca parents: 552 diff changeset	870	( enabled
2a1014d6697c checkin from browser ca parents: 552 diff changeset	871	and:[showDirectoryIndicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	872	and:[aButton == 1 or:[aButton == #select]]]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	873	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	874	sensor := self sensor.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	875
2a1014d6697c checkin from browser ca parents: 552 diff changeset	876	(sensor ctrlDown or:[sensor shiftDown]) ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	877	nr := self visibleLineToListLine:(self visibleLineOfY:y).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	878
2a1014d6697c checkin from browser ca parents: 552 diff changeset	879	nr notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	880	node := listOfNodes at:nr.
785 6114a6e125c5 update ca parents: 782 diff changeset	881	node hasChildren ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	882	x0 := self xOfFigureLevel:(node level - 1).
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	883
785 6114a6e125c5 update ca parents: 782 diff changeset	884	(x > x0 and:[(x0 + imageWidth) > x and:[node children notEmpty]]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	885	^ nr
6114a6e125c5 update ca parents: 782 diff changeset	886	]
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	887	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	888	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	889	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	890	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	891	^ 0
785 6114a6e125c5 update ca parents: 782 diff changeset	892
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	893	!
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	894
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	895	key:key select:index x:x y:y
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	896	"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	897	on that entry.
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	898	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	899	"
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	900	(enabled and:[keyActionStyle notNil]) ifFalse:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	901	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	902	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	903
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	904	(selectConditionBlock isNil or:[selectConditionBlock value:index]) ifTrue:[
780 b5e301a1293c missing return tz parents: 778 diff changeset	905	^ super key:key select:index x:x y:y
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	906	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	907
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	908	keyActionStyle == #pass ifTrue:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	909	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	910	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	911
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	912	self gotoLine:index
785 6114a6e125c5 update ca parents: 782 diff changeset	913	!
6114a6e125c5 update ca parents: 782 diff changeset	914
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	915	keyPress:key x:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	916	"handle keyboard input"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	917
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	918	<resource: #keyboard ( #CursorLeft #CursorRight ) >
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	919
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	920	\|idx node inc end\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	921
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	922	enabled ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	923	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	924	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	925
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	926	(key == #CursorLeft or:[key == #CursorRight]) ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	927	(idx := self selectedIndex) == 0 ifTrue:[ ^ self ].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	928
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	929	(key == #CursorLeft) ifTrue:[ inc := -1. end := 0 ]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	930	ifFalse:[ inc := 1. end := 1 + listOfNodes size ].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	931
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	932	[(idx := idx + inc) ~~ end] whileTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	933	node := listOfNodes at:idx.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	934	node isDirectory ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	935	^ self key:key select:idx x:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	936	]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	937	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	938	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	939	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	940	^ super keyPress:key x:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	941
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	942
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	943
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	944
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	945	!
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	946
785 6114a6e125c5 update ca parents: 782 diff changeset	947	redrawX:x y:y width:w height:h
6114a6e125c5 update ca parents: 782 diff changeset	948	"a region must be redrawn"
6114a6e125c5 update ca parents: 782 diff changeset	949
792 5a0af910519e bug fix: ca parents: 785 diff changeset	950	\|savClip startLn sel
5a0af910519e bug fix: ca parents: 785 diff changeset	951	lnSpace "{ Class:SmallInteger }"
785 6114a6e125c5 update ca parents: 782 diff changeset	952	y0 "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	953	y1 "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	954	visStart "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	955	visEnd "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	956	stopLn "{ Class:SmallInteger }"
6114a6e125c5 update ca parents: 782 diff changeset	957	maxY "{ Class:SmallInteger }"
792 5a0af910519e bug fix: ca parents: 785 diff changeset	958	maxX "{ Class:SmallInteger }"
5a0af910519e bug fix: ca parents: 785 diff changeset	959	dltLine "{ Class:SmallInteger }"
785 6114a6e125c5 update ca parents: 782 diff changeset	960	startY "{ Class:SmallInteger }"\|
6114a6e125c5 update ca parents: 782 diff changeset	961
6114a6e125c5 update ca parents: 782 diff changeset	962	shown ifFalse:[^ self].
6114a6e125c5 update ca parents: 782 diff changeset	963
6114a6e125c5 update ca parents: 782 diff changeset	964	visStart := self visibleLineOfY:(y + 1).
6114a6e125c5 update ca parents: 782 diff changeset	965	startLn := self visibleLineToAbsoluteLine:visStart.
6114a6e125c5 update ca parents: 782 diff changeset	966
6114a6e125c5 update ca parents: 782 diff changeset	967	self paint:bgColor.
6114a6e125c5 update ca parents: 782 diff changeset	968	self fillRectangleX:x y:y width:w height:h.
792 5a0af910519e bug fix: ca parents: 785 diff changeset	969	startLn isNil ifTrue:[ ^ self ].
785 6114a6e125c5 update ca parents: 782 diff changeset	970
792 5a0af910519e bug fix: ca parents: 785 diff changeset	971	sel := nil.
5a0af910519e bug fix: ca parents: 785 diff changeset	972	maxX := x + w.
5a0af910519e bug fix: ca parents: 785 diff changeset	973	maxY := y + h.
5a0af910519e bug fix: ca parents: 785 diff changeset	974	lnSpace := lineSpacing // 2.
5a0af910519e bug fix: ca parents: 785 diff changeset	975	visEnd := self visibleLineOfY:maxY.
5a0af910519e bug fix: ca parents: 785 diff changeset	976	startY := self yOfVisibleLine:visStart.
5a0af910519e bug fix: ca parents: 785 diff changeset	977	dltLine := startLn - visStart.
5a0af910519e bug fix: ca parents: 785 diff changeset	978	stopLn := dltLine + visEnd.
5a0af910519e bug fix: ca parents: 785 diff changeset	979	savClip := clipRect.
785 6114a6e125c5 update ca parents: 782 diff changeset	980
792 5a0af910519e bug fix: ca parents: 785 diff changeset	981	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
5a0af910519e bug fix: ca parents: 785 diff changeset	982
5a0af910519e bug fix: ca parents: 785 diff changeset	983	self hasSelection ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	984	"/ redraw the background for all selected lines in the invalid range
785 6114a6e125c5 update ca parents: 782 diff changeset	985
792 5a0af910519e bug fix: ca parents: 785 diff changeset	986	self selectionDo:[:lnNr\|
5a0af910519e bug fix: ca parents: 785 diff changeset	987	(lnNr between:startLn and:stopLn) ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	988	sel isNil ifTrue:[
5a0af910519e bug fix: ca parents: 785 diff changeset	989	sel := OrderedCollection new.
785 6114a6e125c5 update ca parents: 782 diff changeset	990	self paint:hilightBgColor.
792 5a0af910519e bug fix: ca parents: 785 diff changeset	991	].
5a0af910519e bug fix: ca parents: 785 diff changeset	992	sel add:(y0 := self yOfVisibleLine:(lnNr - dltLine)).
5a0af910519e bug fix: ca parents: 785 diff changeset	993	y0 := y0 - lnSpace.
5a0af910519e bug fix: ca parents: 785 diff changeset	994	y1 := y0 + fontHeight min:maxY.
5a0af910519e bug fix: ca parents: 785 diff changeset	995	y0 := y0 max:y.
5a0af910519e bug fix: ca parents: 785 diff changeset	996	self fillRectangleX:x y:y0 width:w height:y1 - y0.
785 6114a6e125c5 update ca parents: 782 diff changeset	997	]
792 5a0af910519e bug fix: ca parents: 785 diff changeset	998	]
785 6114a6e125c5 update ca parents: 782 diff changeset	999	].
6114a6e125c5 update ca parents: 782 diff changeset	1000
792 5a0af910519e bug fix: ca parents: 785 diff changeset	1001	self redrawLinesX:x y:startY - lnSpace toX:maxX start:startLn stop:stopLn.
5a0af910519e bug fix: ca parents: 785 diff changeset	1002
5a0af910519e bug fix: ca parents: 785 diff changeset	1003	"/ draw selection frames
5a0af910519e bug fix: ca parents: 785 diff changeset	1004	self redrawSelFrameForYs:sel fromX:x toX:maxX.
5a0af910519e bug fix: ca parents: 785 diff changeset	1005
5a0af910519e bug fix: ca parents: 785 diff changeset	1006	self clippingRectangle:savClip.
5a0af910519e bug fix: ca parents: 785 diff changeset	1007
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1008	! !
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1009
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1010	!SelectionInTreeView methodsFor:'initialization'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1011
685 80751cda3340 lines as point ca parents: 659 diff changeset	1012	create
80751cda3340 lines as point ca parents: 659 diff changeset	1013	super create.
695 3e5240577e37 dont use Image>>on: -> use Image>>onDevice: Claus Gittinger <cg@exept.de> parents: 685 diff changeset	1014	lineMask := lineMask onDevice:device.
685 80751cda3340 lines as point ca parents: 659 diff changeset	1015
80751cda3340 lines as point ca parents: 659 diff changeset	1016	lineColor notNil ifTrue:[
695 3e5240577e37 dont use Image>>on: -> use Image>>onDevice: Claus Gittinger <cg@exept.de> parents: 685 diff changeset	1017	lineColor := lineColor onDevice:device
685 80751cda3340 lines as point ca parents: 659 diff changeset	1018	]
80751cda3340 lines as point ca parents: 659 diff changeset	1019	!
80751cda3340 lines as point ca parents: 659 diff changeset	1020
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1021	destroy
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1022	"remove dependencies
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1023	"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1024	rootHolder removeDependent:self.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1025	selectionHolder removeDependent:self.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1026
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1027	model notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1028	model stopRunningTasks
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1029	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1030	super destroy.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1031
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1032	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1033
785 6114a6e125c5 update ca parents: 782 diff changeset	1034	fetchDefaultImages
6114a6e125c5 update ca parents: 782 diff changeset	1035	"returns a directory with default keys and images; could be
6114a6e125c5 update ca parents: 782 diff changeset	1036	redefined by subclass.
6114a6e125c5 update ca parents: 782 diff changeset	1037	"
6114a6e125c5 update ca parents: 782 diff changeset	1038	^ nil
6114a6e125c5 update ca parents: 782 diff changeset	1039	!
6114a6e125c5 update ca parents: 782 diff changeset	1040
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1041	fetchDeviceResources
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1042	"initialize heavily used device resources - to avoid rendering
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1043	images again and again later"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1044
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1045	super fetchDeviceResources.
478 d7286b946764 add: ca parents: 471 diff changeset	1046	self refetchDeviceResources
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1047	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	1048
478 d7286b946764 add: ca parents: 471 diff changeset	1049	fetchImageResources
d7286b946764 add: ca parents: 471 diff changeset	1050	"initialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	1051	images again and again later; returns maximum extent of the images used.
d7286b946764 add: ca parents: 471 diff changeset	1052	Could be redefined by subclass
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1053	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1054	\|img x y keysAndIcons\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1055
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1056	imageOpened isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1057	imageOpened := (self class imageOpened) onDevice:device
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1058	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1059
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1060	imageClosed isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1061	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	1062	].
785 6114a6e125c5 update ca parents: 782 diff changeset	1063
6114a6e125c5 update ca parents: 782 diff changeset	1064	x := (imageOpened width) max:(imageClosed width).
6114a6e125c5 update ca parents: 782 diff changeset	1065	y := (imageOpened height) max:(imageClosed height).
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1066
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1067	imageItem isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1068	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	1069	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1070
785 6114a6e125c5 update ca parents: 782 diff changeset	1071	x := (imageItem width) max:x.
6114a6e125c5 update ca parents: 782 diff changeset	1072	y := (imageItem height) max:y.
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1073
785 6114a6e125c5 update ca parents: 782 diff changeset	1074	(keysAndIcons := self fetchDefaultImages) notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1075	keysAndIcons keysAndValuesDo:[:aKey :anIcon\|
6114a6e125c5 update ca parents: 782 diff changeset	1076	(anIcon isImage and:[aKey notNil]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1077	registeredImages at:aKey put:(self imageOnDevice:anIcon copy)
6114a6e125c5 update ca parents: 782 diff changeset	1078	]
6114a6e125c5 update ca parents: 782 diff changeset	1079	]
6114a6e125c5 update ca parents: 782 diff changeset	1080	].
6114a6e125c5 update ca parents: 782 diff changeset	1081	registeredImages keysAndValuesDo:[:k :img\|
6114a6e125c5 update ca parents: 782 diff changeset	1082	x := (img width) max:x.
6114a6e125c5 update ca parents: 782 diff changeset	1083	y := (img height) max:y.
6114a6e125c5 update ca parents: 782 diff changeset	1084	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1085
785 6114a6e125c5 update ca parents: 782 diff changeset	1086	(listOfNodes size > 0 and:[(img := listOfNodes first icon) isImage]) ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1087	x := (img width) max:x.
6114a6e125c5 update ca parents: 782 diff changeset	1088	y := (img height) max:y.
6114a6e125c5 update ca parents: 782 diff changeset	1089	].
6114a6e125c5 update ca parents: 782 diff changeset	1090	^ x @ y
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1091	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1092
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1093	getFontParameters
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1094	"save old computed height derived from images
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1095	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1096	\|lineHeight\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1097
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1098	lineHeight := fontHeight ? 0.
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1099	super getFontParameters.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1100	labelOffsetY := fontAscent - (fontHeight - lineSpacing // 2).
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1101
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1102	lineHeight > fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1103	fontHeight := lineHeight
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1104	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	1105	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	1106	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	1107	]
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1108	!
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	1109
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1110	initialize
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1111	"setup instance attributes
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	1112	"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1113	super initialize.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1114	self bitGravity:#NorthWest.
773 b3596157f97d register the icons and put them into a caching dict tz parents: 771 diff changeset	1115	showRoot := showDirectoryIndicatorForRoot := showLines := computeResources := true.
b3596157f97d register the icons and put them into a caching dict tz parents: 771 diff changeset	1116	showDirectoryIndicator := discardMotionEvents := false.
685 80751cda3340 lines as point ca parents: 659 diff changeset	1117	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	1118	registeredImages := IdentityDictionary new.
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1119	textInset := 4.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1120	imageInset := 0. "/ set during indication enabled
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1121	imageWidth := 8. "/ default: will change during startup
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1122	self model:nil. "/ creates a default model.
478 d7286b946764 add: ca parents: 471 diff changeset	1123	!
d7286b946764 add: ca parents: 471 diff changeset	1124
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1125	realize
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1126	super realize.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1127	self refetchDeviceResources.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1128	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1129
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1130	recomputeDirectoryIndicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1131	"setup attributes used by directory indicator
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1132	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1133	\|x w\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1134
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1135	imageInset := 0.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1136
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1137	(showDirectoryIndicator and:[computeResources not]) ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1138	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1139	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1140	openIndicator isNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1141	openIndicator := self imageOnDevice:(self class openIndicator)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1142	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1143	closeIndicator isNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1144	closeIndicator := self imageOnDevice:(self class closeIndicator)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1145	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1146	x := (openIndicator width) max:(closeIndicator width).
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1147	x := x // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1148	w := imageWidth // 2.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1149
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1150	(x := x + self class minImageInset) > w ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1151	imageInset := x - w.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1152	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1153
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1154
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1155
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1156	!
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1157
478 d7286b946764 add: ca parents: 471 diff changeset	1158	refetchDeviceResources
d7286b946764 add: ca parents: 471 diff changeset	1159	"reinitialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	1160	images again and again later
d7286b946764 add: ca parents: 471 diff changeset	1161	"
551 b9d3ddbc3365 * empty log message * Claus Gittinger <cg@exept.de> parents: 546 diff changeset	1162	\|extent\|
478 d7286b946764 add: ca parents: 471 diff changeset	1163
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1164	(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	1165	computeResources := false.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1166	extent := self fetchImageResources.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1167
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1168	extent y >= fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1169	fontHeight := 1 + extent y.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1170	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	1171	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	1172	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	1173	].
80751cda3340 lines as point ca parents: 659 diff changeset	1174
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1175	imageWidth := extent x.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1176	self recomputeDirectoryIndicator.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1177	self computeNumberOfLinesShown.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1178	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1179	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1180
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1181	!SelectionInTreeView methodsFor:'model'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1182
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1183	getListFromModel
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1184	"if I have a model, get my list from it using the listMessage.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1185	If listMessage is nil, try aspectMessage for backward compatibilty.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1186	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1187	super list:(self listFromModel) keepSelection:true
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1188	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1189
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1190	listFromModel
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1191	"get list from model and return the new list.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1192	If listMessage is nil, try aspectMessage for backward compatibilty.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1193	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1194	\|msg\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1195
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1196	widthOfWidestLine := nil.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1197
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1198	(msg := listMsg ? aspectMsg) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1199	listOfNodes := model perform:msg.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1200	listOfNodes size ~~ 0 ifTrue:[
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1201	self refetchDeviceResources.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1202	^ listOfNodes collect:[:n\|n name]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1203	]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1204	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1205	listOfNodes := #().
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1206	^ #()
494 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
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1209	model:aModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1210	"check whether model is nil; than a default model is created
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1211	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1212	\|model\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1213
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1214	model notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1215	model stopRunningTasks
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1216	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1217
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1218	model := aModel ? (SelectionInTree new).
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1219	model showRoot:showRoot.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1220	super model:model.
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1221
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1222	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1223
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1224	rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1225	"update hierarchical list from root model; 'rootHolder'
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1226	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1227	\|root\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1228
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1229	root := rootHolder root.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1230
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1231	self root == root ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1232	self selection:nil.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1233	self root:root.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1234	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1235	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1236
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1237	selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1238	"set the selection derived from the selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1239	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1240	\|coll value sz\|
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1241
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1242	(value := selectionHolder value) isNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1243	^ self deselect
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1244	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1245
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1246	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1247	self selectNode:value
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1248	] ifTrue:[
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1249	(sz := value size) ~~ 0 ifTrue:[
d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1250	coll := OrderedCollection new:sz.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1251
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1252	value do:[:aNode\|\|i\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1253	(i := self indexOfNode:aNode) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1254	coll add:i
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1255	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1256	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1257	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1258	coll size == 0 ifTrue:[self deselect]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1259	ifFalse:[self selection:coll]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1260	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1261	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1262
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1263	selectionToModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1264	"write selection to selection holder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1265	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1266	\|newSel oldSel\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1267
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1268	oldSel := selectionHolder value.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1269
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1270	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1271	(newSel := self selectedNode) ~~ oldSel ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1272	selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1273	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1274	] ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1275	selection size == 0 ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1276	oldSel notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1277	selectionHolder value:nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1278	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1279	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1280	newSel := selection collect:[:i\| listOfNodes at:i].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1281
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1282	newSel size ~~ oldSel size ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1283	selectionHolder value:newSel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1284	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1285	newSel do:[:aNode\|
785 6114a6e125c5 update ca parents: 782 diff changeset	1286	(oldSel includesIdentical:aNode) ifFalse:[
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1287	^ selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1288	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1289	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1290	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1291	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1292	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1293	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1294
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1295	!SelectionInTreeView methodsFor:'private'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1296
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1297	list:aList keepSelection:keepSelection
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1298	"setup new list; keep selection dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1299	keepSelection
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1300	"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1301	\|list\|
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1302
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1303	list := aList.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1304
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1305	list size == 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1306	listOfNodes := #()
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1307	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1308	(list first respondsTo:#hasChildren) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1309	listOfNodes := aList.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1310	self refetchDeviceResources.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1311	list := listOfNodes collect:[:aNode\| aNode name ].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1312	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1313	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1314	super list:list keepSelection:keepSelection
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1315	!
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1316
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1317	nodeAt:anIndex expand:doExpand
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1318	"expand or collapse the node at an index, anIndex dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1319	of doExpand
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1320	"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1321	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1322
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1323	node := listOfNodes at:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1324
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1325	node hasChildren ifFalse:[ "/ no children exists
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1326	^ self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1327	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1328
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1329	node isExpandable ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1330	doExpand ifFalse:[^ self]. "/ already collapsed
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1331	node expand
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1332	] ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1333	doExpand ifTrue:[^ self]. "/ already expanded
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1334	node collapse
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1335	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1336
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1337	node children isEmpty ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1338	"/ no children; redraw selected line (image might change)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1339	self redrawLine:anIndex.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1340	] ifFalse:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1341	"/ with children; update list and redraw to end.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1342	model removeDependent:self.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1343	model recomputeList.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1344	model addDependent:self.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1345	list := self listFromModel.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1346	self redrawFromLine:anIndex.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1347	self contentsChanged.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1348	]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1349
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1350	! !
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1351
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1352	!SelectionInTreeView methodsFor:'private - drag and drop'!
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1353
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1354	collectionOfDragObjects
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1355	"returns collection of dragable objects assigned to selection
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1356	Here, by default, a collection of text-dragObjects is generated;
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1357	however, if a dragObjectConverter is defined, that one gets a chance
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1358	to convert as appropriate."
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1359
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1360	\|collection converted selection dLbl dObj node\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1361
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1362	selection := self selectionAsCollection.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1363
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1364	collection := selection collect:[:nr\|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1365	node := listOfNodes at:nr.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1366	dObj := self dragObjectForNode:node.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1367	dObj theObject:(node contents).
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1368	dLbl := LabelAndIcon icon:(self figureFor:node) string:(list at:nr).
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1369	dObj displayObject:dLbl.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1370	dObj
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1371	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1372
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1373	dragObjectConverter notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1374	converted := OrderedCollection new.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1375	collection keysAndValuesDo:[:nr :obj \|
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1376	(dObj := dragObjectConverter value:obj) notNil ifTrue:[
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1377	dLbl := LabelAndIcon icon:(self figureFor:(listOfNodes at:nr)) string:(list at:nr).
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1378	converted displayObject:dLbl.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1379	converted add:dObj
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1380	]
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1381	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1382	collection := converted
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1383	].
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1384	^ collection.
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1385
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1386
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1387
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1388	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1389
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1390	dragObjectForNode:aNode
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1391	"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	1392	"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1393	^ DropObject new:aNode.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1394
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1395
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1396	!
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1397
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1398	startDragX:x y:y
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1399	"start drag
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1400	"
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1401	dragIsActive := true.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1402
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1403	DragAndDropManager startDrag:(self collectionOfDragObjects)
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1404	from:self
a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1405	atEnd:endDragAction
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1406
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1407
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1408	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1409
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1410	!SelectionInTreeView methodsFor:'private queries'!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1411
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1412	lengthOfLongestLineBetween:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1413	"return the length (in characters) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1414	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1415	\|max\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1416
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1417	max := self widthOfContents:firstLine and:lastLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1418	^ (max // fontWidth) + 1
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1419	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1420
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1421	widthOfContents
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1422	"return the width of the contents in pixels
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1423	- used for scrollbar interface"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1424
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1425	list isNil ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1426
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1427	(widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1428	widthOfWidestLine := self widthOfContents:1 and:(self size).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1429	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1430	^ widthOfWidestLine + (leftMargin * 2)
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1431
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1432	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1433
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1434	widthOfContents:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1435	"return the length (in pixels) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1436	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1437	\|max "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1438	thisLen "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1439	first "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1440	last "{ Class: SmallInteger }" \|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1441
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1442	listOfNodes size == 0 ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1443
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1444	last := listOfNodes size.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1445	first := firstLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1446
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1447	(first > last) ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1448
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1449	(lastLine < last) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1450	last := lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1451	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1452	max := 0.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1453
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1454	listOfNodes from:first to:last do:[:anItem\|\|name\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1455	thisLen := self xOfStringNode:anItem.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1456
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1457	(name := anItem name) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1458	thisLen := thisLen + (name widthOn:self).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1459	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1460	(thisLen > max) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1461	max := thisLen.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1462	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1463	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1464	^ max + leftOffset.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1465	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1466
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1467	withoutRedrawAt:anIndex put:aString
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1468	"change a line without redisplay"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1469
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1470	\|width\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1471
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1472	width := widthOfWidestLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1473	widthOfWidestLine := nil.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1474
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1475	super withoutRedrawAt:anIndex put:aString.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1476
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1477	(widthOfWidestLine := width) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1478	width := self widthOfContents:anIndex and:anIndex.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1479
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1480	width > widthOfWidestLine ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1481	widthOfWidestLine := width
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1482	] ifFalse:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1483	widthOfWidestLine := nil "/ means: unknown
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1484	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1485	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1486
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1487
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1488	! !
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1489
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1490	!SelectionInTreeView methodsFor:'queries'!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1491
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1492	figureFor:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1493	"access figure for a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1494	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1495	\|icon img\|
6114a6e125c5 update ca parents: 782 diff changeset	1496
6114a6e125c5 update ca parents: 782 diff changeset	1497	(icon := aNode icon) notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1498	img := registeredImages at:icon ifAbsent:nil.
773 b3596157f97d register the icons and put them into a caching dict tz parents: 771 diff changeset	1499
785 6114a6e125c5 update ca parents: 782 diff changeset	1500	img notNil ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1501	^ img
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1502	].
785 6114a6e125c5 update ca parents: 782 diff changeset	1503	icon isImage ifTrue:[
6114a6e125c5 update ca parents: 782 diff changeset	1504	img := self imageOnDevice:(icon copy).
6114a6e125c5 update ca parents: 782 diff changeset	1505	registeredImages at:icon put:img.
6114a6e125c5 update ca parents: 782 diff changeset	1506	^ img
6114a6e125c5 update ca parents: 782 diff changeset	1507	]
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1508	].
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1509
785 6114a6e125c5 update ca parents: 782 diff changeset	1510	"/ fallback solution
6114a6e125c5 update ca parents: 782 diff changeset	1511
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1512	aNode hasChildren ifTrue:[
785 6114a6e125c5 update ca parents: 782 diff changeset	1513	^ aNode isExpandable ifTrue:[imageClosed] ifFalse:[imageOpened]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1514	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1515	^ imageItem
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1516	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1517
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1518	indexOfNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1519	"returns index of a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1520	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1521	^ listOfNodes identityIndexOf:aNode
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1522	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1523
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1524	xOfFigureLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1525	"origin x where to draw the icon
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1526	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1527	\|l "{ Class:SmallInteger }"\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1528
785 6114a6e125c5 update ca parents: 782 diff changeset	1529	l := showRoot ifTrue:[aLevel] ifFalse:[aLevel - 1].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1530
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1531	showDirectoryIndicator ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1532	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1533	] ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1534	showDirectoryIndicatorForRoot ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1535	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1536	]
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1537	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1538	^ (l * (imageInset + imageWidth)) + imageInset - leftOffset + leftMargin
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1539
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1540	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1541
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1542	xOfFigureNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1543	"origin x where to draw the icon
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1544	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1545	^ self xOfFigureLevel:(aNode level)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1546	!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1547
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1548	xOfStringLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1549	"origin x where to draw the text( label )
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1550	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1551	^ (self xOfFigureLevel:aLevel) + imageWidth + textInset
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1552
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1553	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1554
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1555	xOfStringNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1556	"origin x where to draw the text( label )
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1557	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1558	^ self xOfStringLevel:(aNode level)
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1559
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1560	! !
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1561
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1562	!SelectionInTreeView methodsFor:'selection'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1563
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1564	selectFromListOfNames:aListOfNames
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1565	"set selection from a list of names
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1566	"
785 6114a6e125c5 update ca parents: 782 diff changeset	1567	\|node rdwNd chgd\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1568
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1569	aListOfNames size < 1 ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1570	^ self selection:nil
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1571	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1572
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1573	node := model root.
785 6114a6e125c5 update ca parents: 782 diff changeset	1574	chgd := false.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1575
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1576	aListOfNames do:[:el\|\|next\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1577	next := node detectChild:[:e\|e name = el].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1578
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1579	next notNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1580	node hidden ifTrue:[
785 6114a6e125c5 update ca parents: 782 diff changeset	1581	chgd := true.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1582	node expand
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1583	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1584	node := next
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1585	]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1586	].
785 6114a6e125c5 update ca parents: 782 diff changeset	1587	chgd ifTrue:[
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1588	model recomputeList.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1589	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1590	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1591
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1592	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1593
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1594	selectNode:aNode
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1595	"change selection to a node
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1596	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1597	self selection:(self indexOfNode:aNode)
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1598
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1599
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1600	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1601
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1602	selectedIndex
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1603	"get single selected index or 0
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1604	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1605	selection size == 1 ifTrue:[^ selection first].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1606	selection isNumber ifTrue:[^ selection].
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1607	^ 0
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1608	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1609
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1610	selectedNode
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1611	"get the single selected node or nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1612	"
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1613	\|idx\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1614
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1615	(idx := self selectedIndex) ~~ 0 ifTrue:[
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1616	^ listOfNodes at:idx
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1617	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1618	^ nil
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1619	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1620
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1621	selectionChangedFrom:oldSelection
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1622	"update selectionHolder if not nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1623	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1624
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1625	"/ first change my selectionHolders value ...
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1626	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1627	self selectionToModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1628	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1629
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1630	"/ ... then make notifications.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1631	super selectionChangedFrom:oldSelection.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1632
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1633
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1634	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1635
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1636	!SelectionInTreeView methodsFor:'selection-actions'!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1637
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1638	selectedNodeAdd:something
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1639	"add a node or collection of nodes after selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1640	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1641	\|node\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1642
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1643	something notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1644	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1645	node parent notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1646	node isCollapsable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1647	model add:something beforeIndex:1 below:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1648	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1649	model add:something after:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1650	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1651	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1652	model add:something beforeIndex:1 below:(self root)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1653	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1654	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1655	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1656
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1657	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1658
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1659	selectedNodeBecomeChildOfNext
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1660	"become node a child of followd node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1661	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1662	\|idx node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1663
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1664	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1665	idx := cprt indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1666
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1667	idx == cprt children size ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1668	nprt := cprt childAt:(idx + 1).
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1669
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1670	nprt notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1671	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1672	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1673	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1674	model collapse:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1675	model add:node beforeIndex:1 below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1676	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1677	model expand:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1678
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1679	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1680	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1681	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1682	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1683	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1684
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1685	selectedNodeBecomeSisterOfParent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1686	"become node a sister of its current parent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1687	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1688	\|node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1689
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1690	( (node := self selectedNode) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1691	or:[(cprt := node parent) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1692	or:[(nprt := cprt parent) isNil]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1693	) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1694	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1695	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1696	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1697	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1698
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1699	model add:node afterIndex:(nprt indexOfChild:cprt) below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1700	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1701	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1702
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1703	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1704
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1705	selectedNodeChangeSequenceOrder:anOffset
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1706	"move child 'anOffset' forward or backward in list of children
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1707	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1708	\|idx node size parent\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1709
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1710	( (node := self selectedNode) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1711	and:[(parent := node parent) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1712	and:[(size := parent children size) > 1]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1713	) ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1714	idx := parent indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1715
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1716	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1717	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1718	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1719	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1720
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1721	(idx := idx + anOffset) < 1 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1722	idx := size
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1723	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1724	idx > size ifTrue:[idx := 1]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1725	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1726	model add:node beforeIndex:idx below:parent.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1727	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1728	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1729	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1730
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1731	selectedNodeExpand:doExpand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1732	"collapse or expand selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1733	"
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1734	\|index\|
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1735
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1736	(index := self selectedIndex) ~~ 0 ifTrue:[
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1737	self nodeAt:index expand:doExpand
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1738	].
785 6114a6e125c5 update ca parents: 782 diff changeset	1739
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1740	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1741
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1742	selectedNodesRemove
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1743	"remove selected nodes
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1744	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1745	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1746	self selection:nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1747
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1748	! !
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1749
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1750	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1751
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1752	version
811 a688e8f11bc6 async. reading of directory indicators ca parents: 792 diff changeset	1753	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.50 1998-03-09 16:08:44 ca Exp $'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1754	! !

author	ca
	Mon, 09 Mar 1998 17:08:44 +0100
changeset 811	a688e8f11bc6
parent 792	5a0af910519e
child 825	7ff8686e8774
permissions	-rw-r--r--