hg/stx-libwidg2: SelectionInTreeView.st@15fafccfed86 (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
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	15	instanceVariableNames:'validateDoubleClickBlock selectionHolder rootHolder imageWidth
685 80751cda3340 lines as point ca parents: 659 diff changeset	16	showLines listOfNodes imageInset textInset labelOffsetY lineMask
80751cda3340 lines as point ca parents: 659 diff changeset	17	lineColor openIndicator computeResources closeIndicator showRoot
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	18	extentOpenIndicator extentCloseIndicator showDirectoryIndicator
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	19	showDirectoryIndicatorForRoot indicatorExtentDiv2 imageOpened
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	20	imageClosed imageItem discardMotionEvents'
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	21	classVariableNames:'ImageOpened ImageClosed ImageItem OpenIndicator CloseIndicator'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	22	poolDictionaries:''
6d40e2c4ed53 intitial checkin ca parents: diff changeset	23	category:'Views-Text'
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
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	126	!SelectionInTreeView class methodsFor:'default images'!
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
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	131	CloseIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	132	CloseIndicator := Image fromFile:('xpmBitmaps/plus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	133	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	134	^ CloseIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	135	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	136	CloseIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	137	"
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	138
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	139	"Modified: / 29.10.1997 / 03:36:00 / cg"
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
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	145	ImageClosed isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	146	ImageClosed := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	147	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	148	^ ImageClosed
6d40e2c4ed53 intitial checkin ca parents: diff changeset	149	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	150	ImageClosed := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	151	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	152
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	153	"Modified: / 29.10.1997 / 03:36:05 / cg"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	154	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	155
6d40e2c4ed53 intitial checkin ca parents: diff changeset	156	imageItem
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	157	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	158
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	159	ImageItem isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	160	ImageItem := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain.xpm')
6d40e2c4ed53 intitial checkin ca parents: diff changeset	161
6d40e2c4ed53 intitial checkin ca parents: diff changeset	162	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	163	^ ImageItem
6d40e2c4ed53 intitial checkin ca parents: diff changeset	164	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	165	ImageItem := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	166	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	167
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	168	"Modified: / 29.10.1997 / 03:36:10 / cg"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	169	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	170
6d40e2c4ed53 intitial checkin ca parents: diff changeset	171	imageOpened
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	172	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	173
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	174	ImageOpened isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	175	ImageOpened := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_open.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	176
6d40e2c4ed53 intitial checkin ca parents: diff changeset	177	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	178	^ ImageOpened
6d40e2c4ed53 intitial checkin ca parents: diff changeset	179	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	180	ImageOpened := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	181	"
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	182
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	183	"Modified: / 29.10.1997 / 03:36:15 / cg"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	184	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	185
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	186	openIndicator
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	187	<resource: #fileImage>
979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	188
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	189	OpenIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	190	OpenIndicator := Image fromFile:('xpmBitmaps/minus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	191	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	192	^ OpenIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	193	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	194	OpenIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	195	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	196
589 979ea44d23ae checkin from browser Claus Gittinger <cg@exept.de> parents: 585 diff changeset	197	"Modified: / 29.10.1997 / 03:36:21 / cg"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	198	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	199
6d40e2c4ed53 intitial checkin ca parents: diff changeset	200	!SelectionInTreeView methodsFor:'accessing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	201
685 80751cda3340 lines as point ca parents: 659 diff changeset	202	lineColor
80751cda3340 lines as point ca parents: 659 diff changeset	203	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	204	"
80751cda3340 lines as point ca parents: 659 diff changeset	205	^ lineColor
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
80751cda3340 lines as point ca parents: 659 diff changeset	209	lineColor:aColor
80751cda3340 lines as point ca parents: 659 diff changeset	210	"returns user configured line color or nil
80751cda3340 lines as point ca parents: 659 diff changeset	211	"
80751cda3340 lines as point ca parents: 659 diff changeset	212	\|col\|
80751cda3340 lines as point ca parents: 659 diff changeset	213
80751cda3340 lines as point ca parents: 659 diff changeset	214	col := aColor = fgColor ifTrue:[nil] ifFalse:[aColor].
80751cda3340 lines as point ca parents: 659 diff changeset	215
80751cda3340 lines as point ca parents: 659 diff changeset	216	col = lineColor ifFalse:[
80751cda3340 lines as point ca parents: 659 diff changeset	217	lineColor := col.
80751cda3340 lines as point ca parents: 659 diff changeset	218
80751cda3340 lines as point ca parents: 659 diff changeset	219	shown ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	220	lineColor notNil ifTrue:[lineColor := lineColor on:device].
80751cda3340 lines as point ca parents: 659 diff changeset	221	self invalidate
80751cda3340 lines as point ca parents: 659 diff changeset	222	]
80751cda3340 lines as point ca parents: 659 diff changeset	223	]
80751cda3340 lines as point ca parents: 659 diff changeset	224	!
80751cda3340 lines as point ca parents: 659 diff changeset	225
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	226	nodeAtIndex:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	227	"returns node at an index or nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	228	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	229	(anIndex notNil and:[anIndex ~~ 0 and:[anIndex <= listOfNodes size]]) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	230	^ listOfNodes at:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	231	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	232	^ nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	233	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	234
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	235	root
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	236	"gets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	237	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	238	^ self nodeAtIndex:1
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	239	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	240
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	241	root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	242	"sets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	243	"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	244	aRoot notNil ifTrue:[aRoot expand].
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	245	model root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	246	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	247
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	248	textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	249	"get the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	250	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	251	^ textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	252	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	253
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	254	textInset:anInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	255	"set the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	256	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	257	anInset ~~ textInset ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	258	anInset >= 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	259	textInset := anInset.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	260	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	261	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	262	self error
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	263	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	264	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	265	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	266
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	267	!SelectionInTreeView methodsFor:'accessing-behavior'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	268
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	269	showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	270	"returns true if directories has an open/closed indicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	271	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	272	^ showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	273	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	274
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	275	showDirectoryIndicator:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	276	"set or clear open/closed indicator for directories
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	277	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	278	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	279	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	280	aState ~~ showDirectoryIndicator ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	281	showDirectoryIndicator := aState.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	282	self recomputeDirectoryIndicator.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	283	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	284	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	285	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	286
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	287	showDirectoryIndicatorForRoot
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	288	"returns true if root directory has an open/closed indicator if
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	289	the common showDirectoryIndicator is enabled
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	290	"
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	291	^ showDirectoryIndicatorForRoot
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	292	!
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	293
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	294	showDirectoryIndicatorForRoot:aState
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	295	"true if root directory has an open/closed indicator if
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	296	the common showDirectoryIndicator is enabled
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	297	"
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	298	aState ~~ showDirectoryIndicator ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	299	showDirectoryIndicatorForRoot := aState.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	300	self recomputeDirectoryIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	301	self invalidate
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	302	].
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	303	!
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	304
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	305	showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	306	"returns true if lines are shown
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	307	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	308	^ showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	309	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	310
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	311	showLines:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	312	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	313	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	314	aState ~~ showLines ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	315	showLines := aState.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	316	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	317	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	318	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	319
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	320	showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	321	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	322	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	323	^ showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	324	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	325
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	326	showRoot:aState
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	327	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	328	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	329	showRoot ~~ aState ifTrue:[
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	330	model showRoot:(showRoot := aState)
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	331	].
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	332	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	333
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	334	validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	335	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	336	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	337	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	338	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	339	^ validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	340
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	341
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	342	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	343
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	344	validateDoubleClickBlock:aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	345	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	346	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	347	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	348	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	349	validateDoubleClickBlock := aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	350
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	351
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	352	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	353
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	354	!SelectionInTreeView methodsFor:'accessing-channels'!
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	rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	357	"get the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	358	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	359	^ rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	360	!
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	rootHolder:aValueHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	363	"set the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	364	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	365	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	366	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	367	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	368	(rootHolder := aValueHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	369	rootHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	370	self rootFromModel.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	371	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	372	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	373
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	374	selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	375	"get the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	376	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	377	^ selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	378
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	379	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	380
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	381	selectionHolder:aHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	382	"set the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	383	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	384	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	385	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	386	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	387
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	388	(selectionHolder := aHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	389	selectionHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	390	self selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	391	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	392
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	393	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	394
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	395	!SelectionInTreeView methodsFor:'accessing-images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	396
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	397	imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	398	"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	399
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	400	^ imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	401
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	402	"Created: 3.7.1997 / 12:34:31 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	403	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	404
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	405	imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	406	"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	407
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	408	^ imageItem
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	"Created: 3.7.1997 / 12:34:34 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	411	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	412
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	413	imageOnDevice:anImage
2a1014d6697c checkin from browser ca parents: 552 diff changeset	414	"associate iamge to device and clear pixel mask (in case of realized);
2a1014d6697c checkin from browser ca parents: 552 diff changeset	415	returns the new image.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	416	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	417	\|img\|
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	418
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	419	img := anImage onDevice:device.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	420
2a1014d6697c checkin from browser ca parents: 552 diff changeset	421	realized ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	422	img := img clearMaskedPixels
2a1014d6697c checkin from browser ca parents: 552 diff changeset	423	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	424	^ img
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	425	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	426
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	427	imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	428	"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	429
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	430	^ imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	431
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	432	"Created: 3.7.1997 / 12:34:28 / cg"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	433	! !
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	434
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	435	!SelectionInTreeView methodsFor:'change & update'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	436
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	437	update:something with:aParameter from:aModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	438	"one of my models changed its value
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	439	"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	440	aModel == rootHolder ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	441	^ self rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	442	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	443	aModel == selectionHolder ifTrue:[
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	444	^ self selectionFromModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	445	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	446
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	447	aModel == model ifTrue:[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	448	something == #list ifTrue:[
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	449	^ self getListFromModel
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	450	]
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	451	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	452
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	453	aModel == self selectedNode ifTrue:[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	454	something == #value ifTrue:[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	455	^ self redrawLine: (self indexOfNode: aModel)
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
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	462	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	463
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	464	!SelectionInTreeView methodsFor:'drawing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	465
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	466	drawLine:line atX:atX inVisible:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	467	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	468
6d40e2c4ed53 intitial checkin ca parents: diff changeset	469	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	470
6d40e2c4ed53 intitial checkin ca parents: diff changeset	471	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	472	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	473
6d40e2c4ed53 intitial checkin ca parents: diff changeset	474	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	475
6d40e2c4ed53 intitial checkin ca parents: diff changeset	476	drawLine:line inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	477	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	478
6d40e2c4ed53 intitial checkin ca parents: diff changeset	479	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	480
6d40e2c4ed53 intitial checkin ca parents: diff changeset	481	drawVisibleLine:visLineNr col:col with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	482	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	483
6d40e2c4ed53 intitial checkin ca parents: diff changeset	484	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	485
6d40e2c4ed53 intitial checkin ca parents: diff changeset	486	drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	487	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	488
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	489	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	490
6d40e2c4ed53 intitial checkin ca parents: diff changeset	491	drawVisibleLine:visLineNr from:startCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	492	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	493
6d40e2c4ed53 intitial checkin ca parents: diff changeset	494	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	495
6d40e2c4ed53 intitial checkin ca parents: diff changeset	496	!SelectionInTreeView methodsFor:'drawing basics'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	497
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	498	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	499	"redraw a visible line range with clearing the background
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	500	"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	501	\|y0 y1 sz\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	502
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	503	shown ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	504	y0 := self yOfVisibleLine:startVisLineNr.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	505	y0 := y0 - 1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	506	sz := endVisLineNr - startVisLineNr + 1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	507	y1 := sz * fontHeight.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	508
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	509	"/ clear rectangle line and set background color
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	510	self paint:bg.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	511	self fillRectangleX:0 y:y0 width:width height:y1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	512
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	513	(y1 := self visibleLineToAbsoluteLine:startVisLineNr) notNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	514	self redrawLinesX:0 y:y0 toX:width start:y1 stop:(y1 + sz)
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	515	]
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	drawLabelIndex:anIndex atX:x y:yCenter
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	520	"draw text label at x and y centered
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	521	"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	522	\|lbl\|
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	523
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	524	(lbl := (listOfNodes at:anIndex) name) notNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	525	self displayOpaqueString:lbl x:x y:(yCenter + labelOffsetY).
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	526	]
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	redrawLinesX:x0 y:y0 toX:x1 start:start stop:stop
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	530	"redraw from line to line without clearing the background
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	531	"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	532	\|chgdPaint node image isSelected
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	533	x "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	534	yTop "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	535	yBot "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	536	yCtr "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	537	size "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	538	end "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	539	index "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	540	xCross "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	541	xFig "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	542	xStr "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	543	idx "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	544	level "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	545	lv "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	546	figWidthDiv2 "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	547	\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	548
552 1b84811f7c45 * empty log message * Claus Gittinger <cg@exept.de> parents: 551 diff changeset	549	level := nil. "/ to force evaluation of #ifFalse in loop
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	550	yTop := y0.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	551	index := start.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	552	size := listOfNodes size.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	553	end := stop min:size.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	554
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	555	figWidthDiv2 := imageWidth // 2.
685 80751cda3340 lines as point ca parents: 659 diff changeset	556	figWidthDiv2 odd ifTrue:[figWidthDiv2 := figWidthDiv2 + 1].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	557	yCtr := yTop - (fontHeight // 2).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	558
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	559	[index <= end] whileTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	560	node := listOfNodes at:index.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	561	yBot := yTop + fontHeight.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	562	yCtr := yCtr + fontHeight.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	563
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	564	(lv := node level) == level ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	565	level := lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	566	xFig := self xOfFigureLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	567	xStr := self xOfStringLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	568	xCross := (self xOfFigureLevel:(lv-1)) + figWidthDiv2.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	569	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	570
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	571	(isSelected := self isInSelection:index) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	572	self paint:hilightFgColor on:hilightBgColor.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	573	] ifFalse:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	574	self paint:fgColor on:bgColor.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	575	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	576
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	577	showLines ifTrue:[
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	578	chgdPaint := (lineColor isNil or:[isSelected]) not.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	579
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	580	chgdPaint ifTrue:[
685 80751cda3340 lines as point ca parents: 659 diff changeset	581	self paint:lineColor.
80751cda3340 lines as point ca parents: 659 diff changeset	582	].
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	583
685 80751cda3340 lines as point ca parents: 659 diff changeset	584	self mask:lineMask.
80751cda3340 lines as point ca parents: 659 diff changeset	585	self setMaskOrigin:(self viewOrigin + (0 @ 1) \\ (lineMask extent)).
80751cda3340 lines as point ca parents: 659 diff changeset	586
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	587	xCross < x1 ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	588	( ((x := xFig + figWidthDiv2) between:x0 and:x1)
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	589	and:[node isCollapsable
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	590	and:[node numberOfChildren ~~ 0]]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	591	) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	592	self displayLineFromX:x y:yCtr toX:x y:yBot
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	593	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	594
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	595	"/ vertical line from previous to current form
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	596	( xCross >= x0
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	597	and:[level ~~ 1
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	598	and:[node parent children last == node]]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	599	) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	600	self displayLineFromX:xCross y:yTop - 1 toX:xCross y:yCtr
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	601	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	602
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	603	"/ horizontal line from previous to current form
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	604	( xFig > x0
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	605	and:[(level ~~ 1
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	606	or:[showDirectoryIndicatorForRoot and:[showDirectoryIndicator]])]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	607	) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	608	self displayLineFromX:xCross y:yCtr toX:xFig y:yCtr
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	609	]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	610	].
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	611
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	612	"/ draw all vertical lines to left side
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	613	xCross > x0 ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	614	idx := index.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	615
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	616	[(lv > 0 and:[(idx := idx + 1) <= size])] whileTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	617	(x := (listOfNodes at:idx) level) <= lv ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	618	lv := x - 1.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	619
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	620	(x := (self xOfFigureLevel:lv) + figWidthDiv2) < x0 ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	621	lv := 0
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	622	] ifFalse:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	623	x <= x1 ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	624	self displayLineFromX:x y:yTop - 1 toX:x y:yBot
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	625	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	626	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	627	]
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	628	]
685 80751cda3340 lines as point ca parents: 659 diff changeset	629	].
80751cda3340 lines as point ca parents: 659 diff changeset	630	self mask:nil.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	631
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	632	chgdPaint ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	633	isSelected ifTrue:[self paint:hilightFgColor on:hilightBgColor]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	634	ifFalse:[self paint:fgColor on:bgColor]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	635	]
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	636	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	637
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	638	"/ draw image
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	639	(image := self figureFor:node) notNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	640	(xFig < x1 and:[(xFig + image width) > x0]) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	641	self displayForm:image x:xFig y:(yCtr - (image height // 2))
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	642	]
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	643	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	644
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	645	"/ draw text label
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	646	self drawLabelIndex:index atX:xStr y:yCtr .
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	647
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	648	"/ draw directory indicator
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	649
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	650	(showDirectoryIndicator and:[node showIndicator]) ifTrue:[
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	651	(level ~~ 1 or:[showDirectoryIndicatorForRoot]) ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	652	node isCollapsable ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	653	image := openIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	654	x := extentOpenIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	655	] ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	656	image := closeIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	657	x := extentCloseIndicator.
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	658	].
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	659	idx := x x.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	660
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	661	(xCross - idx < x1 and:[xCross + idx > x0]) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	662	self displayForm:image x:(xCross - idx) y:(yCtr - x y)
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	663	]
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	664	]
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	665	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	666	"/ setup next line
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	667	index := index + 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	668	yTop := yBot.
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	669	]
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	670	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	671
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	672	redrawX:x y:y width:w height:h
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	673	"a region must be redrawn"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	674
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	675	\|saveClip
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	676	y0 "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	677	y1 "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	678	visStart "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	679	visEnd "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	680	startLn "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	681	stopLn "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	682	maxY "{ Class:SmallInteger }"
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	683	startY "{ Class:SmallInteger }"\|
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	684
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	685	shown ifFalse:[^ self].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	686
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	687	visStart := self visibleLineOfY:y.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	688	visEnd := self visibleLineOfY:(y + h).
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	689	startLn := self visibleLineToAbsoluteLine:visStart.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	690
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	691	self paint:bgColor.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	692	self fillRectangleX:x y:y width:w height:h.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	693
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	694	startLn isNil ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	695	^ self
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	696	].
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	697	startY := (self yOfVisibleLine:visStart) - 1.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	698	stopLn := startLn + visEnd - visStart.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	699
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	700	saveClip := clipRect.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	701	self clippingRectangle:(Rectangle left:x top:y width:w height:h).
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	702
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	703	self hasSelection ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	704	maxY := y + h.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	705
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	706	self selectionDo:[:i\|
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	707	(i between:startLn and:stopLn) ifTrue:[
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	708	self paint:hilightBgColor.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	709	y0 := (startY + (i - startLn * fontHeight)) max:y.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	710	y1 := (y0 + fontHeight) min:maxY.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	711	self fillRectangleX:x y:y0 width:w height:y1 - y0.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	712	]
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	713	]
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	714	].
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	715	self redrawLinesX:x y:startY toX:(x + w) start:startLn stop:stopLn.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	716	self clippingRectangle:saveClip.
15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	717
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	718	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	719
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	720	!SelectionInTreeView methodsFor:'enumerating'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	721
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	722	detectNode:aOneArgBlock
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	723	"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	724	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	725	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	726	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	727	^ listOfNodes detect:aOneArgBlock ifNone:nil
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	728	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	729
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	730	selectedNodesDo:aOneArgBlock
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	731	"evaluate the block on each node selected
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	732	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	733	self selectionDo:[:i\| aOneArgBlock value:(listOfNodes at:i) ]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	734	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	735
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	736	!SelectionInTreeView methodsFor:'event handling'!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	737
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	738	buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	739	"mouse-move while button was pressed - handle selection changes"
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	740
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	741	discardMotionEvents ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	742	super buttonMotion:buttonMask x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	743	]
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	744
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	745
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	746	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	747
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	748	buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	749
2a1014d6697c checkin from browser ca parents: 552 diff changeset	750	(self indicatiorLineForButton:button atX:x y:y) == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	751	^ super buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	752	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	753	"/ discard doubleClick on indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	754	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	755
2a1014d6697c checkin from browser ca parents: 552 diff changeset	756	buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	757	"check for indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	758	"
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	759	\|expand node lineNr\|
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	760
2a1014d6697c checkin from browser ca parents: 552 diff changeset	761	lineNr := self indicatiorLineForButton:button atX:x y:y.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	762
2a1014d6697c checkin from browser ca parents: 552 diff changeset	763	lineNr == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	764	^ super buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	765	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	766	node := listOfNodes at:lineNr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	767
2a1014d6697c checkin from browser ca parents: 552 diff changeset	768	( validateDoubleClickBlock isNil
2a1014d6697c checkin from browser ca parents: 552 diff changeset	769	or:[(validateDoubleClickBlock value:node) ~~ false]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	770	) ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	771	^ super buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	772	].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	773	discardMotionEvents := true.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	774	dragIsActive := false.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	775	clickPosition := nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	776
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	777	self hasSelection ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	778	(selectConditionBlock isNil or:[selectConditionBlock value:lineNr]) ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	779	self selection:lineNr
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	780	] ifFalse:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	781	self selection:nil
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	782	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	783	].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	784	self nodeAt:lineNr expand:(node isExpandable).
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	785
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	786	!
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	787
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	788	buttonRelease:button x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	789	"stop any autoscroll"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	790
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	791	discardMotionEvents ifTrue:[
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	792	clickPosition := nil.
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	793	discardMotionEvents := false.
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	super buttonRelease:button x:x y:y
663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	796
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	797	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	798
2a1014d6697c checkin from browser ca parents: 552 diff changeset	799	doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	800	"handle a double click; collapse or expand selected entry
2a1014d6697c checkin from browser ca parents: 552 diff changeset	801	in case of having children
2a1014d6697c checkin from browser ca parents: 552 diff changeset	802	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	803	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	804
2a1014d6697c checkin from browser ca parents: 552 diff changeset	805	(node := self selectedNode) notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	806	( validateDoubleClickBlock isNil
2a1014d6697c checkin from browser ca parents: 552 diff changeset	807	or:[(validateDoubleClickBlock value:node) ~~ false]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	808	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	809	self selectedNodeExpand:(node isExpandable).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	810	super doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	811	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	812	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	813
2a1014d6697c checkin from browser ca parents: 552 diff changeset	814	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	815
2a1014d6697c checkin from browser ca parents: 552 diff changeset	816	indicatiorLineForButton:aButton atX:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	817	"returns linenumber assigned to indicator at x/y or 0
2a1014d6697c checkin from browser ca parents: 552 diff changeset	818	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	819	\|sensor nr x0 node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	820
2a1014d6697c checkin from browser ca parents: 552 diff changeset	821	( enabled
2a1014d6697c checkin from browser ca parents: 552 diff changeset	822	and:[showDirectoryIndicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	823	and:[aButton == 1 or:[aButton == #select]]]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	824	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	825	sensor := self sensor.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	826
2a1014d6697c checkin from browser ca parents: 552 diff changeset	827	(sensor ctrlDown or:[sensor shiftDown]) ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	828	nr := self visibleLineToListLine:(self visibleLineOfY:y).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	829
2a1014d6697c checkin from browser ca parents: 552 diff changeset	830	nr notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	831	node := listOfNodes at:nr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	832	x0 := self xOfFigureLevel:(node level - 1).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	833
2a1014d6697c checkin from browser ca parents: 552 diff changeset	834	(x > x0 and:[(x0 + imageWidth) > x and:[node numberOfChildren ~~ 0]]) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	835	^ nr
2a1014d6697c checkin from browser ca parents: 552 diff changeset	836	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	837	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	838	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	839	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	840	^ 0
756 204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	841	!
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	842
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	843	key:key select:index x:x y:y
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	844	"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	845	on that entry.
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	846	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	847	"
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	848	(enabled and:[keyActionStyle notNil]) ifFalse:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	849	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	850	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	851
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	852	(selectConditionBlock isNil or:[selectConditionBlock value:index]) ifTrue:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	853	super key:key select:index x:x y:y
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	854	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	855
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	856	keyActionStyle == #pass ifTrue:[
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	857	^ self
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	858	].
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	859
204971de9150 key:key select:index x:x y:y ca parents: 695 diff changeset	860	self gotoLine:index
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	861	! !
2a1014d6697c checkin from browser ca parents: 552 diff changeset	862
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	863	!SelectionInTreeView methodsFor:'initialization'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	864
685 80751cda3340 lines as point ca parents: 659 diff changeset	865	create
80751cda3340 lines as point ca parents: 659 diff changeset	866	super create.
695 3e5240577e37 dont use Image>>on: -> use Image>>onDevice: Claus Gittinger <cg@exept.de> parents: 685 diff changeset	867	lineMask := lineMask onDevice:device.
685 80751cda3340 lines as point ca parents: 659 diff changeset	868
80751cda3340 lines as point ca parents: 659 diff changeset	869	lineColor notNil ifTrue:[
695 3e5240577e37 dont use Image>>on: -> use Image>>onDevice: Claus Gittinger <cg@exept.de> parents: 685 diff changeset	870	lineColor := lineColor onDevice:device
685 80751cda3340 lines as point ca parents: 659 diff changeset	871	]
80751cda3340 lines as point ca parents: 659 diff changeset	872	!
80751cda3340 lines as point ca parents: 659 diff changeset	873
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	874	destroy
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	875	"remove dependencies
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	876	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	877	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	878	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	879	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	880	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	881	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	882	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	883	super destroy.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	884
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	885
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	886	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	887
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	888	fetchDeviceResources
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	889	"initialize heavily used device resources - to avoid rendering
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	890	images again and again later"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	891
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	892	super fetchDeviceResources.
478 d7286b946764 add: ca parents: 471 diff changeset	893	self refetchDeviceResources
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	894	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	895
478 d7286b946764 add: ca parents: 471 diff changeset	896	fetchImageResources
d7286b946764 add: ca parents: 471 diff changeset	897	"initialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	898	images again and again later; returns maximum extent of the images used.
d7286b946764 add: ca parents: 471 diff changeset	899	Could be redefined by subclass
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	900	"
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	901	\|icon extent\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	902
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	903	imageOpened isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	904	imageOpened := (self class imageOpened) onDevice:device
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	905	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	906
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	907	imageClosed isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	908	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	909	].
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	910	extent := (imageOpened extent) max:(imageClosed extent).
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	911
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	912	imageItem isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	913	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	914	].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	915
764 7063f2604814 a little mistake tz parents: 763 diff changeset	916	(listOfNodes size > 0 and: [(icon := listOfNodes first icon) isImage]) ifTrue: [^icon extent].
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	917
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	918	^ extent max:(imageItem extent)
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	919
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	920	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	921
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	922	getFontParameters
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	923	"save old computed height derived from images
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	924	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	925	\|lineHeight\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	926
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	927	lineHeight := fontHeight ? 0.
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	928	super getFontParameters.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	929	labelOffsetY := fontAscent - (fontHeight - lineSpacing // 2).
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	930
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	931	lineHeight > fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	932	fontHeight := lineHeight
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	933	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	934	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	935	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	936	]
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	937	!
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	938
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	939	initialize
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	940	"setup instance attributes
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	941	"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	942	super initialize.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	943	self bitGravity:#NorthWest.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	944	showLines := true.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	945	showRoot := true.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	946	computeResources := true.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	947	showDirectoryIndicator := false.
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	948	showDirectoryIndicatorForRoot := true.
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	949	discardMotionEvents := false.
685 80751cda3340 lines as point ca parents: 659 diff changeset	950	lineMask := Form width:2 height:2 fromArray:#[16rAA 16r55].
639 663a913ec30b discard motion events if +/- is pressed ca parents: 623 diff changeset	951
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	952	textInset := 4.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	953	imageInset := 0. "/ set during indication enabled
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	954	imageWidth := 8. "/ default: will change during startup
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	955	self model:nil. "/ creates a default model.
478 d7286b946764 add: ca parents: 471 diff changeset	956	!
d7286b946764 add: ca parents: 471 diff changeset	957
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	958	realize
2a1014d6697c checkin from browser ca parents: 552 diff changeset	959	super realize.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	960	self refetchDeviceResources.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	961
2a1014d6697c checkin from browser ca parents: 552 diff changeset	962	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	963
478 d7286b946764 add: ca parents: 471 diff changeset	964	refetchDeviceResources
d7286b946764 add: ca parents: 471 diff changeset	965	"reinitialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	966	images again and again later
d7286b946764 add: ca parents: 471 diff changeset	967	"
551 b9d3ddbc3365 * empty log message * Claus Gittinger <cg@exept.de> parents: 546 diff changeset	968	\|extent\|
478 d7286b946764 add: ca parents: 471 diff changeset	969
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	970	(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	971	computeResources := false.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	972	extent := self fetchImageResources.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	973
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	974	extent y >= fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	975	fontHeight := 1 + extent y.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	976	].
685 80751cda3340 lines as point ca parents: 659 diff changeset	977	fontHeight odd ifTrue:[
80751cda3340 lines as point ca parents: 659 diff changeset	978	fontHeight := fontHeight + 1
80751cda3340 lines as point ca parents: 659 diff changeset	979	].
80751cda3340 lines as point ca parents: 659 diff changeset	980
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	981	imageWidth := extent x.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	982	self recomputeDirectoryIndicator.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	983	self computeNumberOfLinesShown.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	984	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	985	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	986
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	987	!SelectionInTreeView methodsFor:'model'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	988
6d40e2c4ed53 intitial checkin ca parents: diff changeset	989	getListFromModel
6d40e2c4ed53 intitial checkin ca parents: diff changeset	990	"if I have a model, get my list from it using the listMessage.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	991	If listMessage is nil, try aspectMessage for backward compatibilty.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	992	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	993	super list:(self listFromModel) keepSelection:true
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	994	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	995
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	996	listFromModel
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	997	"get list from model and return the new list.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	998	If listMessage is nil, try aspectMessage for backward compatibilty.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	999	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1000	\|msg\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1001
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1002	widthOfWidestLine := nil.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1003
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1004	(msg := listMsg ? aspectMsg) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1005	listOfNodes := model perform:msg.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1006	listOfNodes size ~~ 0 ifTrue:[
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1007	self refetchDeviceResources.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1008	^ listOfNodes collect:[:n\|n name]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1009	]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1010	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1011	listOfNodes := #().
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1012	^ #()
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1013	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1014
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1015	model:aModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1016	"check whether model is nil; than a default model is created
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1017	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1018	\|model\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1019
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1020	model := aModel ? (SelectionInTree new).
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1021	model showRoot:showRoot.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1022	super model:model.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1023	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1024
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1025	rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1026	"update hierarchical list from root model; 'rootHolder'
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1027	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1028	\|root\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1029
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1030	root := rootHolder root.
514 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	self root == root ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1033	self selection:nil.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1034	self root:root.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1035	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1036	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1037
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1038	selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1039	"set the selection derived from the selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1040	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1041	\|coll value sz\|
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1042
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1043	(value := selectionHolder value) isNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1044	^ self deselect
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1045	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1046
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1047	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1048	self selectNode:value
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1049	] ifTrue:[
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1050	(sz := value size) ~~ 0 ifTrue:[
d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	1051	coll := OrderedCollection new:sz.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1052
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1053	value do:[:aNode\|\|i\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1054	(i := self indexOfNode:aNode) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1055	coll add:i
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1056	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1057	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1058	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1059	coll size == 0 ifTrue:[self deselect]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1060	ifFalse:[self selection:coll]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1061	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1062	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1063
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1064	selectionToModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1065	"write selection to selection holder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1066	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1067	\|newSel oldSel\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1068
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1069	oldSel := selectionHolder value.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1070
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1071	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1072	(newSel := self selectedNode) ~~ oldSel ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1073	selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1074	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1075	] ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1076	selection size == 0 ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1077	oldSel notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1078	selectionHolder value:nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1079	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1080	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1081	newSel := selection collect:[:i\| listOfNodes at:i].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1082
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1083	newSel size ~~ oldSel size ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1084	selectionHolder value:newSel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1085	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1086	newSel do:[:aNode\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1087	(oldSel includes:aNode) ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1088	^ selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1089	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1090	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1091	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1092	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1093	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1094	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1095
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1096	!SelectionInTreeView methodsFor:'private'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1097
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1098	list:aList keepSelection:keepSelection
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1099	"setup new list; keep selection dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1100	keepSelection
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1101	"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1102	\|list\|
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1103
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1104	list := aList.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1105
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1106	list size == 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1107	listOfNodes := #()
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1108	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1109	(list first respondsTo:#hasChildren) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1110	listOfNodes := aList.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1111	self refetchDeviceResources.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1112	list := listOfNodes collect:[:aNode\| aNode name ].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1113	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1114	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1115	super list:list keepSelection:keepSelection
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1116	!
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1117
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1118	nodeAt:anIndex expand:doExpand
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1119	"expand or collapse the node at an index, anIndex dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1120	of doExpand
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1121	"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1122	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1123
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1124	node := listOfNodes at:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1125
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1126	node hasChildren ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1127	node isExpandable ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1128	doExpand ifFalse:[^ self].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1129	node expand
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1130	] ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1131	doExpand ifTrue:[^ self].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1132	node collapse
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1133	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1134
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1135	node numberOfChildren == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1136	"/ no children; redraw selected line (image might change)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1137	self redrawLine:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1138	] ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1139	"/ with children; update list and redraw to end.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1140	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1141	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1142	model addDependent:self.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1143	list := self listFromModel.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1144	self redrawFromLine:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1145	self contentsChanged.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1146	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1147	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1148
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1149	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1150
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1151	recomputeDirectoryIndicator
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1152	"setup attributes used by directory indicator
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1153	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1154	\|x1 x2 y\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1155
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1156	imageInset := 0.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1157
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1158	(showDirectoryIndicator and:[computeResources not]) ifFalse:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1159	^ self
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1160	].
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	1161	openIndicator isNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1162	openIndicator := self imageOnDevice:(self class openIndicator)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1163	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1164	closeIndicator isNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1165	closeIndicator := self imageOnDevice:(self class closeIndicator)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	1166	].
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1167
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1168	x1 := (openIndicator widthOn:self) // 2.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1169	y := openIndicator heightOn:self.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1170	extentOpenIndicator := Point x:x1 y:(y // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1171	x2 := (closeIndicator widthOn:self) // 2.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1172	y := closeIndicator heightOn:self.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1173	extentCloseIndicator := Point x:x2 y:(y // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1174
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1175	x2 > x1 ifTrue:[x1 := x2].
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1176
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1177	(x1 := x1 + self class minImageInset) > (imageWidth // 2) ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1178	imageInset := x1 - (imageWidth // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1179	].
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	1180
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1181	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1182
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1183	!SelectionInTreeView methodsFor:'private queries'!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1184
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1185	lengthOfLongestLineBetween:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1186	"return the length (in characters) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1187	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1188	\|max\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1189
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1190	max := self widthOfContents:firstLine and:lastLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1191	^ (max // fontWidth) + 1
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1192	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1193
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1194	widthOfContents
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1195	"return the width of the contents in pixels
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1196	- used for scrollbar interface"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1197
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1198	list isNil ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1199
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1200	(widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1201	widthOfWidestLine := self widthOfContents:1 and:(self size).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1202	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1203	^ widthOfWidestLine + (leftMargin * 2)
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1204
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1205	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1206
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1207	widthOfContents:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1208	"return the length (in pixels) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1209	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1210	\|max "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1211	thisLen "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1212	first "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1213	last "{ Class: SmallInteger }" \|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1214
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1215	listOfNodes size == 0 ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1216
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1217	last := listOfNodes size.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1218	first := firstLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1219
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1220	(first > last) ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1221
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1222	(lastLine < last) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1223	last := lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1224	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1225	max := 0.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1226
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1227	listOfNodes from:first to:last do:[:anItem\|\|name\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1228	thisLen := self xOfStringNode:anItem.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1229
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1230	(name := anItem name) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1231	thisLen := thisLen + (name widthOn:self).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1232	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1233	(thisLen > max) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1234	max := thisLen.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1235	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1236	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1237	^ max + leftOffset.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1238	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1239
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1240	withoutRedrawAt:anIndex put:aString
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1241	"change a line without redisplay"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1242
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1243	\|width\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1244
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1245	width := widthOfWidestLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1246	widthOfWidestLine := nil.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1247
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1248	super withoutRedrawAt:anIndex put:aString.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1249
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1250	(widthOfWidestLine := width) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1251	width := self widthOfContents:anIndex and:anIndex.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1252
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1253	width > widthOfWidestLine ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1254	widthOfWidestLine := width
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1255	] ifFalse:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1256	widthOfWidestLine := nil "/ means: unknown
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1257	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1258	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1259
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1260
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1261	! !
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1262
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1263	!SelectionInTreeView methodsFor:'queries'!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1264
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1265	figureFor:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1266	"access figure for a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1267	"
763 dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1268	\|icon\|
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1269	(icon := aNode icon) notNil
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1270	ifTrue:
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1271	[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1272	icon device ~= device
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1273	ifTrue:
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1274	[
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1275	icon := icon onDevice: device.
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1276	aNode icon: icon.
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1277	icon clearMaskedPixels
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1278	].
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1279	^icon
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1280	].
dd29c58e8ea6 supports dynamic read behavior for contents, label, children, and icon of tree items tz parents: 760 diff changeset	1281
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1282	aNode hasChildren ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1283	aNode isExpandable ifTrue:[ ^ imageClosed ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1284	ifFalse:[ ^ imageOpened ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1285	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1286	^ imageItem
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1287	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1288
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1289	indexOfNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1290	"returns index of a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1291	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1292	^ listOfNodes findFirst:[:n\| n == aNode ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1293	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1294
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1295	xOfFigureLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1296	"origin x where to draw the icon
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1297	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1298	\|l\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1299
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1300	showRoot ifTrue:[l := aLevel]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1301	ifFalse:[l := aLevel - 1].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1302
659 16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1303	showDirectoryIndicator ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1304	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1305	] ifTrue:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1306	showDirectoryIndicatorForRoot ifFalse:[
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1307	l := l - 1
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1308	]
16bb1d26f658 add showDirectoryIndicatorForRoot ca parents: 639 diff changeset	1309	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1310	^ (l * (imageInset + imageWidth)) + imageInset - leftOffset + leftMargin
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1311
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1312	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1313
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1314	xOfFigureNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1315	"origin x where to draw the icon
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1316	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1317	^ self xOfFigureLevel:(aNode level)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1318	!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1319
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1320	xOfStringLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1321	"origin x where to draw the text( label )
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1322	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1323	^ (self xOfFigureLevel:aLevel) + imageWidth + textInset
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1324
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1325	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1326
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1327	xOfStringNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1328	"origin x where to draw the text( label )
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1329	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1330	^ self xOfStringLevel:(aNode level)
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1331
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1332	! !
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1333
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1334	!SelectionInTreeView methodsFor:'selection'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1335
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1336	selectFromListOfNames:aListOfNames
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1337	"set selection from a list of names
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1338	"
497 9b5503aa6f57 * empty log message * Claus Gittinger <cg@exept.de> parents: 494 diff changeset	1339	\|node rdwNd\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1340
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1341	aListOfNames size < 1 ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1342	^ self selection:nil
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1343	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1344
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1345	node := model root.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1346
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1347	aListOfNames do:[:el\|\|next\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1348	next := node detectChild:[:e\|e name = el].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1349
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1350	next notNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1351	node hidden ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1352	rdwNd isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1353	rdwNd := node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1354	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1355	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1356	node expand
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1357	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1358	node := next
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1359	]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1360	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1361
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1362	rdwNd notNil ifTrue:[
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1363	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1364	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1365	model addDependent:self.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1366	list := self listFromModel.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1367	self redrawFromLine:(self indexOfNode:rdwNd).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1368	self contentsChanged.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1369	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1370	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1371
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1372	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1373
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1374	selectNode:aNode
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1375	"change selection to a node
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1376	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1377	self selection:(self indexOfNode:aNode)
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1378
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1379
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1380	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1381
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1382	selectedIndex
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1383	"get single selected index or 0
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1384	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1385	selection size == 1 ifTrue:[^ selection first].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1386	selection isNumber ifTrue:[^ selection].
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1387	^ 0
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1388	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1389
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1390	selectedNode
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1391	"get the single selected node or nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1392	"
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1393	\|idx\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1394
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1395	(idx := self selectedIndex) ~~ 0 ifTrue:[
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1396	^ listOfNodes at:idx
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1397	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1398	^ nil
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1399	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1400
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1401	selectionChangedFrom:oldSelection
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1402	"update selectionHolder if not nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1403	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1404
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1405	"/ first change my selectionHolders value ...
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1406	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1407	self selectionToModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1408	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1409
623 4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1410	"/ ... then make notifications.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1411	super selectionChangedFrom:oldSelection.
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1412
4de870640523 first change selectionHolders value, Claus Gittinger <cg@exept.de> parents: 589 diff changeset	1413
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1414	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1415
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1416	!SelectionInTreeView methodsFor:'selection-actions'!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1417
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1418	selectedNodeAdd:something
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1419	"add a node or collection of nodes after selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1420	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1421	\|node\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1422
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1423	something notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1424	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1425	node parent notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1426	node isCollapsable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1427	model add:something beforeIndex:1 below:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1428	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1429	model add:something after:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1430	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1431	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1432	model add:something beforeIndex:1 below:(self root)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1433	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1434	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1435	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1436
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1437	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1438
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1439	selectedNodeBecomeChildOfNext
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1440	"become node a child of followd node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1441	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1442	\|idx node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1443
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1444	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1445	idx := cprt indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1446
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1447	idx == cprt children size ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1448	nprt := cprt childAt:(idx + 1).
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1449
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1450	nprt notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1451	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1452	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1453	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1454	model collapse:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1455	model add:node beforeIndex:1 below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1456	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1457	model expand:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1458
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1459	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1460	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1461	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1462	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1463	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1464
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1465	selectedNodeBecomeSisterOfParent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1466	"become node a sister of its current parent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1467	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1468	\|node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1469
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1470	( (node := self selectedNode) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1471	or:[(cprt := node parent) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1472	or:[(nprt := cprt parent) isNil]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1473	) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1474	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1475	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1476	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1477	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1478
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1479	model add:node afterIndex:(nprt indexOfChild:cprt) below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1480	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1481	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1482
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1483	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1484
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1485	selectedNodeChangeSequenceOrder:anOffset
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1486	"move child 'anOffset' forward or backward in list of children
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1487	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1488	\|idx node size parent\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1489
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1490	( (node := self selectedNode) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1491	and:[(parent := node parent) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1492	and:[(size := parent children size) > 1]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1493	) ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1494	idx := parent indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1495
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1496	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1497	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1498	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1499	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1500
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1501	(idx := idx + anOffset) < 1 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1502	idx := size
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1503	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1504	idx > size ifTrue:[idx := 1]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1505	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1506	model add:node beforeIndex:idx below:parent.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1507	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1508	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1509	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1510
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1511	selectedNodeExpand:doExpand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1512	"collapse or expand selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1513	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1514	\|node index\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1515
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1516	(index := self selectedIndex) ~~ 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1517	node := listOfNodes at:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1518
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1519	node hasChildren ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1520	node isExpandable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1521	doExpand ifFalse:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1522	node expand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1523	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1524	doExpand ifTrue:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1525	node collapse
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1526	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1527
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1528	node numberOfChildren == 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1529	"/ no children; redraw selected line (image might change)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1530	self redrawLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1531	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1532	"/ with children; update list and redraw to end.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1533	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1534	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1535	model addDependent:self.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1536	list := self listFromModel.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1537	self redrawFromLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1538	self contentsChanged.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1539	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1540	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1541	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1542	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1543
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1544	selectedNodesRemove
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1545	"remove selected nodes
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1546	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1547	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1548	self selection:nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1549
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1550	! !
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1551
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1552	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1553
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1554	version
769 15fafccfed86 optimize redraw routine ca parents: 764 diff changeset	1555	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.40 1998-02-19 09:35:34 ca Exp $'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1556	! !

author	ca
	Thu, 19 Feb 1998 10:35:34 +0100
changeset 769	15fafccfed86
parent 764	7063f2604814
child 770	f197d1f5a246
permissions	-rw-r--r--