hg/stx-libwidg2: SelectionInTreeView.st@5a0ed2305998 (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
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	16	showLines listOfNodes imageInset textInset labelOffsetY
2a1014d6697c checkin from browser ca parents: 552 diff changeset	17	openIndicator computeResources closeIndicator showRoot
2a1014d6697c checkin from browser ca parents: 552 diff changeset	18	extentOpenIndicator extentCloseIndicator showDirectoryIndicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	19	indicatorExtentDiv2 imageOpened imageClosed imageItem'
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	20	classVariableNames:'ImageOpened ImageClosed ImageItem OpenIndicator CloseIndicator'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	21	poolDictionaries:''
6d40e2c4ed53 intitial checkin ca parents: diff changeset	22	category:'Views-Text'
6d40e2c4ed53 intitial checkin ca parents: diff changeset	23	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	24
6d40e2c4ed53 intitial checkin ca parents: diff changeset	25	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	26
6d40e2c4ed53 intitial checkin ca parents: diff changeset	27	copyright
6d40e2c4ed53 intitial checkin ca parents: diff changeset	28	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	29	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6d40e2c4ed53 intitial checkin ca parents: diff changeset	30	All Rights Reserved
6d40e2c4ed53 intitial checkin ca parents: diff changeset	31
6d40e2c4ed53 intitial checkin ca parents: diff changeset	32	This software is furnished under a license and may be used
6d40e2c4ed53 intitial checkin ca parents: diff changeset	33	only in accordance with the terms of that license and with the
6d40e2c4ed53 intitial checkin ca parents: diff changeset	34	inclusion of the above copyright notice. This software may not
6d40e2c4ed53 intitial checkin ca parents: diff changeset	35	be provided or otherwise made available to, or used by, any
6d40e2c4ed53 intitial checkin ca parents: diff changeset	36	other person. No title to or ownership of the software is
6d40e2c4ed53 intitial checkin ca parents: diff changeset	37	hereby transferred.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	38	"
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	documentation
6d40e2c4ed53 intitial checkin ca parents: diff changeset	43	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	44	somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like)
6d40e2c4ed53 intitial checkin ca parents: diff changeset	45	lists and adds the functions to show/hide subtrees.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	46	Requires SelectionInTree as model and TreeItem (or compatible) list entries.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	47
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	48	This class obsoletes SelectionInTreeView, which is no longer
446 b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	49	maintained but kept for backward compatibility.
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	50
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	51
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	52	[see also:]
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	53	SelectionInTree
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	54	TreeItem
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	55	SelectionInTreeView
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	56	SelectionInListView
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	57	FileSelectionTree
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	58
6d40e2c4ed53 intitial checkin ca parents: diff changeset	59	[author:]
6d40e2c4ed53 intitial checkin ca parents: diff changeset	60	Claus Atzkern
6d40e2c4ed53 intitial checkin ca parents: diff changeset	61	"
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	examples
6d40e2c4ed53 intitial checkin ca parents: diff changeset	66	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	67	shows the tree of smalltalk classes:
6d40e2c4ed53 intitial checkin ca parents: diff changeset	68	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	69	\|top sel\|
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	70
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	71	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	72	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	73	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	74	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	75	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	76	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	77	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	78
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	79
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	80
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	81	same, including nil-subclasses (i.e. really all classes):
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	82	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	83	\|top sel\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	84
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	85	top := StandardSystemView new; extent:300@300.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	86	sel := SelectionInTreeView new.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	87	sel root:(TreeItem newAsTreeFromSmalltalkClass:nil).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	88	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	89
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	90	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	91	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	92	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	93
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	94
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	95
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	96	shows the tree of smalltalk classes; show directory indication and no
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	97	lines.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	98	[exBegin]
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	99	\|top sel\|
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	100
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	101	top := StandardSystemView new; extent:300@300.
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	102	sel := SelectionInTreeView new.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	103	sel showLines:false.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	104	sel showDirectoryIndicator:true.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	105	sel root:(TreeItem newAsTreeFromSmalltalkClass:Object).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	106	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	107	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	108	top open.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	109	[exEnd]
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	110	"
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	111
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	112
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	113	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	114
6d40e2c4ed53 intitial checkin ca parents: diff changeset	115	!SelectionInTreeView class methodsFor:'constants'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	116
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	117	minImageInset
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	118	"returns minimum inset from directory indication to image
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	119	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	120	^ 6
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	121
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	!SelectionInTreeView class methodsFor:'default images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	126
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	127	closeIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	128	CloseIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	129	CloseIndicator := Image fromFile:('xpmBitmaps/plus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	130	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	131	^ CloseIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	132	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	133	CloseIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	134	"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	135	!
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	136
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	137	imageClosed
6d40e2c4ed53 intitial checkin ca parents: diff changeset	138	ImageClosed isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	139	ImageClosed := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	140	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	141	^ ImageClosed
6d40e2c4ed53 intitial checkin ca parents: diff changeset	142	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	143	ImageClosed := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	144	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	145
6d40e2c4ed53 intitial checkin ca parents: diff changeset	146	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	147
6d40e2c4ed53 intitial checkin ca parents: diff changeset	148	imageItem
6d40e2c4ed53 intitial checkin ca parents: diff changeset	149	ImageItem isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	150	ImageItem := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain.xpm')
6d40e2c4ed53 intitial checkin ca parents: diff changeset	151
6d40e2c4ed53 intitial checkin ca parents: diff changeset	152	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	153	^ ImageItem
6d40e2c4ed53 intitial checkin ca parents: diff changeset	154	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	155	ImageItem := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	156	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	157
6d40e2c4ed53 intitial checkin ca parents: diff changeset	158	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	159
6d40e2c4ed53 intitial checkin ca parents: diff changeset	160	imageOpened
6d40e2c4ed53 intitial checkin ca parents: diff changeset	161	ImageOpened isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	162	ImageOpened := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_open.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	163
6d40e2c4ed53 intitial checkin ca parents: diff changeset	164	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	165	^ ImageOpened
6d40e2c4ed53 intitial checkin ca parents: diff changeset	166	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	167	ImageOpened := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	168	"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	169	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	170
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	171	openIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	172	OpenIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	173	OpenIndicator := Image fromFile:('xpmBitmaps/minus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	174	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	175	^ OpenIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	176	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	177	OpenIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	178	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	179
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	180	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	181
6d40e2c4ed53 intitial checkin ca parents: diff changeset	182	!SelectionInTreeView methodsFor:'accessing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	183
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	184	nodeAtIndex:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	185	"returns node at an index or nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	186	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	187	(anIndex notNil and:[anIndex ~~ 0 and:[anIndex <= listOfNodes size]]) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	188	^ listOfNodes at:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	189	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	190	^ nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	191	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	192
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	193	root
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	194	"gets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	195	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	196	^ self nodeAtIndex:1
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	197	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	198
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	199	root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	200	"sets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	201	"
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	202	aRoot notNil ifTrue:[aRoot expand].
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	203	model root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	204	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	205
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	206	textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	207	"get the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	208	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	209	^ textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	210	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	211
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	212	textInset:anInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	213	"set the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	214	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	215	anInset ~~ textInset ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	216	anInset >= 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	217	textInset := anInset.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	218	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	219	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	220	self error
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	221	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	222	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	223	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	224
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	225	!SelectionInTreeView methodsFor:'accessing-behavior'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	226
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	227	showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	228	"returns true if directories has an open/closed indicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	229	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	230	^ showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	231	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	232
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	233	showDirectoryIndicator:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	234	"set or clear open/closed indicator for directories
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	235	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	236	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	237	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	238	aState ~~ showDirectoryIndicator ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	239	showDirectoryIndicator := aState.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	240	self recomputeDirectoryIndicator.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	241	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	242	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	243	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	244
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	245	showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	246	"returns true if lines are shown
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	247	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	248	^ showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	249	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	250
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	251	showLines:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	252	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	253	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	254	aState ~~ showLines ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	255	showLines := aState.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	256	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	257	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	258	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	259
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	260	showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	261	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	262	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	263	^ showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	264	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	265
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	266	showRoot:aState
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	267	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	268	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	269	showRoot ~~ aState ifTrue:[
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	270	model showRoot:(showRoot := aState)
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	271	].
517 14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	272	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	273
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	274	validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	275	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	276	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	277	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	278	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	279	^ validateDoubleClickBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	280
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	281
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	282	!
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	283
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	284	validateDoubleClickBlock:aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	285	"set the conditionBlock; this block is evaluated before a doubleClick action
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	286	on a node will be performed. In case of returning false, the doubleClick will
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	287	not be handled.
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	288	"
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	289	validateDoubleClickBlock := aOneArgBlock
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	290
14a46095db49 add validateDoubleClickBlock ca parents: 514 diff changeset	291
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	292	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	293
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	294	!SelectionInTreeView methodsFor:'accessing-channels'!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	295
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	296	rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	297	"get the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	298	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	299	^ rootHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	300	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	301
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	302	rootHolder:aValueHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	303	"set the holder which keeps the hierarchical list entry or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	304	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	305	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	306	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	307	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	308	(rootHolder := aValueHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	309	rootHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	310	self rootFromModel.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	311	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	312	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	313
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	314	selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	315	"get the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	316	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	317	^ selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	318
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	319	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	320
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	321	selectionHolder:aHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	322	"set the holder which keeps a list of selected items or nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	323	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	324	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	325	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	326	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	327
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	328	(selectionHolder := aHolder) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	329	selectionHolder addDependent:self.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	330	self selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	331	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	332
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	333	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	334
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	335	!SelectionInTreeView methodsFor:'accessing-images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	336
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	337	imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	338	"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	339
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	340	^ imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	341
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	342	"Created: 3.7.1997 / 12:34:31 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	343	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	344
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	345	imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	346	"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	347
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	348	^ imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	349
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	350	"Created: 3.7.1997 / 12:34:34 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	351	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	352
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	353	imageOnDevice:anImage
2a1014d6697c checkin from browser ca parents: 552 diff changeset	354	"associate iamge to device and clear pixel mask (in case of realized);
2a1014d6697c checkin from browser ca parents: 552 diff changeset	355	returns the new image.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	356	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	357	\|img\|
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	358
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	359	img := anImage onDevice:device.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	360
2a1014d6697c checkin from browser ca parents: 552 diff changeset	361	realized ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	362	img := img clearMaskedPixels
2a1014d6697c checkin from browser ca parents: 552 diff changeset	363	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	364	^ img
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	365	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	366
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	367	imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	368	"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	369
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	370	^ imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	371
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	372	"Created: 3.7.1997 / 12:34:28 / cg"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	373	! !
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	374
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	375	!SelectionInTreeView methodsFor:'change & update'!
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	update:something with:aParameter from:aModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	378	"one of my models changed its value
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	aModel == rootHolder ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	381	^ self rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	382	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	383	aModel == selectionHolder ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	384	^ self selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	385	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	386
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	387	aModel == aModel ifTrue:[
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	388	something == #list ifTrue:[
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	389	^ self getListFromModel
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	390	]
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	391	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	392	^ super update:something with:aParameter from:aModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	393
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	394
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	395
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	396	! !
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	397
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	398	!SelectionInTreeView methodsFor:'drawing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	399
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	400	drawLine:line atX:atX inVisible:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	401	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	402
6d40e2c4ed53 intitial checkin ca parents: diff changeset	403	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	404
6d40e2c4ed53 intitial checkin ca parents: diff changeset	405	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	406	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	407
6d40e2c4ed53 intitial checkin ca parents: diff changeset	408	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	409
6d40e2c4ed53 intitial checkin ca parents: diff changeset	410	drawLine:line inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	411	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	412
6d40e2c4ed53 intitial checkin ca parents: diff changeset	413	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	414
6d40e2c4ed53 intitial checkin ca parents: diff changeset	415	drawVisibleLine:visLineNr col:col with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	416	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	417
6d40e2c4ed53 intitial checkin ca parents: diff changeset	418	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	419
6d40e2c4ed53 intitial checkin ca parents: diff changeset	420	drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	421	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	422
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	423	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	424
6d40e2c4ed53 intitial checkin ca parents: diff changeset	425	drawVisibleLine:visLineNr from:startCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	426	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	427
6d40e2c4ed53 intitial checkin ca parents: diff changeset	428	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	429
6d40e2c4ed53 intitial checkin ca parents: diff changeset	430	!SelectionInTreeView methodsFor:'drawing basics'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	431
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	432	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	433
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	434	\|size end index yBot yTop yCtr level figWidthDiv2
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	435	x xFig xStr node lv idx image xCross\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	436
552 1b84811f7c45 * empty log message * Claus Gittinger <cg@exept.de> parents: 551 diff changeset	437	level := nil. "/ to force evaluation of #ifFalse in loop
1b84811f7c45 * empty log message * Claus Gittinger <cg@exept.de> parents: 551 diff changeset	438
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	439	index := self visibleLineToAbsoluteLine:startVisLineNr.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	440	size := listOfNodes size.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	441	yTop := self yOfVisibleLine:startVisLineNr.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	442	yTop := yTop - 1.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	443	end := endVisLineNr - startVisLineNr + 1.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	444
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	445	"/ clear rectangle line and set background color
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	446	self paint:bg.
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	447	self fillRectangleX:0 y:yTop width:width height:(end * fontHeight).
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	448
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	449	index isNil ifTrue:[^ self].
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	450	figWidthDiv2 := imageWidth // 2.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	451	yCtr := yTop - (fontHeight // 2).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	452
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	453	self paint:fg on:bg.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	454	(end := index + end) > size ifTrue:[end := size + 1].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	455
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	456	[index < end] whileTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	457	node := listOfNodes at:index.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	458	yBot := yTop + fontHeight.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	459	yCtr := yCtr + fontHeight.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	460
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	461	(lv := node level) == level ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	462	level := lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	463	xFig := self xOfFigureLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	464	xStr := self xOfStringLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	465	xCross := (self xOfFigureLevel:(lv-1)) + figWidthDiv2.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	466	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	467
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	468	showLines ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	469	(node isCollapsable and:[node numberOfChildren ~~ 0]) ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	470	x := xFig + figWidthDiv2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	471	self displayLineFromX:x y:yCtr toX:x y:yBot
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	472	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	473	(level ~~ 1 and:[node parent children last == node]) ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	474	self displayLineFromX:xCross y:yTop - 1 toX:xCross y:yCtr . "/ vertical
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	475	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	476	self displayLineFromX:xCross y:yCtr toX:xFig y:yCtr . "/ horizontal
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	477
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	478	"/ draw vertical lines
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	479	idx := index.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	480
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	481	[(lv > 0 and:[(idx := idx + 1) <= size])] whileTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	482	(x := (listOfNodes at:idx) level) <= lv ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	483	lv := x - 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	484	x := (self xOfFigureLevel:lv) + figWidthDiv2.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	485	self displayLineFromX:x y:yTop - 1 toX:x y:yBot.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	486	]
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	487	]
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	488	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	489
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	490	"/ draw image
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	491	image := self figureFor:node.
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	492	image notNil ifTrue:[
529 d92232a9ce41 * empty log message * Claus Gittinger <cg@exept.de> parents: 528 diff changeset	493	self displayForm:image x:xFig y:(yCtr - (image height // 2)).
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	494	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	495
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	496	"/ draw text label
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	497	self drawLabelIndex:index atX:xStr y:yCtr .
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	498
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	499	"/ draw directory indicator
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	500	(showDirectoryIndicator and:[node showIndicator]) ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	501	node isCollapsable ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	502	image := openIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	503	x := extentOpenIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	504	] ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	505	image := closeIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	506	x := extentCloseIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	507	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	508	self displayForm:image x:(xCross - x x)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	509	y:(yCtr - x y)
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	510	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	511	"/ setup next line
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	512	index := index + 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	513	yTop := yBot.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	514	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	515
541 4e7032015683 checkin from browser Claus Gittinger <cg@exept.de> parents: 533 diff changeset	516	"Modified: 6.10.1997 / 13:31:51 / cg"
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	517	!
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	518
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	519	drawLabelIndex:anIndex atX:x y:yCenter
6d40e2c4ed53 intitial checkin ca parents: diff changeset	520	"draw text label at x and y centered
6d40e2c4ed53 intitial checkin ca parents: diff changeset	521	"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	522	\|lbl\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	523
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	524	(lbl := (listOfNodes at:anIndex) name) notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	525	self displayOpaqueString:lbl x:x y:(yCenter + labelOffsetY).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	526	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	527	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	528
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	529	redrawX:x y:y width:w height:h
2a1014d6697c checkin from browser ca parents: 552 diff changeset	530
2a1014d6697c checkin from browser ca parents: 552 diff changeset	531	self shown ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	532	super redrawX:x y:y width:w height:h.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	533	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	534	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	535
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	536	!SelectionInTreeView methodsFor:'enumerating'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	537
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	538	detectNode:aOneArgBlock
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	539	"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	540	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	541	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	542	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	543	^ listOfNodes detect:aOneArgBlock ifNone:nil
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	544	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	545
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	546	selectedNodesDo:aOneArgBlock
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	547	"evaluate the block on each node selected
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	548	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	549	self selectionDo:[:i\| aOneArgBlock value:(listOfNodes at:i) ]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	550	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	551
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	552	!SelectionInTreeView methodsFor:'event handling'!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	553
2a1014d6697c checkin from browser ca parents: 552 diff changeset	554	buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	555
2a1014d6697c checkin from browser ca parents: 552 diff changeset	556	(self indicatiorLineForButton:button atX:x y:y) == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	557	^ super buttonMultiPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	558	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	559	"/ discard doubleClick on indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	560	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	561
2a1014d6697c checkin from browser ca parents: 552 diff changeset	562	buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	563	"check for indicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	564	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	565	\|expand node lineNr selNode newSel size oldSelection\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	566
2a1014d6697c checkin from browser ca parents: 552 diff changeset	567	lineNr := self indicatiorLineForButton:button atX:x y:y.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	568
2a1014d6697c checkin from browser ca parents: 552 diff changeset	569	lineNr == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	570	^ super buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	571	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	572	node := listOfNodes at:lineNr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	573
2a1014d6697c checkin from browser ca parents: 552 diff changeset	574	( validateDoubleClickBlock isNil
2a1014d6697c checkin from browser ca parents: 552 diff changeset	575	or:[(validateDoubleClickBlock value:node) ~~ false]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	576	) ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	577	^ super buttonPress:button x:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	578	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	579
2a1014d6697c checkin from browser ca parents: 552 diff changeset	580	dragIsActive := false.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	581	clickPosition := nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	582	expand := node isExpandable.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	583
2a1014d6697c checkin from browser ca parents: 552 diff changeset	584	(size := self numberOfSelections) == 0 ifTrue:[ "/ nothing selected
2a1014d6697c checkin from browser ca parents: 552 diff changeset	585	^ self nodeAt:lineNr expand:expand.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	586	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	587	oldSelection := selection.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	588
2a1014d6697c checkin from browser ca parents: 552 diff changeset	589	size == 1 ifTrue:[ "/ single selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	590	selNode := self selectedNode.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	591
2a1014d6697c checkin from browser ca parents: 552 diff changeset	592	lineNr >= self selectedIndex ifTrue:[ "/ operation will not changed
2a1014d6697c checkin from browser ca parents: 552 diff changeset	593	^ self nodeAt:lineNr expand:expand. "/ current selected index
2a1014d6697c checkin from browser ca parents: 552 diff changeset	594	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	595	model setSelectionIndex:0. "/ selected index will change
2a1014d6697c checkin from browser ca parents: 552 diff changeset	596	self selectWithoutScroll:nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	597
2a1014d6697c checkin from browser ca parents: 552 diff changeset	598	self nodeAt:lineNr expand:expand.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	599	size := self indexOfNode:selNode.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	600
2a1014d6697c checkin from browser ca parents: 552 diff changeset	601	size == 0 ifTrue:[ "/ old selection no longer visible
2a1014d6697c checkin from browser ca parents: 552 diff changeset	602	^ self selection:lineNr "/ change selection; raise notify
2a1014d6697c checkin from browser ca parents: 552 diff changeset	603	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	604	self selectWithoutScroll:size. "/ can keep old selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	605	model setSelectionIndex:selection. "/ but has to change index
2a1014d6697c checkin from browser ca parents: 552 diff changeset	606	^ self selectionChangedFrom:oldSelection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	607	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	608	selNode := OrderedCollection new:size.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	609	newSel := OrderedCollection new:size.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	610
2a1014d6697c checkin from browser ca parents: 552 diff changeset	611	self selectionDo:[:i\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	612	selNode add:(listOfNodes at:i) "/ change selection to nodes
2a1014d6697c checkin from browser ca parents: 552 diff changeset	613	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	614	model setSelectionIndex:0. "/ redraw current selection unselected
2a1014d6697c checkin from browser ca parents: 552 diff changeset	615	self selectWithoutScroll:nil.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	616	self nodeAt:lineNr expand:expand. "/ perform expand/collapse operation
2a1014d6697c checkin from browser ca parents: 552 diff changeset	617
2a1014d6697c checkin from browser ca parents: 552 diff changeset	618	selNode do:[:n\|\|i\| "/ convert old selection to new selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	619	(i := self indexOfNode:n) ~~ 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	620	newSel add:i "/ can take over into new selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	621	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	622	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	623
2a1014d6697c checkin from browser ca parents: 552 diff changeset	624	newSel isEmpty ifTrue:[ "/ old selection no longer visible
2a1014d6697c checkin from browser ca parents: 552 diff changeset	625	^ self selection:lineNr "/ change selection; raise notify
2a1014d6697c checkin from browser ca parents: 552 diff changeset	626	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	627
2a1014d6697c checkin from browser ca parents: 552 diff changeset	628	newSel size == size ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	629	self selectWithoutScroll:newSel. "/ can keep old selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	630	model setSelectionIndex:selection. "/ but has to change indeces
2a1014d6697c checkin from browser ca parents: 552 diff changeset	631	self selectionChangedFrom:oldSelection.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	632	] ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	633	self selection:newSel "/ can keep part of old selection
2a1014d6697c checkin from browser ca parents: 552 diff changeset	634	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	635	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	636
2a1014d6697c checkin from browser ca parents: 552 diff changeset	637	doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	638	"handle a double click; collapse or expand selected entry
2a1014d6697c checkin from browser ca parents: 552 diff changeset	639	in case of having children
2a1014d6697c checkin from browser ca parents: 552 diff changeset	640	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	641	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	642
2a1014d6697c checkin from browser ca parents: 552 diff changeset	643	(node := self selectedNode) notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	644	( validateDoubleClickBlock isNil
2a1014d6697c checkin from browser ca parents: 552 diff changeset	645	or:[(validateDoubleClickBlock value:node) ~~ false]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	646	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	647	self selectedNodeExpand:(node isExpandable).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	648	super doubleClicked
2a1014d6697c checkin from browser ca parents: 552 diff changeset	649	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	650	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	651
2a1014d6697c checkin from browser ca parents: 552 diff changeset	652	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	653
2a1014d6697c checkin from browser ca parents: 552 diff changeset	654	indicatiorLineForButton:aButton atX:x y:y
2a1014d6697c checkin from browser ca parents: 552 diff changeset	655	"returns linenumber assigned to indicator at x/y or 0
2a1014d6697c checkin from browser ca parents: 552 diff changeset	656	"
2a1014d6697c checkin from browser ca parents: 552 diff changeset	657	\|sensor nr x0 node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	658
2a1014d6697c checkin from browser ca parents: 552 diff changeset	659	( enabled
2a1014d6697c checkin from browser ca parents: 552 diff changeset	660	and:[showDirectoryIndicator
2a1014d6697c checkin from browser ca parents: 552 diff changeset	661	and:[aButton == 1 or:[aButton == #select]]]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	662	) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	663	sensor := self sensor.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	664
2a1014d6697c checkin from browser ca parents: 552 diff changeset	665	(sensor ctrlDown or:[sensor shiftDown]) ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	666	nr := self visibleLineToListLine:(self visibleLineOfY:y).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	667
2a1014d6697c checkin from browser ca parents: 552 diff changeset	668	nr notNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	669	node := listOfNodes at:nr.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	670	x0 := self xOfFigureLevel:(node level - 1).
2a1014d6697c checkin from browser ca parents: 552 diff changeset	671
2a1014d6697c checkin from browser ca parents: 552 diff changeset	672	(x > x0 and:[(x0 + imageWidth) > x and:[node numberOfChildren ~~ 0]]) ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	673	^ nr
2a1014d6697c checkin from browser ca parents: 552 diff changeset	674	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	675	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	676	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	677	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	678	^ 0
2a1014d6697c checkin from browser ca parents: 552 diff changeset	679	! !
2a1014d6697c checkin from browser ca parents: 552 diff changeset	680
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	681	!SelectionInTreeView methodsFor:'initialization'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	682
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	683	destroy
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	684	"remove dependencies
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	685	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	686	rootHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	687	rootHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	688	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	689	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	690	selectionHolder removeDependent:self
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	691	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	692	super destroy.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	693
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	694
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	695	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	696
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	697	fetchDeviceResources
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	698	"initialize heavily used device resources - to avoid rendering
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	699	images again and again later"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	700
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	701	super fetchDeviceResources.
478 d7286b946764 add: ca parents: 471 diff changeset	702	self refetchDeviceResources
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	703	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	704
478 d7286b946764 add: ca parents: 471 diff changeset	705	fetchImageResources
d7286b946764 add: ca parents: 471 diff changeset	706	"initialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	707	images again and again later; returns maximum extent of the images used.
d7286b946764 add: ca parents: 471 diff changeset	708	Could be redefined by subclass
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	709	"
533 d7867efb6f60 #fetchImageResources returned the max extent only on the first invocation Stefan Vogel <sv@exept.de> parents: 532 diff changeset	710	\|extent\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	711
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	712	imageOpened isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	713	imageOpened := (self class imageOpened) onDevice:device
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	714	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	715
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	716	imageClosed isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	717	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	718	].
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	719	extent := (imageOpened extent) max:(imageClosed extent).
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	720
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	721	imageItem isNil ifTrue:[
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	722	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	723	].
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	724	^ extent max:(imageItem extent)
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	725	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	726
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	727	getFontParameters
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	728	"save old computed height derived from images
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	729	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	730	\|lineHeight\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	731
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	732	lineHeight := fontHeight ? 0.
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	733	super getFontParameters.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	734	labelOffsetY := fontAscent - (fontHeight - lineSpacing // 2).
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	735
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	736	lineHeight > fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	737	fontHeight := lineHeight
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	738	].
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	739	!
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	740
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	741	initialize
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	742	"setup instance attributes
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	743	"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	744	super initialize.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	745	self bitGravity:#NorthWest.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	746	showLines := true.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	747	showRoot := true.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	748	computeResources := true.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	749	showDirectoryIndicator := false.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	750	textInset := 2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	751	imageInset := 0. "/ set during indication enabled
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	752	imageWidth := 8. "/ default: will change during startup
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	753	self model:nil. "/ creates a default model.
478 d7286b946764 add: ca parents: 471 diff changeset	754	!
d7286b946764 add: ca parents: 471 diff changeset	755
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	756	realize
2a1014d6697c checkin from browser ca parents: 552 diff changeset	757	super realize.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	758	self refetchDeviceResources.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	759
2a1014d6697c checkin from browser ca parents: 552 diff changeset	760	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	761
478 d7286b946764 add: ca parents: 471 diff changeset	762	refetchDeviceResources
d7286b946764 add: ca parents: 471 diff changeset	763	"reinitialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	764	images again and again later
d7286b946764 add: ca parents: 471 diff changeset	765	"
551 b9d3ddbc3365 * empty log message * Claus Gittinger <cg@exept.de> parents: 546 diff changeset	766	\|extent\|
478 d7286b946764 add: ca parents: 471 diff changeset	767
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	768	(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	769	computeResources := false.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	770	extent := self fetchImageResources.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	771
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	772	extent y >= fontHeight ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	773	fontHeight := 1 + extent y.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	774	].
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	775	imageWidth := extent x.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	776	self recomputeDirectoryIndicator.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	777	self computeNumberOfLinesShown.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	778	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	779	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	780
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	781	!SelectionInTreeView methodsFor:'model'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	782
6d40e2c4ed53 intitial checkin ca parents: diff changeset	783	getListFromModel
6d40e2c4ed53 intitial checkin ca parents: diff changeset	784	"if I have a model, get my list from it using the listMessage.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	785	If listMessage is nil, try aspectMessage for backward compatibilty.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	786	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	787	super list:(self listFromModel) keepSelection:true
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	788	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	789
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	790	listFromModel
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	791	"get list from model and return the new list.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	792	If listMessage is nil, try aspectMessage for backward compatibilty.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	793	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	794	\|msg\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	795
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	796	widthOfWidestLine := nil.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	797
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	798	(msg := listMsg ? aspectMsg) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	799	listOfNodes := model perform:msg.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	800	listOfNodes size ~~ 0 ifTrue:[
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	801	self refetchDeviceResources.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	802	^ listOfNodes collect:[:n\|n name]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	803	]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	804	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	805	listOfNodes := #().
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	806	^ #()
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	807	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	808
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	809	model:aModel
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	810	"check whether model is nil; than a default model is created
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	811	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	812	\|model\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	813
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	814	model := aModel ? (SelectionInTree new).
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	815	model showRoot:showRoot.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	816	super model:model.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	817	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	818
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	819	rootFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	820	"update hierarchical list from root model; 'rootHolder'
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	821	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	822	\|root\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	823
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	824	root := rootHolder root.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	825
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	826	self root == root ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	827	self selection:nil.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	828	self root:root.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	829	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	830	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	831
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	832	selectionFromModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	833	"set the selection derived from the selectionHolder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	834	"
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	835	\|coll value sz\|
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	836
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	837	(value := selectionHolder value) isNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	838	^ self deselect
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	839	].
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	840
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	841	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	842	self selectNode:value
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	843	] ifTrue:[
545 d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	844	(sz := value size) ~~ 0 ifTrue:[
d01d14358b07 * empty log message * Claus Gittinger <cg@exept.de> parents: 541 diff changeset	845	coll := OrderedCollection new:sz.
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	846
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	847	value do:[:aNode\|\|i\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	848	(i := self indexOfNode:aNode) notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	849	coll add:i
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	850	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	851	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	852	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	853	coll size == 0 ifTrue:[self deselect]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	854	ifFalse:[self selection:coll]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	855	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	856	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	857
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	858	selectionToModel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	859	"write selection to selection holder
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	860	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	861	\|newSel oldSel\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	862
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	863	oldSel := selectionHolder value.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	864
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	865	multipleSelectOk ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	866	(newSel := self selectedNode) ~~ oldSel ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	867	selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	868	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	869	] ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	870	selection size == 0 ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	871	oldSel notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	872	selectionHolder value:nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	873	]
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	874	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	875	newSel := selection collect:[:i\| listOfNodes at:i].
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	newSel size ~~ oldSel size ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	878	selectionHolder value:newSel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	879	] ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	880	newSel do:[:aNode\|
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	881	(oldSel includes:aNode) ifFalse:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	882	^ selectionHolder value:newSel
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	883	]
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	]
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	888	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	889
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	890	!SelectionInTreeView methodsFor:'private'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	891
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	892	list:aList keepSelection:keepSelection
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	893	"setup new list; keep selection dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	894	keepSelection
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	895	"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	896	\|list\|
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	897
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	898	list := aList.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	899
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	900	list size == 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	901	listOfNodes := #()
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	902	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	903	(list first respondsTo:#hasChildren) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	904	listOfNodes := aList.
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	905	self refetchDeviceResources.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	906	list := listOfNodes collect:[:aNode\| aNode name ].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	907	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	908	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	909	super list:list keepSelection:keepSelection
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	910	!
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	911
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	912	nodeAt:anIndex expand:doExpand
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	913	"expand or collapse the node at an index, anIndex dependent on the boolean state
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	914	of doExpand
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	915	"
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	916	\|node\|
2a1014d6697c checkin from browser ca parents: 552 diff changeset	917
2a1014d6697c checkin from browser ca parents: 552 diff changeset	918	node := listOfNodes at:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	919
2a1014d6697c checkin from browser ca parents: 552 diff changeset	920	node hasChildren ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	921	node isExpandable ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	922	doExpand ifFalse:[^ self].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	923	node expand
2a1014d6697c checkin from browser ca parents: 552 diff changeset	924	] ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	925	doExpand ifTrue:[^ self].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	926	node collapse
2a1014d6697c checkin from browser ca parents: 552 diff changeset	927	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	928
2a1014d6697c checkin from browser ca parents: 552 diff changeset	929	node numberOfChildren == 0 ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	930	"/ no children; redraw selected line (image might change)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	931	self redrawLine:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	932	] ifFalse:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	933	"/ with children; update list and redraw to end.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	934	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	935	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	936	model addDependent:self.
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	937	list := self listFromModel.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	938	self redrawFromLine:anIndex.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	939	self contentsChanged.
2a1014d6697c checkin from browser ca parents: 552 diff changeset	940	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	941	]
2a1014d6697c checkin from browser ca parents: 552 diff changeset	942
2a1014d6697c checkin from browser ca parents: 552 diff changeset	943	!
2a1014d6697c checkin from browser ca parents: 552 diff changeset	944
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	945	recomputeDirectoryIndicator
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	946	"setup attributes used by directory indicator
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	947	"
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	948	\|x1 x2 y\|
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	949
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	950	imageInset := 0.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	951
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	952	(showDirectoryIndicator and:[computeResources not]) ifFalse:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	953	^ self
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	954	].
569 2a1014d6697c checkin from browser ca parents: 552 diff changeset	955	openIndicator isNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	956	openIndicator := self imageOnDevice:(self class openIndicator)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	957	].
2a1014d6697c checkin from browser ca parents: 552 diff changeset	958	closeIndicator isNil ifTrue:[
2a1014d6697c checkin from browser ca parents: 552 diff changeset	959	closeIndicator := self imageOnDevice:(self class closeIndicator)
2a1014d6697c checkin from browser ca parents: 552 diff changeset	960	].
546 8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	961
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	962	x1 := (openIndicator widthOn:self) // 2.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	963	y := openIndicator heightOn:self.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	964	extentOpenIndicator := Point x:x1 y:(y // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	965	x2 := (closeIndicator widthOn:self) // 2.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	966	y := closeIndicator heightOn:self.
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	967	extentCloseIndicator := Point x:x2 y:(y // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	968
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	969	x2 > x1 ifTrue:[x1 := x2].
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	970
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	971	(x1 := x1 + self class minImageInset) > (imageWidth // 2) ifTrue:[
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	972	imageInset := x1 - (imageWidth // 2).
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	973	].
8d274d70c2c3 fetch resources only if list of nodes not nil otherwise ca parents: 545 diff changeset	974
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	975	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	976
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	977	!SelectionInTreeView methodsFor:'private queries'!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	978
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	979	lengthOfLongestLineBetween:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	980	"return the length (in characters) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	981	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	982	\|max\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	983
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	984	max := self widthOfContents:firstLine and:lastLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	985	^ (max // fontWidth) + 1
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	986	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	987
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	988	widthOfContents
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	989	"return the width of the contents in pixels
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	990	- used for scrollbar interface"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	991
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	992	list isNil ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	993
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	994	(widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	995	widthOfWidestLine := self widthOfContents:1 and:(self size).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	996	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	997	^ widthOfWidestLine + (leftMargin * 2)
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	998
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	999	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1000
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1001	widthOfContents:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1002	"return the length (in pixels) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1003	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1004	\|max "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1005	thisLen "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1006	first "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1007	last "{ Class: SmallInteger }" \|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1008
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1009	listOfNodes size == 0 ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1010
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1011	last := listOfNodes size.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1012	first := firstLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1013
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1014	(first > last) ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1015
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1016	(lastLine < last) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1017	last := lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1018	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1019	max := 0.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1020
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1021	listOfNodes from:first to:last do:[:anItem\|\|name\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1022	thisLen := self xOfStringNode:anItem.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1023
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1024	(name := anItem name) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1025	thisLen := thisLen + (name widthOn:self).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1026	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1027	(thisLen > max) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1028	max := thisLen.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1029	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1030	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1031	^ max + leftOffset.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1032	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1033
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1034	withoutRedrawAt:anIndex put:aString
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1035	"change a line without redisplay"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1036
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1037	\|width\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1038
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1039	width := widthOfWidestLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1040	widthOfWidestLine := nil.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1041
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1042	super withoutRedrawAt:anIndex put:aString.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1043
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1044	(widthOfWidestLine := width) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1045	width := self widthOfContents:anIndex and:anIndex.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1046
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1047	width > widthOfWidestLine ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1048	widthOfWidestLine := width
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1049	] ifFalse:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1050	widthOfWidestLine := nil "/ means: unknown
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1051	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1052	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1053
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1054
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1055	! !
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1056
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1057	!SelectionInTreeView methodsFor:'queries'!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1058
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1059	figureFor:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1060	"access figure for a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1061	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1062	aNode hasChildren ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1063	aNode isExpandable ifTrue:[ ^ imageClosed ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1064	ifFalse:[ ^ imageOpened ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1065	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1066	^ imageItem
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1067	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1068
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1069	indexOfNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1070	"returns index of a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1071	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1072	^ listOfNodes findFirst:[:n\| n == aNode ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1073	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1074
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1075	xOfFigureLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1076	"origin x where to draw the icon
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1077	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1078	\|l\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1079
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1080	showRoot ifTrue:[l := aLevel]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1081	ifFalse:[l := aLevel - 1].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1082
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1083	showDirectoryIndicator ifFalse:[l := l - 1].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1084	^ (l * (imageInset + imageWidth)) + imageInset - leftOffset + leftMargin
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1085
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1086	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1087
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1088	xOfFigureNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1089	"origin x where to draw the icon
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1090	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1091	^ self xOfFigureLevel:(aNode level)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1092	!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	1093
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1094	xOfStringLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1095	"origin x where to draw the text( label )
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1096	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1097	^ (self xOfFigureLevel:aLevel) + imageWidth + textInset
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1098
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1099	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1100
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1101	xOfStringNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1102	"origin x where to draw the text( label )
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1103	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1104	^ self xOfStringLevel:(aNode level)
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1105
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1106	! !
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1107
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1108	!SelectionInTreeView methodsFor:'selection'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1109
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1110	selectFromListOfNames:aListOfNames
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1111	"set selection from a list of names
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1112	"
497 9b5503aa6f57 * empty log message * Claus Gittinger <cg@exept.de> parents: 494 diff changeset	1113	\|node rdwNd\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1114
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1115	aListOfNames size < 1 ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1116	^ self selection:nil
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1117	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1118
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1119	node := model root.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1120
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1121	aListOfNames do:[:el\|\|next\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1122	next := node detectChild:[:e\|e name = el].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1123
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1124	next notNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1125	node hidden ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1126	rdwNd isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1127	rdwNd := node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1128	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1129	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1130	node expand
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1131	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1132	node := next
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1133	]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1134	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1135
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1136	rdwNd notNil ifTrue:[
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1137	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1138	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1139	model addDependent:self.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1140	list := self listFromModel.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1141	self redrawFromLine:(self indexOfNode:rdwNd).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1142	self contentsChanged.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1143	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1144	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1145
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1146	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	1147
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1148	selectNode:aNode
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1149	"change selection to a node
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1150	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1151	self selection:(self indexOfNode:aNode)
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1152
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1153
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1154	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	1155
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1156	selectedIndex
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1157	"get single selected index or 0
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1158	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1159	selection size == 1 ifTrue:[^ selection first].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	1160	selection isNumber ifTrue:[^ selection].
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1161	^ 0
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1162	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1163
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1164	selectedNode
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1165	"get the single selected node or nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1166	"
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1167	\|idx\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1168
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1169	(idx := self selectedIndex) ~~ 0 ifTrue:[
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	1170	^ listOfNodes at:idx
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1171	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1172	^ nil
514 c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1173	!
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1174
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1175	selectionChangedFrom:oldSelection
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1176	"update selectionHolder if not nil
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1177	"
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1178	super selectionChangedFrom:oldSelection.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1179
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1180	selectionHolder notNil ifTrue:[
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1181	self selectionToModel.
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1182	].
c25e078ed84c add selectionHolder and hierarchical list holder ca parents: 507 diff changeset	1183
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1184	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1185
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1186	!SelectionInTreeView methodsFor:'selection-actions'!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1187
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1188	selectedNodeAdd:something
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1189	"add a node or collection of nodes after selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1190	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1191	\|node\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1192
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1193	something notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1194	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1195	node parent notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1196	node isCollapsable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1197	model add:something beforeIndex:1 below:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1198	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1199	model add:something after:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1200	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1201	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1202	model add:something beforeIndex:1 below:(self root)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1203	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1204	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1205	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1206
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1207	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1208
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1209	selectedNodeBecomeChildOfNext
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1210	"become node a child of followd node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1211	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1212	\|idx node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1213
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1214	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1215	idx := cprt indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1216
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1217	idx == cprt children size ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1218	nprt := cprt childAt:(idx + 1).
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1219
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1220	nprt notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1221	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1222	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1223	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1224	model collapse:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1225	model add:node beforeIndex:1 below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1226	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1227	model expand:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1228
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1229	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1230	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1231	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1232	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1233	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1234
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1235	selectedNodeBecomeSisterOfParent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1236	"become node a sister of its current parent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1237	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1238	\|node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1239
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1240	( (node := self selectedNode) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1241	or:[(cprt := node parent) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1242	or:[(nprt := cprt parent) isNil]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1243	) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1244	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1245	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1246	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1247	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1248
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1249	model add:node afterIndex:(nprt indexOfChild:cprt) below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1250	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1251	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1252
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1253	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1254
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1255	selectedNodeChangeSequenceOrder:anOffset
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1256	"move child 'anOffset' forward or backward in list of children
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1257	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1258	\|idx node size parent\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1259
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1260	( (node := self selectedNode) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1261	and:[(parent := node parent) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1262	and:[(size := parent children size) > 1]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1263	) ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1264	idx := parent indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1265
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1266	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1267	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1268	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1269	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1270
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1271	(idx := idx + anOffset) < 1 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1272	idx := size
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1273	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1274	idx > size ifTrue:[idx := 1]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1275	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1276	model add:node beforeIndex:idx below:parent.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1277	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1278	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1279	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1280
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1281	selectedNodeExpand:doExpand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1282	"collapse or expand selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1283	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1284	\|node index\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1285
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1286	(index := self selectedIndex) ~~ 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1287	node := listOfNodes at:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1288
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1289	node hasChildren ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1290	node isExpandable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1291	doExpand ifFalse:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1292	node expand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1293	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1294	doExpand ifTrue:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1295	node collapse
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1296	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1297
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1298	node numberOfChildren == 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1299	"/ no children; redraw selected line (image might change)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1300	self redrawLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1301	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1302	"/ with children; update list and redraw to end.
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1303	model removeDependent:self.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1304	model recomputeList.
5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1305	model addDependent:self.
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1306	list := self listFromModel.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1307	self redrawFromLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1308	self contentsChanged.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1309	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1310	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1311	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1312	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1313
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1314	selectedNodesRemove
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1315	"remove selected nodes
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1316	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1317	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1318	self selection:nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1319
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1320	! !
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1321
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1322	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1323
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1324	version
585 5a0ed2305998 bug fixes: ca parents: 569 diff changeset	1325	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.29 1997-10-29 08:25:02 ca Exp $'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1326	! !

author	ca
	Wed, 29 Oct 1997 09:25:29 +0100
changeset 585	5a0ed2305998
parent 569	2a1014d6697c
child 589	979ea44d23ae
permissions	-rw-r--r--