hg/stx-libwidg2: SelectionInTreeView.st@546f43d75275 (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
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	15	instanceVariableNames:'doubleClickSelectionBlock imageWidth showLines listOfNodes
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	16	imageInset textInset openIndicator closeIndicator showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	17	extentOpenIndicator extentCloseIndicator showDirectoryIndicator
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	18	indicatorExtentDiv2 imageOpened imageClosed imageItem'
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	19	classVariableNames:'ImageOpened ImageClosed ImageItem OpenIndicator CloseIndicator'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	20	poolDictionaries:''
6d40e2c4ed53 intitial checkin ca parents: diff changeset	21	category:'Views-Text'
6d40e2c4ed53 intitial checkin ca parents: diff changeset	22	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	23
6d40e2c4ed53 intitial checkin ca parents: diff changeset	24	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	25
6d40e2c4ed53 intitial checkin ca parents: diff changeset	26	copyright
6d40e2c4ed53 intitial checkin ca parents: diff changeset	27	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	28	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6d40e2c4ed53 intitial checkin ca parents: diff changeset	29	All Rights Reserved
6d40e2c4ed53 intitial checkin ca parents: diff changeset	30
6d40e2c4ed53 intitial checkin ca parents: diff changeset	31	This software is furnished under a license and may be used
6d40e2c4ed53 intitial checkin ca parents: diff changeset	32	only in accordance with the terms of that license and with the
6d40e2c4ed53 intitial checkin ca parents: diff changeset	33	inclusion of the above copyright notice. This software may not
6d40e2c4ed53 intitial checkin ca parents: diff changeset	34	be provided or otherwise made available to, or used by, any
6d40e2c4ed53 intitial checkin ca parents: diff changeset	35	other person. No title to or ownership of the software is
6d40e2c4ed53 intitial checkin ca parents: diff changeset	36	hereby transferred.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	37	"
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	documentation
6d40e2c4ed53 intitial checkin ca parents: diff changeset	42	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	43	somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like)
6d40e2c4ed53 intitial checkin ca parents: diff changeset	44	lists and adds the functions to show/hide subtrees.
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	45	Requires SelectionInTree as model and TreeItem (or compatible) list entries.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	46
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	47	This class obsoletes SelectionInTreeView, which is no longer
446 b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	48	maintained but kept for backward compatibility.
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	49
b6ac0f279b2f checkin from browser Claus Gittinger <cg@exept.de> parents: 444 diff changeset	50
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	51	[see also:]
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	52	SelectionInTree
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	53	TreeItem
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	54	SelectionInTreeView
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	55	SelectionInListView
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	56	FileSelectionTree
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	57
6d40e2c4ed53 intitial checkin ca parents: diff changeset	58	[author:]
6d40e2c4ed53 intitial checkin ca parents: diff changeset	59	Claus Atzkern
6d40e2c4ed53 intitial checkin ca parents: diff changeset	60	"
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	examples
6d40e2c4ed53 intitial checkin ca parents: diff changeset	65	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	66	shows the tree of smalltalk classes:
6d40e2c4ed53 intitial checkin ca parents: diff changeset	67	[exBegin]
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	68	\|top model sel root\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	69
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	70	root := TreeItem newAsTreeFromSmalltalkClass:Object.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	71	root expand.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	72	model := SelectionInTree new root:root.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	73	top := StandardSystemView new.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	74	top extent:300@300.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	75
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	76	sel := SelectionInTreeView new.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	77	sel model: model.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	78	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	79	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	80	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	81	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	82
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	83
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	84
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	85	same, including nil-subclasses (i.e. really all classes):
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	86	[exBegin]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	87	\|top model sel root\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	88
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	89	root := TreeItem newAsTreeFromSmalltalkClass:nil.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	90	root expand.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	91	model := SelectionInTree new root:root.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	92	top := StandardSystemView new.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	93	top extent:300@300.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	94
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	95	sel := SelectionInTreeView new.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	96	sel model: model.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	97	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	98
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	99	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	100	top open.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	101	[exEnd]
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	102
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	103
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	104
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	105	shows the tree of smalltalk classes; show directory indication and no
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	106	lines.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	107	[exBegin]
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	108	\|top model sel root\|
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	109
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	110	root := TreeItem newAsTreeFromSmalltalkClass:Object.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	111	root expand.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	112	model := SelectionInTree new root:root.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	113	top := StandardSystemView new.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	114	top extent:300@300.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	115
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	116	sel := SelectionInTreeView new.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	117	sel showLines:false.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	118	sel showDirectoryIndicator:true.
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	119
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	120	sel model: model.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	121	sel action:[:nr \| Transcript show:'selected:'; showCR:nr].
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	122	top add:(ScrollableView forView:sel) in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)).
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	123	top open.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	124	[exEnd]
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	125	"
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	126
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	127	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	128
6d40e2c4ed53 intitial checkin ca parents: diff changeset	129	!SelectionInTreeView class methodsFor:'constants'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	130
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	131	minImageInset
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	132	"returns minimum inset from directory indication to image
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	133	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	134	^ 6
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	135
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	136
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	137	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	138
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	139	!SelectionInTreeView class methodsFor:'default images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	140
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	141	closeIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	142	CloseIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	143	CloseIndicator := Image fromFile:('xpmBitmaps/plus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	144	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	145	^ CloseIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	146	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	147	CloseIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	148	"
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	149	!
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	150
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	151	imageClosed
6d40e2c4ed53 intitial checkin ca parents: diff changeset	152	ImageClosed isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	153	ImageClosed := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	154	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	155	^ ImageClosed
6d40e2c4ed53 intitial checkin ca parents: diff changeset	156	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	157	ImageClosed := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	158	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	159
6d40e2c4ed53 intitial checkin ca parents: diff changeset	160	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	161
6d40e2c4ed53 intitial checkin ca parents: diff changeset	162	imageItem
6d40e2c4ed53 intitial checkin ca parents: diff changeset	163	ImageItem isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	164	ImageItem := Image fromFile:('xpmBitmaps/document_images/tiny_file_plain.xpm')
6d40e2c4ed53 intitial checkin ca parents: diff changeset	165
6d40e2c4ed53 intitial checkin ca parents: diff changeset	166	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	167	^ ImageItem
6d40e2c4ed53 intitial checkin ca parents: diff changeset	168	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	169	ImageItem := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	170	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	171
6d40e2c4ed53 intitial checkin ca parents: diff changeset	172	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	173
6d40e2c4ed53 intitial checkin ca parents: diff changeset	174	imageOpened
6d40e2c4ed53 intitial checkin ca parents: diff changeset	175	ImageOpened isNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	176	ImageOpened := Image fromFile:('xpmBitmaps/document_images/tiny_yellow_dir_open.xpm').
6d40e2c4ed53 intitial checkin ca parents: diff changeset	177
6d40e2c4ed53 intitial checkin ca parents: diff changeset	178	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	179	^ ImageOpened
6d40e2c4ed53 intitial checkin ca parents: diff changeset	180	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	181	ImageOpened := nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	182	"
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	183	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	184
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	185	openIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	186	OpenIndicator isNil ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	187	OpenIndicator := Image fromFile:('xpmBitmaps/minus.xpm').
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	188	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	189	^ OpenIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	190	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	191	OpenIndicator := nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	192	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	193
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	194	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	195
6d40e2c4ed53 intitial checkin ca parents: diff changeset	196	!SelectionInTreeView methodsFor:'accessing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	197
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	198	nodeAtIndex:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	199	"returns node at an index or nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	200	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	201	(anIndex notNil and:[anIndex ~~ 0 and:[anIndex <= listOfNodes size]]) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	202	^ listOfNodes at:anIndex
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	203	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	204	^ nil
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	205	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	206
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	207	root
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	208	"gets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	209	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	210	^ self nodeAtIndex:1
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	211	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	212
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	213	root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	214	"sets the root of the model; the first item into list.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	215	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	216	model isNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	217	aRoot isNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	218	^ self
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	219	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	220	self model:(SelectionInTree new)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	221	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	222	model root:aRoot
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	223	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	224
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	225	textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	226	"get the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	227	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	228	^ textInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	229	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	230
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	231	textInset:anInset
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	232	"set the left inset of the text label
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	233	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	234	anInset ~~ textInset ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	235	anInset >= 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	236	textInset := anInset.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	237	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	238	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	239	self error
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	240	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	241	].
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	!SelectionInTreeView methodsFor:'accessing-behavior'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	245
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	246	doubleClickSelectionBlock
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	247	"get the conditionBlock; this block is evaluated before a doubleClick action
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	248	on a node containg children will be performed. In case of returning false, the
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	249	doubleClick will not be handled.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	250	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	251	^ doubleClickSelectionBlock
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	252
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	253
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	254	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	255
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	256	doubleClickSelectionBlock:aBlock
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	257	"set the conditionBlock; this block is evaluated before a doubleClick action
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	258	on a node containg children will be performed. In case of returning false, the
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	259	doubleClick will not be handled.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	260	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	261	doubleClickSelectionBlock := aBlock
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	262
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	263
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	264	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	265
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	266	showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	267	"returns true if directories has an open/closed indicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	268	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	269	^ showDirectoryIndicator
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	270	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	271
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	272	showDirectoryIndicator:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	273	"set or clear open/closed indicator for directories
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	274	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	275	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	276	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	277	aState ~~ showDirectoryIndicator ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	278	showDirectoryIndicator := aState.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	279	self refetchDeviceResources.
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	280	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	281	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	282	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	283
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	284	showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	285	"returns true if lines are shown
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	286	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	287	^ showLines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	288	!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	289
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	290	showLines:aState
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	291	"show or hide lines
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	292	"
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	293	aState ~~ showLines ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	294	showLines := aState.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	295	self invalidate
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	296	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	297	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	298
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	299	showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	300	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	301	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	302	^ showRoot
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	303	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	304
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	305	showRoot:aState
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	306	"list with or without root
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	307	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	308	showRoot ~~ aState ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	309	showRoot := aState.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	310	model notNil ifTrue:[model showRoot:showRoot].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	311	].
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	312	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	313
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	314	!SelectionInTreeView methodsFor:'accessing-images'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	315
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	316	imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	317	"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	318
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	319	^ imageClosed
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	320
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	321	"Created: 3.7.1997 / 12:34:31 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	322	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	323
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	324	imageClosed:something
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	325	"set 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	326
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	327	imageClosed := something.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	328	self refetchDeviceResources.
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	329	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	330
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	331	imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	332	"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	333
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	334	^ imageItem
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	335
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	336	"Created: 3.7.1997 / 12:34:34 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	337	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	338
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	339	imageItem:something
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	340	"set 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	341
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	342	imageItem := something.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	343	self refetchDeviceResources.
448 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
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	346	imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	347	"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	348
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	349	^ imageOpened
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	350
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	351	"Created: 3.7.1997 / 12:34:28 / cg"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	352	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	353
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	354	imageOpened:something
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	355	"set 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	356
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	357	imageOpened := something.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	358	self refetchDeviceResources.
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	359	! !
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	360
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	361	!SelectionInTreeView methodsFor:'drawing'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	362
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	363	drawLine:line atX:atX inVisible:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	364	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	365
6d40e2c4ed53 intitial checkin ca parents: diff changeset	366	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	367
6d40e2c4ed53 intitial checkin ca parents: diff changeset	368	drawLine:line fromX:x inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	369	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	370
6d40e2c4ed53 intitial checkin ca parents: diff changeset	371	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	372
6d40e2c4ed53 intitial checkin ca parents: diff changeset	373	drawLine:line inVisible:visLineNr with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	374	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	375
6d40e2c4ed53 intitial checkin ca parents: diff changeset	376	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	377
6d40e2c4ed53 intitial checkin ca parents: diff changeset	378	drawVisibleLine:visLineNr col:col with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	379	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	380
6d40e2c4ed53 intitial checkin ca parents: diff changeset	381	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	382
6d40e2c4ed53 intitial checkin ca parents: diff changeset	383	drawVisibleLine:visLineNr from:startCol to:endCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	384	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	385
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	386	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	387
6d40e2c4ed53 intitial checkin ca parents: diff changeset	388	drawVisibleLine:visLineNr from:startCol with:fg and:bg
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	389	self drawFromVisibleLine:visLineNr to:visLineNr with:fg and:bg
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	390
6d40e2c4ed53 intitial checkin ca parents: diff changeset	391	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	392
6d40e2c4ed53 intitial checkin ca parents: diff changeset	393	!SelectionInTreeView methodsFor:'drawing basics'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	394
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	395	drawFromVisibleLine:startVisLineNr to:endVisLineNr with:fg and:bg
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	396
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	397	\|size end index yBot yTop yCtr level figWidthDiv2
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	398	x xFig xStr node lv idx image xCross\|
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	399
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	400	index := self visibleLineToAbsoluteLine:startVisLineNr.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	401	size := listOfNodes size.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	402	yTop := self yOfVisibleLine:startVisLineNr.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	403	end := endVisLineNr - startVisLineNr + 1.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	404
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	405	"/ clear rectangle line and set background color
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	406	self paint:bg.
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	407	self fillRectangleX:0 y:yTop width:width height:(end * fontHeight).
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	408
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	409	index isNil ifTrue:[^ self].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	410	figWidthDiv2 := imageWidth // 2..
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	411	yCtr := yTop - (fontHeight // 2).
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	412
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	413	self paint:fg on:bg.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	414	(end := index + end) > size ifTrue:[end := size + 1].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	415
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	416	[index < end] whileTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	417	node := listOfNodes at:index.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	418	yBot := yTop + fontHeight.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	419	yCtr := yCtr + fontHeight.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	420
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	421	(lv := node level) == level ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	422	level := lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	423	xFig := self xOfFigureLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	424	xStr := self xOfStringLevel:lv.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	425	xCross := (self xOfFigureLevel:(lv-1)) + figWidthDiv2.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	426	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	427
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	428	showLines ifTrue:[
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	429	(node isCollapsable and:[node numberOfChildren ~~ 0]) ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	430	x := xFig + figWidthDiv2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	431	self displayLineFromX:x y:yCtr toX:x y:yBot
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	432	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	433	(level ~~ 1 and:[node parent children last == node]) ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	434	self displayLineFromX:xCross y:yTop toX:xCross y:yCtr . "/ vertical
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	435	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	436	self displayLineFromX:xCross y:yCtr toX:xFig y:yCtr . "/ horizontal
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	437
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	438	"/ draw vertical lines
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	439	idx := index.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	440
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	441	[(lv > 0 and:[(idx := idx + 1) <= size])] whileTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	442	(x := (listOfNodes at:idx) level) <= lv ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	443	lv := x - 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	444	x := (self xOfFigureLevel:lv) + figWidthDiv2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	445	self displayLineFromX:x y:yTop toX:x y:yBot.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	446	]
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	447	]
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	448	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	449
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	450	"/ draw image
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	451	image := self figureFor:node.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	452	self displayForm:image x:xFig y:(yCtr - (image height // 2)).
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	453
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	454	"/ draw text label
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	455	self drawLabelIndex:index atX:xStr y:yCtr .
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	456
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	457	"/ draw directory indicator
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	458	(showDirectoryIndicator and:[node hasChildren]) ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	459	node isCollapsable ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	460	image := openIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	461	x := extentOpenIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	462	] ifFalse:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	463	image := closeIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	464	x := extentCloseIndicator.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	465	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	466	self displayForm:image x:(xCross - x x)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	467	y:(yCtr - x y)
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	468	].
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	469	"/ setup next line
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	470	index := index + 1.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	471	yTop := yBot.
481 91b3f1788cea redraw mechanism ca parents: 480 diff changeset	472	].
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	473
91b3f1788cea redraw mechanism ca parents: 480 diff changeset	474
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	475
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	476
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	477
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	478
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	479	!
26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	480
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	481	drawLabelIndex:anIndex atX:x y:yCenter
6d40e2c4ed53 intitial checkin ca parents: diff changeset	482	"draw text label at x and y centered
6d40e2c4ed53 intitial checkin ca parents: diff changeset	483	"
6d40e2c4ed53 intitial checkin ca parents: diff changeset	484	\|y lbl\|
6d40e2c4ed53 intitial checkin ca parents: diff changeset	485
6d40e2c4ed53 intitial checkin ca parents: diff changeset	486	lbl := (listOfNodes at:anIndex) name.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	487
6d40e2c4ed53 intitial checkin ca parents: diff changeset	488	lbl notNil ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	489	y := yCenter - ((lbl heightOn:self) // 2).
6d40e2c4ed53 intitial checkin ca parents: diff changeset	490
6d40e2c4ed53 intitial checkin ca parents: diff changeset	491	(lbl respondsTo:#string) ifTrue:[
6d40e2c4ed53 intitial checkin ca parents: diff changeset	492	y := y + fontAscent.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	493	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	494	self displayOpaqueString:lbl x:x y:y.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	495	]
6d40e2c4ed53 intitial checkin ca parents: diff changeset	496	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	497
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	498	!SelectionInTreeView methodsFor:'enumerating'!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	499
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	500	detectNode:aOneArgBlock
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	501	"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	502	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	503	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	504	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	505	^ listOfNodes detect:aOneArgBlock ifNone:nil
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	506	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	507
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	508	selectedNodesDo:aOneArgBlock
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	509	"evaluate the block on each node selected
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	510	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	511	self selectionDo:[:i\| aOneArgBlock value:(listOfNodes at:i) ]
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	512	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	513
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	514	!SelectionInTreeView methodsFor:'initialization'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	515
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	516	fetchDeviceResources
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	517	"initialize heavily used device resources - to avoid rendering
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	518	images again and again later"
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	519
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	520	super fetchDeviceResources.
478 d7286b946764 add: ca parents: 471 diff changeset	521	self refetchDeviceResources
448 7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	522	!
7f9f3531660c cache device images for fast drawing Claus Gittinger <cg@exept.de> parents: 446 diff changeset	523
478 d7286b946764 add: ca parents: 471 diff changeset	524	fetchImageResources
d7286b946764 add: ca parents: 471 diff changeset	525	"initialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	526	images again and again later; returns maximum extent of the images used.
d7286b946764 add: ca parents: 471 diff changeset	527	Could be redefined by subclass
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	528	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	529	\|y x t\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	530
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	531	imageOpened isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	532	imageOpened := (self class imageOpened) onDevice:device.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	533	].
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	534
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	535	imageClosed isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	536	imageClosed := (self class imageClosed) onDevice:device.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	537	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	538
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	539	imageItem isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	540	imageItem := (self class imageItem) onDevice:device.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	541	].
478 d7286b946764 add: ca parents: 471 diff changeset	542
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	543	y := imageClosed heightOn:self.
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	544	x := imageClosed widthOn:self.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	545
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	546	(t := imageOpened heightOn:self) > y ifTrue:[y := t].
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	547	(t := imageOpened widthOn:self) > x ifTrue:[x := t].
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	548
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	549	(t := imageItem heightOn:self) > y ifTrue:[y := t].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	550	(t := imageItem widthOn:self) > x ifTrue:[x := t].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	551
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	552	^ x @ y
478 d7286b946764 add: ca parents: 471 diff changeset	553
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	554	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	555
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	556	getFontParameters
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	557	super getFontParameters.
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	558
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	559	imageWidth notNil ifTrue:[
480 982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	560	self refetchDeviceResources
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	561	]
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	562	!
982c2ad4f6a2 getFontParameters ca parents: 478 diff changeset	563
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	564	initialize
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	565	"setup instance attributes
6fe41e3caca1 add showLines; ca parents: 470 diff changeset	566	"
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	567	super initialize.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	568	showLines := true.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	569	showRoot := true.
485 26e87be7210f showDirectoryIndicator ca parents: 483 diff changeset	570	showDirectoryIndicator := false.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	571	textInset := 2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	572	imageInset := 0. "/ set during indication enabled
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	573	imageWidth := 8. "/ default: will change during startup
478 d7286b946764 add: ca parents: 471 diff changeset	574	!
d7286b946764 add: ca parents: 471 diff changeset	575
d7286b946764 add: ca parents: 471 diff changeset	576	refetchDeviceResources
d7286b946764 add: ca parents: 471 diff changeset	577	"reinitialize heavily used device resources - to avoid rendering
d7286b946764 add: ca parents: 471 diff changeset	578	images again and again later
d7286b946764 add: ca parents: 471 diff changeset	579	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	580	\|extent x1 x2 y\|
478 d7286b946764 add: ca parents: 471 diff changeset	581
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	582	extent := self fetchImageResources.
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	583	imageInset := 0.
478 d7286b946764 add: ca parents: 471 diff changeset	584
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	585	showDirectoryIndicator ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	586	openIndicator isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	587	openIndicator := (self class openIndicator) onDevice:device
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	588	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	589
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	590	closeIndicator isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	591	closeIndicator := (self class closeIndicator) onDevice:device.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	592	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	593
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	594	x1 := (openIndicator widthOn:self) // 2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	595	y := openIndicator heightOn:self.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	596	y > extent y ifTrue:[extent y:y].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	597	extentOpenIndicator := Point x:x1 y:(y // 2).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	598
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	599	x2 := (closeIndicator widthOn:self) // 2.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	600	y := closeIndicator heightOn:self.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	601	y > extent y ifTrue:[extent y:y].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	602	extentCloseIndicator := Point x:x2 y:(y // 2).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	603
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	604	x2 > x1 ifTrue:[x1 := x2].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	605
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	606	(x1 := x1 + self class minImageInset) > (imageWidth // 2) ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	607	imageInset := x1 - (imageWidth // 2).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	608	].
478 d7286b946764 add: ca parents: 471 diff changeset	609	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	610	extent y >= fontHeight ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	611	fontHeight := 1 + extent y.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	612	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	613	imageWidth := extent x.
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	614
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	615	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	616
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	617	!SelectionInTreeView methodsFor:'model'!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	618
6d40e2c4ed53 intitial checkin ca parents: diff changeset	619	getListFromModel
6d40e2c4ed53 intitial checkin ca parents: diff changeset	620	"if I have a model, get my list from it using the listMessage.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	621	If listMessage is nil, try aspectMessage for backward compatibilty.
6d40e2c4ed53 intitial checkin ca parents: diff changeset	622	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	623	super list:(self listFromModel) keepSelection:true
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	624	!
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	625
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	626	listFromModel
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	627	"get list from model and return the new list.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	628	If listMessage is nil, try aspectMessage for backward compatibilty.
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	629	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	630	\|msg\|
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	631
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	632	widthOfWidestLine := nil.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	633
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	634	model notNil ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	635	(msg := listMsg ? aspectMsg) notNil ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	636	listOfNodes := model perform:msg.
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	637
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	638	listOfNodes size ~~ 0 ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	639	^ listOfNodes collect:[:n\|n name]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	640	]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	641	]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	642	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	643	listOfNodes := #().
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	644	^ #()
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	645	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	646
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	647	model:aModel
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	648	aModel notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	649	aModel showRoot:showRoot.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	650	].
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	651	super model:aModel
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	652	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	653
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	654	!SelectionInTreeView methodsFor:'private'!
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	655
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	656	list:aList keepSelection:keepSelection
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	657	\|list\|
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	658
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	659	list := aList.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	660
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	661	list size == 0 ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	662	listOfNodes := #()
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	663	] ifFalse:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	664	(list first respondsTo:#hasChildren) ifTrue:[
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	665	listOfNodes := aList.
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	666	list := listOfNodes collect:[:aNode\| aNode name ].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	667	]
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	668	].
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	669	super list:list keepSelection:keepSelection
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	670	! !
1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	671
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	672	!SelectionInTreeView methodsFor:'private queries'!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	673
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	674	lengthOfLongestLineBetween:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	675	"return the length (in characters) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	676	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	677	\|max\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	678
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	679	max := self widthOfContents:firstLine and:lastLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	680	^ (max // fontWidth) + 1
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	681	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	682
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	683	widthOfContents
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	684	"return the width of the contents in pixels
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	685	- used for scrollbar interface"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	686
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	687	list isNil ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	688
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	689	(widthOfWidestLine isNil or:[widthOfWidestLine == 0]) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	690	widthOfWidestLine := self widthOfContents:1 and:(self size).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	691	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	692	^ widthOfWidestLine + (leftMargin * 2)
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	693
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	694	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	695
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	696	widthOfContents:firstLine and:lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	697	"return the length (in pixels) of the longest line in a line-range
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	698	"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	699	\|max "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	700	thisLen "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	701	first "{ Class: SmallInteger }"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	702	last "{ Class: SmallInteger }" \|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	703
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	704	listOfNodes size == 0 ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	705
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	706	last := listOfNodes size.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	707	first := firstLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	708
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	709	(first > last) ifTrue:[^ 0].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	710
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	711	(lastLine < last) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	712	last := lastLine
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	713	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	714	max := 0.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	715
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	716	listOfNodes from:first to:last do:[:anItem\|\|name\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	717	thisLen := self xOfStringNode:anItem.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	718
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	719	(name := anItem name) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	720	thisLen := thisLen + (name widthOn:self).
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	721	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	722	(thisLen > max) ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	723	max := thisLen.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	724	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	725	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	726	^ max + leftOffset.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	727	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	728
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	729	withoutRedrawAt:anIndex put:aString
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	730	"change a line without redisplay"
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	731
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	732	\|width\|
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	733
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	734	width := widthOfWidestLine.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	735	widthOfWidestLine := nil.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	736
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	737	super withoutRedrawAt:anIndex put:aString.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	738
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	739	(widthOfWidestLine := width) notNil ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	740	width := self widthOfContents:anIndex and:anIndex.
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	741
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	742	width > widthOfWidestLine ifTrue:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	743	widthOfWidestLine := width
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	744	] ifFalse:[
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	745	widthOfWidestLine := nil "/ means: unknown
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	746	]
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	747	].
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	748
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	749
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	750	! !
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	751
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	752	!SelectionInTreeView methodsFor:'queries'!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	753
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	754	figureFor:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	755	"access figure for a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	756	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	757	aNode hasChildren ifTrue:[
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	758	aNode isExpandable ifTrue:[ ^ imageClosed ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	759	ifFalse:[ ^ imageOpened ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	760	].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	761	^ imageItem
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	762	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	763
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	764	indexOfNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	765	"returns index of a node
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	766	"
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	767	^ listOfNodes findFirst:[:n\| n == aNode ]
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	768	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	769
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	770	xOfFigureLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	771	"origin x where to draw the icon
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	772	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	773	\|l\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	774
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	775	showRoot ifTrue:[l := aLevel]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	776	ifFalse:[l := aLevel - 1].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	777
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	778	showDirectoryIndicator ifFalse:[l := l - 1].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	779	^ (l * (imageInset + imageWidth)) + imageInset - leftOffset + leftMargin
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	780
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	781	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	782
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	783	xOfFigureNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	784	"origin x where to draw the icon
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	785	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	786	^ self xOfFigureLevel:(aNode level)
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	787	!
490 1129f3cf5cea add directory open/close indication ca parents: 485 diff changeset	788
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	789	xOfStringLevel:aLevel
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	790	"origin x where to draw the text( label )
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	791	"
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	792	^ (self xOfFigureLevel:aLevel) + imageWidth + textInset
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	793
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	794	!
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	795
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	796	xOfStringNode:aNode
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	797	"origin x where to draw the text( label )
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	798	"
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	799	^ self xOfStringLevel:(aNode level)
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	800
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	801	! !
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	802
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	803	!SelectionInTreeView methodsFor:'selection'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	804
6d40e2c4ed53 intitial checkin ca parents: diff changeset	805	doubleClicked
6d40e2c4ed53 intitial checkin ca parents: diff changeset	806	"handle a double click; collapse or expand selected entry
6d40e2c4ed53 intitial checkin ca parents: diff changeset	807	in case of having children
6d40e2c4ed53 intitial checkin ca parents: diff changeset	808	"
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	809	\|node\|
471 6fe41e3caca1 add showLines; ca parents: 470 diff changeset	810
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	811	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	812	self selectedNodeExpand:(node isExpandable).
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	813	super doubleClicked.
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	814	]
478 d7286b946764 add: ca parents: 471 diff changeset	815
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	816	!
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	817
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	818	selectFromListOfNames:aListOfNames
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	819	"set selection from a list of names
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	820	"
497 9b5503aa6f57 * empty log message * Claus Gittinger <cg@exept.de> parents: 494 diff changeset	821	\|node rdwNd\|
494 76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	822
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	823	aListOfNames size < 1 ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	824	^ self selection:nil
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	825	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	826
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	827	node := model root.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	828
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	829	aListOfNames do:[:el\|\|next\|
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	830	next := node detectChild:[:e\|e name = el].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	831
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	832	next notNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	833	node hidden ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	834	rdwNd isNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	835	rdwNd := node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	836	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	837	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	838	node expand
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	839	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	840	node := next
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	841	]
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	842	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	843
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	844	rdwNd notNil ifTrue:[
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	845	model updateList.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	846	list := self listFromModel.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	847	self redrawFromLine:(self indexOfNode:rdwNd).
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	848	self contentsChanged.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	849	].
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	850	self selectNode:node.
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	851
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	852	!
76d8c4e0b612 directory indicator; set a path to be selected ca parents: 490 diff changeset	853
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	854	selectNode:aNode
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	855	"change selection to a node
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	856	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	857	self selection:(self indexOfNode:aNode)
468 9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	858
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	859
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	860	!
9c54016f159d support of vertical scrollbar ca parents: 456 diff changeset	861
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	862	selectedIndex
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	863	"get single selected index or 0
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	864	"
483 1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	865	selection size == 1 ifTrue:[^ selection first].
1dad61b63e9d optimize doubleClicked & redrawing ca parents: 481 diff changeset	866	selection isNumber ifTrue:[^ selection].
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	867	^ 0
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	868	!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	869
6d40e2c4ed53 intitial checkin ca parents: diff changeset	870	selectedNode
6d40e2c4ed53 intitial checkin ca parents: diff changeset	871	"get the single selected node or nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	872	"
456 d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	873	\|idx\|
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	874
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	875	(idx := self selectedIndex) ~~ 0 ifTrue:[
d46a10de4380 change model; supports multiple selection ca parents: 448 diff changeset	876	^ listOfNodes at:idx
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	877	].
6d40e2c4ed53 intitial checkin ca parents: diff changeset	878	^ nil
6d40e2c4ed53 intitial checkin ca parents: diff changeset	879	! !
6d40e2c4ed53 intitial checkin ca parents: diff changeset	880
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	881	!SelectionInTreeView methodsFor:'selection-actions'!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	882
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	883	selectedNodeAdd:something
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	884	"add a node or collection of nodes after selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	885	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	886	\|node\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	887
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	888	something notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	889	(node := self selectedNode) notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	890	node parent notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	891	node isCollapsable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	892	model add:something beforeIndex:1 below:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	893	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	894	model add:something after:node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	895	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	896	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	897	model add:something beforeIndex:1 below:(self root)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	898	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	899	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	900	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	901
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	902	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	903
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	904	selectedNodeBecomeChildOfNext
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	905	"become node a child of followd node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	906	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	907	\|idx node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	908
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	909	((node := self selectedNode) isNil or:[(cprt := node parent) isNil]) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	910	idx := cprt indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	911
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	912	idx == cprt children size ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	913	nprt := cprt childAt:(idx + 1).
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	914
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	915	nprt notNil ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	916	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	917	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	918	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	919	model collapse:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	920	model add:node beforeIndex:1 below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	921	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	922	model expand:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	923
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	924	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	925	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	926	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	927	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	928	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	929
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	930	selectedNodeBecomeSisterOfParent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	931	"become node a sister of its current parent
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	932	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	933	\|node cprt nprt\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	934
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	935	( (node := self selectedNode) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	936	or:[(cprt := node parent) isNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	937	or:[(nprt := cprt parent) isNil]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	938	) ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	939	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	940	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	941	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	942	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	943
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	944	model add:node afterIndex:(nprt indexOfChild:cprt) below:nprt.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	945	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	946	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	947
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	948	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	949
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	950	selectedNodeChangeSequenceOrder:anOffset
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	951	"move child 'anOffset' forward or backward in list of children
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	952	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	953	\|idx node size parent\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	954
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	955	( (node := self selectedNode) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	956	and:[(parent := node parent) notNil
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	957	and:[(size := parent children size) > 1]]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	958	) ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	959	idx := parent indexOfChild:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	960
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	961	model removeDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	962	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	963	selection := nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	964	model addDependent:self.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	965
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	966	(idx := idx + anOffset) < 1 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	967	idx := size
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	968	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	969	idx > size ifTrue:[idx := 1]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	970	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	971	model add:node beforeIndex:idx below:parent.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	972	self selectNode:node.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	973	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	974	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	975
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	976	selectedNodeExpand:doExpand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	977	"collapse or expand selected node
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	978	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	979	\|node index\|
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	980
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	981	(index := self selectedIndex) ~~ 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	982	node := listOfNodes at:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	983
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	984	node hasChildren ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	985	node isExpandable ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	986	doExpand ifFalse:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	987	node expand
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	988	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	989	doExpand ifTrue:[^ self].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	990	node collapse
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	991	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	992
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	993	node numberOfChildren == 0 ifTrue:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	994	"/ no children; redraw selected line (image might change)
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	995	self redrawLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	996	] ifFalse:[
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	997	"/ with children; update list and redraw to end.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	998	model updateList.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	999	list := self listFromModel.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1000	self redrawFromLine:index.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1001	self contentsChanged.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1002	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1003	]
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1004	].
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1005	!
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1006
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1007	selectedNodesRemove
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1008	"remove selected nodes
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1009	"
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1010	model removeSelection.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1011	self selection:nil.
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1012
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1013	! !
546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1014
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1015	!SelectionInTreeView class methodsFor:'documentation'!
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1016
6d40e2c4ed53 intitial checkin ca parents: diff changeset	1017	version
507 546f43d75275 add more functionality based on selection ca parents: 497 diff changeset	1018	^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.16 1997-09-02 12:20:38 ca Exp $'
444 6d40e2c4ed53 intitial checkin ca parents: diff changeset	1019	! !

author	ca
	Tue, 02 Sep 1997 14:20:38 +0200
changeset 507	546f43d75275
parent 497	9b5503aa6f57
child 514	c25e078ed84c
permissions	-rw-r--r--