hg/stx-libwidg2: HierarchicalListView.st@b46918a9f6b8 (annotated)

1431 0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	1	"
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	2	COPYRIGHT (c) 1999 by eXept Software AG
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	3	All Rights Reserved
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	4
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	5	This software is furnished under a license and may be used
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	6	only in accordance with the terms of that license and with the
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	7	inclusion of the above copyright notice. This software may not
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	8	be provided or otherwise made available to, or used by, any
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	9	other person. No title to or ownership of the software is
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	10	hereby transferred.
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	11	"
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	12
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	13
1752 1c11b6e4ab37 use isHierarchicalItem instead of hack variable ca parents: 1746 diff changeset	14	"{ Package: 'stx:libwidg2' }"
1c11b6e4ab37 use isHierarchicalItem instead of hack variable ca parents: 1746 diff changeset	15
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	SelectionInListModelView subclass:#HierarchicalListView
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	17	instanceVariableNames:'imageInset imageWidth lineColor showRoot showLines
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	18	useDefaultIcons icons openIndicator closeIndicator alignTextRight
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	19	alignTextRightX maxWidthOfText minLineHeight levelOfLastItem
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	20	expandOnSelect autoScrollHorizontal showIndicators
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	21	showLeftIndicators indicatorAction'
2361 c0e70e31ac28 close editor if button is pressed not in the editView ca parents: 2353 diff changeset	22	classVariableNames:''
c0e70e31ac28 close editor if button is pressed not in the editView ca parents: 2353 diff changeset	23	poolDictionaries:''
c0e70e31ac28 close editor if button is pressed not in the editView ca parents: 2353 diff changeset	24	category:'Views-Trees'
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!HierarchicalListView class methodsFor:'documentation'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
1431 0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	29	copyright
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	30	"
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	31	COPYRIGHT (c) 1999 by eXept Software AG
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	32	All Rights Reserved
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	33
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	34	This software is furnished under a license and may be used
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	35	only in accordance with the terms of that license and with the
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	36	inclusion of the above copyright notice. This software may not
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	37	be provided or otherwise made available to, or used by, any
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	38	other person. No title to or ownership of the software is
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	39	hereby transferred.
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	40	"
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	41
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	42	!
0cc20a8f2f7c docu & copyright Claus Gittinger <cg@exept.de> parents: 1430 diff changeset	43
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	44	documentation
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	"
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	46	This class implements a hierarchical list view based on a
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	47	hierachical list.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	48	It provides functionality similar to SelectionInTreeView, but optimizes
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	49	redraws, and operates directly upon the model (in contrast to
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	50	SelectionInTreeView, which generates a list internally).
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	52	[Instance variables:]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	53	textStartLeft <Integer> inset between icon and text
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	54	imageInset <Integer> inset between left side and icon
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	55	imageWidth <Integer> width of widest icon
2312 d795e9b4423d recompute width of contents if indicatorAction changed ca parents: 2311 diff changeset	56	minLineHeight <Integer> minimum required line height
d795e9b4423d recompute width of contents if indicatorAction changed ca parents: 2311 diff changeset	57	including open/close indication ...
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	58	lineMask <Form> line mask
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	59	lineColor <Color> line color
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	60	showRoot <Boolean> root element is shown or hidden
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	61	derives from the hierachical list.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	62	showLines <Boolean> show or hide lines
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	63	showIndicators <Boolean> show or hide indicators
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	64	useDefaultIcons <Boolean> use the default icons if no icon
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	65	for an item is specified
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	66	icons <IdentityDictionary> list of registered icons;
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	67	identifier := <key> value := <icon>
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	68	showLeftIndicators <Boolean> show or hide indicator for most left items
2417 a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	69	indicatorAction <Block> action evaluated if indicator is pressed (0/1/2 arguments)
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	70	openIndicator <Icon, Image or Form> expanded indicator
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	71	closeIndicator <Icon, Image or Form> collapsed indicator
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	73	alignTextRight <Boolean> enable disable of align the text right
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	74	icon text
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	75	icon text of child
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	76	should be set after creation of the widget!!
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	77	alignTextRightX <Integer> left x position of aligned right text
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	78	maxWidthOfText <Integer> keeps the maximum width of a text label
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	79
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	80	levelOfLastItem <Integer> keeps the level of the last item;
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	81	in case of a delete last items from list
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	82	we know were to redraw lines from
2229 f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	83
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	84	autoScrollHorizontal <Boolean> true, than automatically scroll horizontal upto
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	85	the text label of the current selected line.
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	86
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	87	expandOnSelect <Boolean> true, than the item selected by a buttonPress
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	88	event will be immediately expanded.
f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	89
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	90	[author:]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	91	Claus Atzkern
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	92
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	93	[see also:]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	94	ListModelView
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	95	SelectionInListModelView
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	HierarchicalList
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97	HierarchicalItem
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	"
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	99	!
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	100
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	101	examples
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	102	"
1916 3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	103	show a hierarchical list
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	104	[exBegin]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	105	\|top sel list item\|
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	106
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	107	list := HierarchicalList new.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	108	item := HierarchicalItem::Example labeled:'Root Item'.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	109
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	110	item expand.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	111	list showRoot:false.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	112	list root:item.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	113
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	114	top := StandardSystemView new; extent:300@300.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	115	sel := ScrollableView for:HierarchicalListView miniScrollerH:true
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	116	origin:0.0@0.0 corner:1.0@1.0 in:top.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	117
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	118	sel list:list.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	119	sel multipleSelectOk:true.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	120
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	121	sel doubleClickAction:[:i\| (list at:i) toggleExpand ].
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	122	sel indicatorAction:[:i\| (list at:i) toggleExpand ].
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	123
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	124	top open.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	125	[exEnd]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	126
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	127
1916 3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	128	show a hierarchical list; open an editor on reselect a
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	129	line with label is a string.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	130
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	131	[exBegin]
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	132	\|top sel list item\|
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	133
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	134	list := HierarchicalList new.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	135	item := HierarchicalItem::Example labeled:'Root Item'.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	136
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	137	item expand.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	138	list showRoot:false.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	139	list root:item.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	140
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	141	top := StandardSystemView new; extent:300@300.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	142	sel := ScrollableView for:HierarchicalListView miniScrollerH:true
1916 3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	143	origin:0.0@0.0 corner:1.0@1.0 in:top.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	144
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	145	sel list:list.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	146
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	147	sel openEditorAction:[:ln :aGC\| \|field item\|
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	148	item := list at:ln.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	149
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	150	item label isString ifFalse:[
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	151	field := nil
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	152	] ifTrue:[
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	153	field := EditField new.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	154	field level:0.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	155	field acceptOnLostFocus:true.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	156	field acceptAction:[:x\| item label:(field contents) ].
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	157	field font:(aGC font).
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	158	field contents:(item label).
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	159	].
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	160	field
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	161	].
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	162
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	163	sel multipleSelectOk:true.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	164
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	165	sel doubleClickAction:[:i\| (list at:i) toggleExpand ].
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	166	sel indicatorAction:[:i\| (list at:i) toggleExpand ].
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	167
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	168	top open.
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	169	[exEnd]
3021f70d9211 add example for opening an editor on selected line ca parents: 1904 diff changeset	170
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	171	[exBegin]
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	172	\|top sel list item\|
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	173
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	174	list := HierarchicalList new.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	175	item := HierarchicalItem::Example labeled:'Root Item'.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	176
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	177	item expand.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	178	list showRoot:false.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	179	list root:item.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	180
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	181	top := StandardSystemView new; extent:300@300.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	182	sel := ScrollableView for:HierarchicalListView miniScrollerH:true
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	183	origin:0.0@0.0 corner:1.0@1.0 in:top.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	184
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	185	sel list:list.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	186	sel multipleSelectOk:true.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	187	sel alignTextRight:true.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	188	sel doubleClickAction:[:i\| (list at:i) toggleExpand ].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	189	sel indicatorAction:[:i\| (list at:i) toggleExpand ].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	190
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	191	top open.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	192	[exBegin]
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	193
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	194
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	195	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	196	!
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	197
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	198	test
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	199	\|top sel list item\|
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	200
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	201	list := HierarchicalList new.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	202	item := HierarchicalItem::Example labeled:'Root Item'.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	203
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	204	item expand.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	205	list showRoot:false.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	206	list root:item.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	207
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	208	top := StandardSystemView new; extent:300@300.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	209	sel := ScrollableView for:HierarchicalListView miniScrollerH:true
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	210	origin:0.0@0.0 corner:1.0@1.0 in:top.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	211
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	212	sel useDefaultIcons:false.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	213	sel list:list.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	214	sel multipleSelectOk:true.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	215	sel showLines:false.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	216
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	217	sel doubleClickAction:[:i\| (list at:i) toggleExpand ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	218	sel indicatorAction:[:i\| (list at:i) toggleExpand ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	219
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	220	top open.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	!HierarchicalListView class methodsFor:'resources'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	closeIndicator
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	226	"This resource specification was automatically generated
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	227	by the ImageEditor of ST/X."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	228
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	229	"Do not manually edit this!! If it is corrupted,
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	230	the ImageEditor may not be able to read the specification."
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	232	"
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	233	self closeIndicator inspect
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	234	ImageEditor openOnClass:self andSelector:#closeIndicator
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	235	Icon flushCachedIcons
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	236	"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	238	<resource: #image>
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	239
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	240	^Icon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	241	constantNamed:#'HierarchicalListView class closeIndicator'
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	242	ifAbsentPut:[(Depth2Image new) width: 9; height: 9; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUU@Z)@Z")@Z")@X@I-Z")@Z")KZ)@UUU;') ; colorMapFromArray:#[0 0 0 128 128 128 255 255 255]; yourself]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	245	collapsedIcon
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	246	"This resource specification was automatically generated
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	247	by the ImageEditor of ST/X."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	248
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	249	"Do not manually edit this!! If it is corrupted,
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	250	the ImageEditor may not be able to read the specification."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	251
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	252	"
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	253	self collapsedIcon inspect
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	254	ImageEditor openOnClass:self andSelector:#collapsedIcon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	255	Icon flushCachedIcons
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	256	"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	258	<resource: #image>
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	259
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	260	^Icon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	261	constantNamed:#'HierarchicalListView class collapsedIcon'
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	262	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@UP@@@@@@@@EUUUPAUUUT@UUUU@EUUUPAUUUT@UUUU@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O@A>@O?<??3??O?<??3??O?<??0@@@@@@@@b') ; yourself); yourself]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	265	emptyIcon
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	266	"This resource specification was automatically generated
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	267	by the ImageEditor of ST/X."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	268
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	269	"Do not manually edit this!! If it is corrupted,
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	270	the ImageEditor may not be able to read the specification."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	271
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272	"
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	273	self emptyIcon inspect
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	274	ImageEditor openOnClass:self andSelector:#emptyIcon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	275	Icon flushCachedIcons
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	276	"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	277
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	278	<resource: #image>
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	279
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	280	^Icon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	281	constantNamed:#'HierarchicalListView class emptyIcon'
2336 9977d831bb08 * empty log message * ca parents: 2335 diff changeset	282	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@EUTP@AUUE@@UUP@@EUUU@AUUUP@UUUT@EUUU@AUUUP@UUUT@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@O?@?>C?<O?8??#?>O?8??#?>O?8?? @@@@@@@@b') ; yourself); yourself]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	283	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	284
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285	expandedIcon
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	286	"This resource specification was automatically generated
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	287	by the ImageEditor of ST/X."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	288
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	289	"Do not manually edit this!! If it is corrupted,
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	290	the ImageEditor may not be able to read the specification."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	291
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292	"
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	293	self expandedIcon inspect
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	294	ImageEditor openOnClass:self andSelector:#expandedIcon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	295	Icon flushCachedIcons
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	296	"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	297
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	298	<resource: #image>
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	299
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	300	^Icon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	301	constantNamed:#'HierarchicalListView class expandedIcon'
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	302	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@UP@@@UU@@@EUUUPA@@@@@R* B(@(@**@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 179 179 179 255 255 0]; mask:((ImageMask new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@O@A>@O?<??3???????;??/?<??0@@@@@@@@b') ; yourself); yourself]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	303	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	304
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	305	openIndicator
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	306	"This resource specification was automatically generated
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	307	by the ImageEditor of ST/X."
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	308
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	309	"Do not manually edit this!! If it is corrupted,
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	310	the ImageEditor may not be able to read the specification."
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	311
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	312	"
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	313	self openIndicator inspect
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	314	ImageEditor openOnClass:self andSelector:#openIndicator
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	315	Icon flushCachedIcons
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	316	"
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	317
2335 8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	318	<resource: #image>
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	319
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	320	^Icon
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	321	constantNamed:#'HierarchicalListView class openIndicator'
8f551ed4bdc2 compile icons into code (donot read from file) ca parents: 2334 diff changeset	322	ifAbsentPut:[(Depth2Image new) width: 9; height: 9; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUU@Z)@Z)(Z)HX@I@Z)@Z)@Z)@UUU.') ; colorMapFromArray:#[0 0 0 128 128 128 255 255 255]; yourself]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	323	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	324
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	325	!HierarchicalListView methodsFor:'accessing'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	326
1843 61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	327	font:aFont
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	328	"set a new font; if the font changed, all my items
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	329	has to clear their cashed width and height
1843 61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	330	"
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	331	\|root\|
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	332
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	333	(aFont isNil or:[aFont = font]) ifFalse:[
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	334	root := self root.
8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	335	root notNil ifTrue:[ root fontChanged ].
1843 61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	336	super font:aFont
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	337	].
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	338	!
61595a6b2e37 handle font changed notification martin parents: 1818 diff changeset	339
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	340	list:aList
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	341	"test whether the list is not a hierarchical item and
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	342	retrieve the showRoot attribute from the list
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	343	"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	344	aList notNil ifTrue:[
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	345	aList isHierarchicalItem ifTrue:[
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	346	self list root:aList.
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	347	aList expand.
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	348	^ self
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	349	].
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	350	showRoot := aList showRoot.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	351	].
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	352	super list:aList
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	353	!
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	354
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	355	newDefaultList
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	356	"creates and returns a new default list class, on default a HierarchicalList
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	357	"
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	358	\|list\|
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	359
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	360	list := HierarchicalList new.
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	361	list showRoot:(showRoot ? true).
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	362	^ list
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	363	!
8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	364
8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	365	root
8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	366	"returns the anchor of the list or nil
8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	367	"
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	368	^ self list root
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	369	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	370
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	371	!HierarchicalListView methodsFor:'accessing-behavior'!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	372
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	373	autoScrollHorizontal
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	374	"returns true if automatic horizontal scrolling
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	375	(upto the text label of the selected line)
2898 745eeceeb6b5 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	376	is allowed (the default is as specified in the styleSheet)."
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	377
2866 01d609cfb3d9 autoscrollHorizontal confusion cleanup Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	378	^ autoScrollHorizontal == true
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	379	!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	380
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	381	autoScrollHorizontal:aBoolean
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	382	"true, than automatically scroll horizontal upto the text label
2898 745eeceeb6b5 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	383	of the current selected line."
745eeceeb6b5 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	384
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	385	autoScrollHorizontal := aBoolean.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	386	!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	387
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	388	expandOnSelect
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	389	"true, than the item selected by a buttonPress event will
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	390	be immediately expanded.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	391	"
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	392	^ expandOnSelect
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	393	!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	394
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	395	expandOnSelect:aBoolean
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	396	"true, than the item selected by a buttonPress event will
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	397	be immediately expanded.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	398	"
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	399	expandOnSelect := aBoolean.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	400	! !
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	401
1818 fe99c5c721e9 category changes Claus Gittinger <cg@exept.de> parents: 1792 diff changeset	402	!HierarchicalListView methodsFor:'accessing-colors'!
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	403
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	404	lineColor
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	405	"get the color of the horizontal and vertical lines
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	406	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	407	^ lineColor
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	408	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	409
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	410	lineColor:aColor
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	411	"set the color of the horizontal and vertical lines
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	412	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	413	(aColor notNil and:[aColor ~= lineColor]) ifTrue:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	414	lineColor := aColor.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	415
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	416	shown ifTrue:[
2099 64402b3555eb Do not use obsolete methods. Stefan Vogel <sv@exept.de> parents: 2094 diff changeset	417	lineColor := lineColor onDevice:device.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	418	showLines ifTrue:[ self invalidate ]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	419	]
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	420	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	421	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	422
1818 fe99c5c721e9 category changes Claus Gittinger <cg@exept.de> parents: 1792 diff changeset	423	!HierarchicalListView methodsFor:'accessing-look'!
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	424
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	425	alignTextRight
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	426	"align the text right
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	427	"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	428	^ alignTextRight
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	429	!
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	430
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	431	alignTextRight:aBool
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	432	"align the text right
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	433	"
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	434	alignTextRight := aBool ? false.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	435	!
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	436
1904 84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	437	alignTextRightX
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	438	"returns the minimum used text inset, if text is aligned right.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	439	"
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	440	^ alignTextRightX
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	441	!
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	442
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	443	alignTextRightX:aNumber
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	444	"set the minimum used text inset, if text is aligned right.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	445	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	446	aNumber > 0 ifTrue:[
1904 84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	447	alignTextRightX := aNumber.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	448
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	449	(alignTextRight and:[widthOfContents notNil]) ifTrue:[
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	450	widthOfContents := alignTextRightX + maxWidthOfText.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	451
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	452	shown ifTrue:[
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	453	self invalidate.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	454	self contentsChanged.
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	455	]
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	456	]
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	457	].
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	458	!
84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	459
2094 71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	460	iconAt:aKey ifAbsentPut:aBlock
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	461	"return the icon stored under a key; if not present,the
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	462	result of the block if not nil is stored under the key
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	463	and returned.
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	464	"
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	465	\|icon\|
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	466
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	467	icon := icons at:aKey ifAbsent:nil.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	468	icon notNil ifTrue:[^ icon].
2094 71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	469
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	470	icon := aBlock value.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	471	icon isNil ifTrue:[^ nil].
2094 71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	472
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	473	realized ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	474	icon := self imageOnMyDevice:icon
2094 71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	475	].
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	476	icons at:aKey put:icon.
2814 612c60d1a9ba * empty log message * Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	477	^ icon
2094 71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	478	!
71c676b5f061 add icons which are stored under a specific key ca parents: 2069 diff changeset	479
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480	registerKeysAndIcons:aDictionary
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	"register icons by key and value derived from a directory
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	\|image\|
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
2880 74b81246abf1 isEmptyOrNil / notEmptyOrNil refactoring Claus Gittinger <cg@exept.de> parents: 2866 diff changeset	485	(aDictionary isEmptyOrNil) ifTrue:[
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	^ self
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	aDictionary keysAndValuesDo:[:aKey :anImage\|
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	490	(image := self imageOnMyDevice:anImage) notNil ifTrue:[
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491	icons at:aKey put:image
1746 0a4f786f8c9a icon handling; default icons can be undefined ca parents: 1738 diff changeset	492	] ifFalse:[
0a4f786f8c9a icon handling; default icons can be undefined ca parents: 1738 diff changeset	493	icons removeKey:aKey ifAbsent:nil
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	496	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	497
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	498	showIndicators
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	499	"returns true if indicators are shown
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	500	"
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	501	^ showIndicators
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	502	!
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	503
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	504	showIndicators:aBoolean
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	505	"true if indicators are shown
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	506	"
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	507	showIndicators ~~ aBoolean ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	508	showIndicators := aBoolean.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	509	self invalidate.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	510	].
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	511	!
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	512
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	513	showLeftIndicators
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	514	"show or hide the indicators for the most left items
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	515	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516	^ showLeftIndicators
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	518	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	519
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	520	showLeftIndicators:aBoolean
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	521	"show or hide the indicators for the most left items
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	522	"
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	523	\|oldInset newInset\|
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	524
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	525	aBoolean == showLeftIndicators ifTrue:[ ^ self ].
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	526
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	527	(widthOfContents isNil or:[self size == 0]) ifTrue:[
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	528	showLeftIndicators := aBoolean.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	529	^ self
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	530	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	531
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	532	oldInset := self xVisibleOfIconAtLevel:3.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	533	showLeftIndicators := aBoolean.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	534	newInset := self xVisibleOfIconAtLevel:3.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	535
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	536	newInset ~~ oldInset ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	537	widthOfContents := widthOfContents + (newInset - oldInset).
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	538	].
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	539
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	540	self invalidate.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	541
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	542	newInset ~~ oldInset ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	543	self contentsChanged
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	545	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	546
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	547	showLines
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	548	"returns true if lines are shown
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	549	"
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	550	^ showLines
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	551	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	553	showLines:aBoolean
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	554	"show or hide lines
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	555	"
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	556	aBoolean ~~ showLines ifTrue:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	557	showLines := aBoolean.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	558	self invalidate.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	559	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	560	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	561
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	562	showRoot
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	563	"true if the root is shown
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	564	"
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	565	^ showRoot
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	566	!
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	567
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	568	showRoot:aBoolean
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	569	"true if the root is shown
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	570	"
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	571	showRoot ~~ aBoolean ifTrue:[
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	572	showRoot := aBoolean.
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	573	self list showRoot:showRoot.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	574	self invalidate
2421 f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	575	].
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	576	!
f5654eeb3118 test whether list is a hierachical item ca parents: 2417 diff changeset	577
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	useDefaultIcons
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	"use the default icons if no icon for an item is specified;
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	** default: true
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582	^ useDefaultIcons
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	585	useDefaultIcons:aBoolean
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	586	"use the default icons if no icon for an item is specified;
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	587	** default: true
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	588	"
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	589	useDefaultIcons ~~ aBoolean ifTrue:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	590	useDefaultIcons := aBoolean.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	591	self invalidate.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	592	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	593	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	594
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	595	!HierarchicalListView methodsFor:'actions'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	indicatorAction
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	598	"the action evaluated if an indicator is pressed; otherwise
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	599	if indicators are shown a default action is performed (toggle expand item).
2417 a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	600
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	601	The arguments to the block are:
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	602	- no argument
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	603	- 1 argument index
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	604	- 2 argument index, self
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	605	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	606	^ indicatorAction
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	609	indicatorAction:anAction
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	610	"the action evaluated if an indicator is pressed; otherwise
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	611	if indicators are shown a default action is performed (toggle expand item).
2417 a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	612
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	613	The arguments to the block are:
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	614	- no argument
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	615	- 1 argument index
a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	616	- 2 argument index, self
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	617	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	indicatorAction := anAction.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	620
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	621	!HierarchicalListView methodsFor:'change & update'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622
1782 4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	623	indicatorPressedAt:aLnNr
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	624	"handle indicator pressed action;
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	625	if the item changed expanded, we try to show all
2822 3538a17ef98c remove unused method vars Stefan Vogel <sv@exept.de> parents: 2814 diff changeset	626	new visible children"
3538a17ef98c remove unused method vars Stefan Vogel <sv@exept.de> parents: 2814 diff changeset	627
3538a17ef98c remove unused method vars Stefan Vogel <sv@exept.de> parents: 2814 diff changeset	628	\|item expanded dl\|
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	629
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	630	showIndicators ifFalse:[^ self].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	631
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	632	item := self at:aLnNr ifAbsent:nil.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	633	item isNil ifTrue:[^ self].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	634
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	635	item hasIndicator ifFalse:[^ self].
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	636
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	637	expanded := item isExpanded.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	638
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	639	indicatorAction notNil ifTrue:[
2417 a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	640	indicatorAction valueWithOptionalArgument:aLnNr and:self.
2546 9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	641	] ifFalse:[ \|sensor\|
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	642	sensor := self sensor.
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	643	(sensor ctrlDown or:[sensor shiftDown]) ifTrue:[
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	644	item recursiveToggleExpand
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	645	] ifFalse:[
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	646	item toggleExpand
9a907b626499 Do recursive toggelExpand if an indicator is pressed with shift or control Stefan Vogel <sv@exept.de> parents: 2518 diff changeset	647	].
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	648	].
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	649
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	650	(expanded or:[item isExpanded not]) ifTrue:[^ self].
1783 ffe767ea66ea check whether children exists before calling indicatorPressed action ca parents: 1782 diff changeset	651
2769 1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	652	(self yVisibleOfLine:aLnNr+1) > self height ifTrue:[
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	653	dl := (self yVisibleOfLine:aLnNr+1) - (self yVisibleOfLine:aLnNr).
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	654	self scrollTo:(viewOrigin x @ (viewOrigin y + dl)).
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	655	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	656
2769 1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	657	"/ numChildren := item numberOfVisibleChildren.
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	658	"/ numChildren == 0 ifTrue:[
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	659	"/ ^ self
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	660	"/ ].
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	661	^ self
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	662
2769 1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	663	"/ idx := aLnNr + numChildren.
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	664	"/ vwOrgY := viewOrigin y.
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	665	"/ availY := (self yVisibleOfLine:aLnNr) - (self yVisibleOfLine:1).
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	666	"/
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	667	"/ availY > margin ifTrue:[
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	668	"/ usedY := (self yVisibleOfLine:(idx + 1)) - (height - margin - margin).
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	669	"/
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	670	"/ usedY > 1 ifTrue:[
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	671	"/ vwOrgY := vwOrgY + (usedY min:availY).
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	672	"/ ].
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	673	"/ ].
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	674	"/ vwOrgX := self computeViewOriginXat:aLnNr.
1315a31fa1e8 do not scroll when expanding Claus Gittinger <cg@exept.de> parents: 2726 diff changeset	675	"/ self scrollTo:(vwOrgX @ vwOrgY).
1782 4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	676	!
4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	677
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	lineChangedAt:aLnNr with:arg
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	"line changed at position; check whether line height changed
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	680	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	681	\|item
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	682	level "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	683	x0 "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	684	x1 "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	685	y0 "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	686	y1 "{ Class:SmallInteger }"
2303 94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	687	yB "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	688	\|
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	690	item := self at:aLnNr ifAbsent:nil.
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	691	item isNil ifTrue:[^ self].
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	692
1399 da1eed642569 * empty log message * Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	693	(arg == #icon or:[arg == #hierarchy]) ifFalse:[
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	694	super lineChangedAt:aLnNr with:arg.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	695
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	696	(arg ~~ #redraw and:[widthOfContents notNil]) ifTrue:[
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	697	x0 := (self xVisibleOfTextAtLevel:(item level))
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	698	+ (renderer widthFor:item)
2229 f1a236f5bd48 horizontal scrolling and documentation ca parents: 2227 diff changeset	699	+ (viewOrigin x).
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	700
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	701	x0 > widthOfContents ifTrue:[
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	702	widthOfContents := x0.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	703	self contentsChanged.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	704	]
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	705	].
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	706	^ self
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	707	].
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	708	level := item level.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	709
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	710	(alignTextRight and:[arg == #hierarchy]) ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	711	"/ must test whether alignTextRightX is enough
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	712	(item isExpanded and:[item hasChildren]) ifTrue:[
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	713	x0 := self xVisibleOfIconAtLevel:(level + 2).
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	714
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	715	alignTextRightX < x0 ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	716	alignTextRightX := x0.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	717	self invalidate.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	718
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	719	widthOfContents notNil ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	720	widthOfContents := alignTextRightX + maxWidthOfText.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	721	self contentsChanged.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	722	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	723	^ self.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	724	]
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	725	]
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	726	].
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	727	shown ifFalse:[^ self].
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	728
2303 94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	729	yB := height - margin.
94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	730	y0 := (self yVisibleOfLine:aLnNr) max:margin.
94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	731	y0 < yB ifFalse:[ ^ self ].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	732
2303 94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	733	y1 := (self yVisibleOfLine:(aLnNr + 1)) min:yB.
94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	734	y1 > y0 ifFalse:[^ self].
1399 da1eed642569 * empty log message * Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	735
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	736	x1 := (self xVisibleOfTextAtLevel:level) - 1.
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	737	x1 > margin ifFalse:[^ self].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	738
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	739	x0 := (self xVisibleOfIndicatorAtLevel:level) max:margin.
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	740	x1 := x1 min:(width - margin).
2303 94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	741
2317 5f44d976c81f * empty log message * ca parents: 2316 diff changeset	742	x0 < x1 ifTrue:[
5f44d976c81f * empty log message * ca parents: 2316 diff changeset	743	self invalidate:(Rectangle left:x0 top:y0 width:(x1 - x0) height:(y1 - y0))
5f44d976c81f * empty log message * ca parents: 2316 diff changeset	744	repairNow:false.
2303 94ba4cf1376c must recompute width of contents if line changed ca parents: 2295 diff changeset	745	].
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	746	!
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	748	listChangedInsert:firstAddedIndex nItems:nLines
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	749	"must draw vertical lines above the added items
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	750	"
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	751	\|item level yTop yBot xLft start maxY\|
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	752
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	753	super listChangedInsert:firstAddedIndex nItems:nLines.
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	754
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	755	item := self last.
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	756	levelOfLastItem := item level.
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	757
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	758	( shown
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	759	and:[showLines
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	760	and:[firstAddedIndex > 1
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	761	and:[nLines ~~ 0
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	762	and:[(item := self at:firstAddedIndex ifAbsent:nil) notNil
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	763	and:[(level := item level) > 1]]]]]
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	764	) ifFalse:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	765	^ self.
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	766	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	767	xLft := self xVisibleOfVerticalLineAt:level.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	768
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	769	(xLft > margin and:[xLft < (width - margin)]) ifFalse:[
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	770	^ self
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	771	].
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	772	start := firstAddedIndex - 1.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	774	start to:1 by:-1 do:[:i\| \|el\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	775	el := self at:i.
1399 da1eed642569 * empty log message * Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	776
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	777	el level <= level ifTrue:[
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	778	i == start ifTrue:[^ self].
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	779
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	780	yTop := (self yVisibleOfLine:i + 1) max:margin.
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	781	maxY := height - margin.
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	782
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	783	yTop < maxY ifTrue:[
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	784	yBot := (self yVisibleOfLine:firstAddedIndex) - 1 min:maxY.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	785	self invalidate:(Rectangle left:xLft top:yTop width:2 height:(yBot - yTop))
1976 1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	786	].
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	787	^ self
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	788	]
1788b0045176 bug fix when adding new elements; must draw vertical lines above ca parents: 1916 diff changeset	789	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	791
2208 ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	792	listChangedRemove:aStart toIndex:aStop
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	793	"test whether last items are deleted;
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	794	than we have to redraw lines because of different levels
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	795	"
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	796	\|listSize index y0 searchLevel\|
2208 ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	797
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	798	listSize := self size.
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	799	searchLevel := levelOfLastItem.
2208 ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	800
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	801	listSize == 0 ifTrue:[ levelOfLastItem := 1 ]
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	802	ifFalse:[ levelOfLastItem := self last level ].
2208 ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	803
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	804	(shown and:[showLines and:[listSize ~~ 0 and:[aStart > listSize]]]) ifTrue:[
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	805	index := self findLast:[:el\| el level <= searchLevel ].
2208 ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	806
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	807	(index ~~ 0 and:[index < listSize]) ifTrue:[
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	808	y0 := (self yVisibleOfLine:index) max:margin.
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	809	self invalidateX:0 y:y0 width:width height:(height - margin - y0).
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	810	]
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	811	].
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	812	^ super listChangedRemove:aStart toIndex:aStop
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	813	!
ebd026780ad7 * empty log message * ca parents: 2201 diff changeset	814
2644 78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	815	updateFromList:what with:aPara
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	816	"get the status of <showRoot> from the list
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	817	"
2644 78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	818	\|newState\|
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	819
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	820	newState := self list showRoot.
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	821
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	822	showRoot ~~ newState ifTrue:[
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	823	showRoot := newState.
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	824	self invalidate.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	825	].
2644 78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	826	super updateFromList:what with:aPara.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	827	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	828
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829	!HierarchicalListView methodsFor:'drawing basics'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	831	drawElementsFrom:start to:stop x:xLeft y:yT w:w
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	832	"draw the items between start to stop without clearing the background
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	834	\|item prevParent icon showIndc showIcon showText
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	835	yTop "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	836	yCtr "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	837	yBot "{ Class:SmallInteger }"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	838	level "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	840	xIndc "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	841	xIcon "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	842	xText "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	843	xL "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	844	xR "{ Class:SmallInteger }"
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	845	height "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	847	offIndcY "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	\|
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	849	xL := xLeft.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	850	xR := xL + w.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	852	showIndicators ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	853	offIndcY := openIndicator width // 2.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856	showLines ifTrue:[
1399 da1eed642569 * empty log message * Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	857	self drawLinesFrom:start to:stop x:xL y:yT toX:xR
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	858	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	859	prevParent := #NIL. "/ to force a recompute
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	860	yBot := yT.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	861	showIndc := false.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863	start to:stop do:[:anIndex\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	864	(item := self at:anIndex ifAbsent:nil) isNil ifTrue:[
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	^ self "/ list changed
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	867	yTop := yBot.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	868	yBot := self yVisibleOfLine:(anIndex + 1).
1532 56e0fafc4349 change display protocol for item Claus Gittinger <cg@exept.de> parents: 1509 diff changeset	869	height := yBot - yTop.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	870	yCtr := yTop + (height // 2).
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	872	item parent ~~ prevParent ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	873	prevParent := item parent.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	874	level := item level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	875	xIcon := self xVisibleOfIconAtLevel:level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	876	xText := self xVisibleOfTextAtLevel:level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	877	showText := (xText < xR).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	878	showIcon := (xIcon < xR and:[xText > xL]).
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	880	showIndicators ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	881	xIndc := self xVisibleOfIndicatorAtLevel:level.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	882	showIndc := (xIcon > xL and:[xIndc < xR]).
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	884	showIndc ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	885	showIndc := prevParent notNil or:[showLeftIndicators]
1756 f0f9ae674364 supress warnings ca parents: 1752 diff changeset	886	]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	888	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	890	(showIcon and:[(icon := self validateDrawableIconFor:item) notNil]) ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	891	(xIcon + icon width) > xL ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	892	icon displayOn:self x:xIcon y:(yCtr - (icon height // 2))
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	893	]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	896	showText ifTrue:[
1532 56e0fafc4349 change display protocol for item Claus Gittinger <cg@exept.de> parents: 1509 diff changeset	897	self drawLabelAt:anIndex x:xText y:yTop h:height
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	898	].
2201 aa74fa6137a5 make indicator dependent on hasIndicator and not hasChildren ca parents: 2181 diff changeset	899	(showIndc and:[item hasIndicator]) ifTrue:[
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	900	item isExpanded ifTrue:[icon := openIndicator ]
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	901	ifFalse:[icon := closeIndicator].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	902
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	903	icon displayOn:self x:xIndc y:(yCtr - offIndcY)
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	905	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907
1399 da1eed642569 * empty log message * Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	908	drawLinesFrom:start to:stop x:xL y:yT toX:xR
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909	"draw the lines between start to stop without clearing the background
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	911	\|item prevItem parent p1 p2 showVLines showHLine lv buildInArray showLeftIdc
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	913	x "{ Class:SmallInteger }"
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	914	xText "{ Class:SmallInteger }"
c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	915
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	916	y "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	917	yTop "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	918	yBot "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919	yCtr "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	920
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	921	begHLnY "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	runHLnY "{ Class:SmallInteger }"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	923	lftVrtX "{ Class:SmallInteger }"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	924	rgtVrtX "{ Class:SmallInteger }"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	925	level "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	927	minVertLevel "{ Class:SmallInteger }"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	928	minHorzLevel "{ Class:SmallInteger }"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	929	smallestLevel "{ Class:SmallInteger }"
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	930	\|
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	931	parent := prevItem := 4711. "/ to force a recompute
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	932
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	933	self setMaskOrigin:(self viewOrigin + (0 @ 1) \\ (lineMask extent)).
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	934	self paint:lineColor on:bgColor.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	935	self mask:lineMask.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	936
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	937	smallestLevel := self smallestLevelBetween:start and:stop.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	938	minVertLevel := 2.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	939
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	940	showLeftIndicators ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	941	showLeftIdc := showIndicators.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	942	showRoot ifFalse:[ minVertLevel := 3 ]
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	943	] ifFalse:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	944	showLeftIdc := false.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	945	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	946
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	947	showRoot ifFalse:[ minHorzLevel := 2 ]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	948	ifTrue:[ minHorzLevel := 1 ].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	950	showLeftIdc ifFalse:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	951	minHorzLevel := minHorzLevel + 1.
1897 5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	952	].
5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	953
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	954	yBot := begHLnY := runHLnY := yT.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	955	level := 1.
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	956
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	start to:stop do:[:anIndex\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	958	(item := self at:anIndex ifAbsent:nil) isNil ifTrue:[
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959	^ self mask:nil "/ list changed
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	960	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	961	yTop := yBot.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	962	yBot := self yVisibleOfLine:(anIndex + 1).
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	963	yCtr := yTop + (yBot - yTop // 2).
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	965	item parent ~~ parent ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	966	anIndex == 1 ifTrue:[ begHLnY := runHLnY := yCtr ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	967	parent := item parent.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	968
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	969	prevItem == parent ifTrue:[
1567 f57fafbb7049 bug fix when drawing vertical lines ca parents: 1566 diff changeset	970	level := level + 1.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	971	lftVrtX := rgtVrtX.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	972	] ifFalse:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	973	level := item level.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	974	lftVrtX := self xVisibleOfVerticalLineAt:level.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	976	showVLines := (level >= minVertLevel and:[lftVrtX >= xL]).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	977	rgtVrtX := self xVisibleOfVerticalLineAt:level + 1.
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	978
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	979	level >= minHorzLevel ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	980	xText := (self xVisibleOfTextAtLevel:level) - textStartLeft.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	981	showHLine := (xL < xText and:[xR > lftVrtX]).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	982	] ifFalse:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	983	showHLine := false
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	984	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	986
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987	showHLine ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	988	( level ~~ 2
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	989	or:[showRoot or:[(showLeftIdc and:[item hasIndicator])]]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	990	) ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	991	item drawHorizontalLineUpToText ifTrue:[ x := xText ]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	992	ifFalse:[ x := rgtVrtX ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	993
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	994	self displayLineFromX:lftVrtX y:yCtr toX:x y:yCtr.
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	995	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	996	].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	997
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	998	anIndex == start ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	999	(item isExpanded and:[item hasChildren]) ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1000	self displayLineFromX:rgtVrtX y:yCtr toX:rgtVrtX y:yBot.
1570 c8baa4a17043 support configuration of length of vertical line ca parents: 1568 diff changeset	1001	]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004	showVLines ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1005	parent last == item ifTrue:[ y := yCtr ]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1006	ifFalse:[ y := yBot ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1007	x := lftVrtX.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	p2 := parent.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	lv := level - 1.
1897 5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	1010
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1011	level >= smallestLevel ifTrue:[
1897 5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	1012	self displayLineFromX:x y:runHLnY toX:x y:y.
5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	1013	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1014
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1015	[ (p2 notNil and:[lv >= minVertLevel]) ] whileTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1016	p1 := p2 parent.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1017
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1018	p1 notNil ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1019	x := self xVisibleOfVerticalLineAt:lv.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1020
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1021	x < xL ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1022	p1 := nil.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1023	] ifFalse:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1024	p1 last ~~ p2 ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1025	lv >= smallestLevel ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1026	self displayLineFromX:x y:(yTop - 1) toX:x y:yBot
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1027	] ifFalse:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1028	buildInArray isNil ifTrue:[buildInArray := Array new:smallestLevel].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1029	buildInArray at:lv put:yBot
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1030	]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1031	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1032	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1033	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1034	p2 := p1.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1035	lv := lv - 1.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1036	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	prevItem := item.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039	runHLnY := yCtr.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1041
1567 f57fafbb7049 bug fix when drawing vertical lines ca parents: 1566 diff changeset	1042	buildInArray notNil ifTrue:[
f57fafbb7049 bug fix when drawing vertical lines ca parents: 1566 diff changeset	1043	y := begHLnY.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1044
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1045	2 to:smallestLevel do:[:i\| \|u yB\|
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1046	(yB := buildInArray at:i) notNil ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1047	x := self xVisibleOfVerticalLineAt:i.
1596 0792a5f915ab checkin from browser Claus Gittinger <cg@exept.de> parents: 1579 diff changeset	1048
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1049	x >= xL ifTrue:[
1897 5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	1050	self displayLineFromX:x y:y toX:x y:yB
5609f92e6d4a do not draw the first vertical line if the rootItem is not visible ca parents: 1843 diff changeset	1051	]
1567 f57fafbb7049 bug fix when drawing vertical lines ca parents: 1566 diff changeset	1052	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1053	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1054	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1055	self mask:nil.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1056	!
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1057
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1058	validateDrawableIconFor:anItem
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1059	"returns the icon to be drawn for an item or nil
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1060	test the extent of the icopn; on error an exception is raised
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1061	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1062	\|width needMore icon maxLevel startOfText oldX newX\|
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1063
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1064	icon := self iconFor:anItem.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1065	icon isNil ifTrue:[^ nil].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1066
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1067	width := icon width.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1068
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1069	(constantHeight notNil and:[icon height > constantHeight]) ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1070	constantHeight := icon height + lineSpacing.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1071	self recomputeHeightOfContents.
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1072
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1073	width <= imageWidth ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1074	self contentsChanged.
2551 84b5eef43b23 * empty log message * Claus Gittinger <cg@exept.de> parents: 2546 diff changeset	1075	StopRedrawSignal raiseRequest
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1076	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1077	] ifFalse:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1078	width <= imageWidth ifTrue:[ ^ icon ].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1079	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1080
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1081	maxLevel := 1.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1082
2595 1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	1083	self list criticalDo:[
1ab5dc7d4796 create a default list; thus we have not to test for nil ca parents: 2554 diff changeset	1084	self list do:[:el\| maxLevel := maxLevel max:(el level) ].
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1085	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1086
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1087	needMore := (width - imageWidth) max:2.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1088	oldX := self xVisibleOfIconAtLevel:(maxLevel + 1).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1089	imageWidth := imageWidth + needMore.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1090	newX := self xVisibleOfIconAtLevel:(maxLevel + 1).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1091	alignTextRightX := alignTextRightX max:newX.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1092
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1093	widthOfContents notNil ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1094	alignTextRight ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1095	widthOfContents := alignTextRightX + maxWidthOfText
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1096	] ifFalse:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1097	widthOfContents := widthOfContents + (newX - oldX)
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1098	].
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1099	width := renderer widthFor:anItem.
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1100	startOfText := self xVisibleOfTextAtLevel:(anItem level).
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1101	widthOfContents := widthOfContents max:(startOfText + width).
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1102
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1103	width > maxWidthOfText ifTrue:[
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1104	maxWidthOfText := width
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1105	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1106	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1107	self contentsChanged.
2554 0df306e11170 raise -> raiseRequest Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	1108	StopRedrawSignal raiseRequest.
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1109	^ icon
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1110	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1111
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1112	!HierarchicalListView methodsFor:'event handling'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1114	buttonPress:button x:x y:y
2791 ebf038543951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2780 diff changeset	1115	"handle a button press event"
ebf038543951 * empty log message * Claus Gittinger <cg@exept.de> parents: 2780 diff changeset	1116
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1117	\|line item x0 y0\|
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1118
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1119	enabled ifFalse:[^ self].
2361 c0e70e31ac28 close editor if button is pressed not in the editView ca parents: 2353 diff changeset	1120	self closeEditor.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1121
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1122	line := self yVisibleToLineNr:y.
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1123	line notNil ifTrue:[
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1124	item := self at:line ifAbsent:nil.
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1125	item notNil ifTrue:[
2518 d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1126	x0 := self xVisibleOfIconAtLevel:(item level).
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1127	x >= x0 ifTrue:[
2518 d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1128	x0 := self xVisibleOfTextAtLevel:(item level).
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1129	y0 := self yVisibleOfLine:line.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1130
2518 d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1131	x >= x0 ifTrue:[
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1132	(item processButtonPress:button x:(x - x0) y:(y - y0) on:self) == true ifTrue:[
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1133	^ self
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1134	]
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1135	] ifFalse:[
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1136	(item processButtonPressOnIcon:button on:self) == true ifTrue:[
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1137	^ self
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1138	]
d1ca14b3b8c1 delegate button events to hierarchical item james parents: 2500 diff changeset	1139	]
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1140	].
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1141	]
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1142	] ifFalse:[
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1143	item := nil
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1144	].
6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1145
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1146	showIndicators ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1147	(button == 1 or:[button == #select]) ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1148	(item notNil and:[item hasIndicator]) ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1149	x0 := self xVisibleOfIndicatorAtLevel:(item level).
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1150
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1151	(x between:x0 and:(x0 + openIndicator width)) ifTrue:[
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1152	self indicatorPressedAt:line.
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1153	^ self
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1154	].
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1155	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1156	].
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1157	].
2313 6e91bdaac5bc delegate buttonPress event to the item ca parents: 2312 diff changeset	1158
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1159	super buttonPress:button x:x y:y.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1160	!
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1162	buttonPressOrReleaseAtLine:aLnNr x:x y:y
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1163	"handle a button press or release at a line
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1164	"
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1165	\|oldIdx newIdx newItem\|
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1166
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1167	oldIdx := self selectedIndex.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1168	super buttonPressOrReleaseAtLine:aLnNr x:x y:y.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1169	newIdx := self selectedIndex.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1170
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1171	(newIdx ~~ oldIdx and:[newIdx ~~ 0]) ifTrue:[
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1172	expandOnSelect ifTrue:[
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1173	newItem := self at:newIdx ifAbsent:nil.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1174	newItem isNil ifTrue:[^ self].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1175	newItem expand
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1176	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1177	self makeLineVisible:newIdx.
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1178	].
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1179	!
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1180
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1181	keyPress:aKey x:x y:y
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1182	"a key was pressed - handle page-keys here
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1183	"
1784 4b8a7a2811f5 * empty log message * ca parents: 1783 diff changeset	1184	<resource: #keyboard( #CursorLeft #CursorRight )>
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1185
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1186	\|item lineNr isCursorLeft\|
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1187
1782 4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	1188	enabled ifFalse:[^ self].
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1189
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1190	( aKey == Character space
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1191	or:[aKey == #CursorRight
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1192	or:[aKey == #CursorLeft]]
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1193	) ifFalse:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1194	super keyPress:aKey x:x y:y.
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1195	^ self
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1196	].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1197
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1198	lineNr := self cursorLine.
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1199
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1200	lineNr ~~ 0 ifTrue:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1201	item := cursorItem
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1202	] ifFalse:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1203	lineNr := self selectedIndex.
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1204	lineNr == 0 ifTrue:[^ self].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1205
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1206	item := self at:lineNr ifAbsent:nil.
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1207	item isNil ifTrue:[^ self].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1208	].
1782 4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	1209
4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	1210	aKey == Character space ifTrue:[
2378 1352390d1916 toggleExpand insteat of indixcatorClickedAt: ca parents: 2377 diff changeset	1211	item toggleExpand.
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1212	^ self
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1213	].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1214	isCursorLeft := aKey == #CursorLeft.
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1215
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1216	item isExpanded == isCursorLeft ifTrue:[
2378 1352390d1916 toggleExpand insteat of indixcatorClickedAt: ca parents: 2377 diff changeset	1217	item toggleExpand.
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1218	^ self
1782 4fa475b5037e allow space for indicatationPressed action ca parents: 1779 diff changeset	1219	].
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1220	isCursorLeft ifTrue:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1221	(item := item parent) isNil ifTrue:[^ self].
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1222	lineNr := self identityIndexOf:item.
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1223	] ifFalse:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1224	item hasChildren ifFalse:[^ self].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1225	lineNr := lineNr + 1.
2179 e105597b0375 on press key left to parent if not expanded penk parents: 2134 diff changeset	1226	].
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1227
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1228	item := self at:lineNr ifAbsent:nil.
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1229	item isNil ifTrue:[^ self].
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1230
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1231	(self canSelectIndex:lineNr forAdd:false) ifTrue:[
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1232	self selection:lineNr
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1233	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1234	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1235
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1236	!HierarchicalListView methodsFor:'fetch resources'!
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1237
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1238	fetchResources
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1239	"fetch device colors and ..., to avoid reallocation at redraw time;
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1240	*** called after a create or snapin to fetch all device resources
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1241	"
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1242	\|image defaultWidth\|
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1243
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1244	super fetchResources.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1245
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1246	lineColor := lineColor onDevice:device.
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1247	openIndicator := self imageOnMyDevice:openIndicator.
74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1248	closeIndicator := self imageOnMyDevice:closeIndicator.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1249	defaultWidth := imageWidth.
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1250
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1251	icons keysAndValuesDo:[:aKey :anImage\|
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1252	anImage isNil ifTrue:[
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1253	('HierachicalListView [warning]: missing image: ' , aKey) errorPrintCR.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1254	] ifFalse:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1255	image := self imageOnMyDevice:anImage.
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1256	icons at:aKey put:image.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1257	imageWidth := image width max:imageWidth.
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1258	]
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1259	].
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1260	imageWidth := (imageWidth + 1 // 2 * 2) max:defaultWidth.
1904 84155d7a6011 access method for #alignTextRightX ca parents: 1898 diff changeset	1261	alignTextRightX := imageWidth + 20 max:alignTextRightX.
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1262	! !
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1263
2500 1477b0a5a918 method category rename Claus Gittinger <cg@exept.de> parents: 2488 diff changeset	1264	!HierarchicalListView methodsFor:'initialization & release'!
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266	initStyle
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	"setup viewStyle specifics
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	"
2923 b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1269	<resource: #style (#'selection.highlightEnterItem'
b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1270	#'selection.expandOnSelect'
b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1271	#'selection.autoScrollHorizontal'
b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1272	)>
b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1273
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	\|cls\|
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	super initStyle.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1277
2377 6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1278	cls := self class.
6c368b8b0ec3 support cursor movements ca parents: 2366 diff changeset	1279	icons := Dictionary new.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1280
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1281	openIndicator := self class openIndicator.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1282	closeIndicator := self class closeIndicator.
2312 d795e9b4423d recompute width of contents if indicatorAction changed ca parents: 2311 diff changeset	1283	minLineHeight := (openIndicator height) max:(closeIndicator height).
d795e9b4423d recompute width of contents if indicatorAction changed ca parents: 2311 diff changeset	1284
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1285	lineColor := fgColor.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1286	highlightMode := #label.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1287	showRoot := true.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288	showLeftIndicators := true.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289	useDefaultIcons := true.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290	showLines := true.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291	imageInset := 4.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1292	imageWidth := 0.
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1293	alignTextRight := false.
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1294	alignTextRightX := 8.
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1295	maxWidthOfText := 0.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1296
2328 c764c3094d67 di not use style name for flags ca parents: 2327 diff changeset	1297	highlightEnterItem := styleSheet at:#'selection.highlightEnterItem' default:false.
2310 b3a1b03a9647 read #expandOnSelect from styleSheet ca parents: 2307 diff changeset	1298	expandOnSelect := styleSheet at:#'selection.expandOnSelect' default:false.
2898 745eeceeb6b5 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	1299	autoScrollHorizontal := styleSheet at:#'selection.autoScrollHorizontal' default:nil.
2210 c2b830a14832 * empty log message * ca parents: 2208 diff changeset	1300	!
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	1301
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	1302	initialize
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	1303	super initialize.
c2b830a14832 * empty log message * ca parents: 2208 diff changeset	1304	levelOfLastItem := 1.
2898 745eeceeb6b5 autoScrollHoriz Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	1305	autoScrollHorizontal := true.
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1306
2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1307	self showIndicators:true.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310	!HierarchicalListView methodsFor:'private'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1312	iconFor:anItem
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1313	"returns an icon or image for the item or nil if the item
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1314	provides no image and #useDefaultIcons is switched off.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	"
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1316	\|iconOrKey image\|
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1318	"/ get the icon or access key from the item
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1319	iconOrKey := anItem icon.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1321	iconOrKey notNil ifTrue:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1322	iconOrKey isImageOrForm ifTrue:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1323	"/ got an image; have to register the image on my device
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1324
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1325	iconOrKey device == device ifTrue:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1326	^ iconOrKey
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1327	].
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1328	^ icons at:iconOrKey ifAbsentPut:[ self imageOnMyDevice:iconOrKey ].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1331	image := icons at:iconOrKey ifAbsent:nil.
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1332	image notNil ifTrue:[ ^ image ].
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1333	].
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1334
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1335	"/ test whether a default image should be returned
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1336	useDefaultIcons ifFalse:[
4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1337	^ nil
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1338	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1339
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1340	anItem hasChildren ifFalse:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1341	^ icons at:#empty ifAbsentPut:[ self imageOnMyDevice:(self class emptyIcon) ]
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1342	].
1898 4239a343dbe6 remove defaule icons from list of icons; create lazy ca parents: 1897 diff changeset	1343
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1344	anItem isExpanded ifTrue:[
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1345	^ icons at:#expanded ifAbsentPut:[ self imageOnMyDevice:(self class expandedIcon) ].
1898 4239a343dbe6 remove defaule icons from list of icons; create lazy ca parents: 1897 diff changeset	1346	].
2488 74c81c1e30d7 imageOnDevice -> imageOnMyDevice Claus Gittinger <cg@exept.de> parents: 2421 diff changeset	1347	^ icons at:#collapsed ifAbsentPut:[ self imageOnMyDevice:(self class collapsedIcon) ].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1348	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1349
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1350	lineHeightFor:anItem
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1351	"returns the computed line height for an item
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1352	"
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1353	\|image height\|
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1354
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1355	height := renderer heightFor:anItem.
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1356	image := self iconFor:anItem.
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1357
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1358	image notNil ifTrue:[
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1359	height := image height max:height.
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1360	].
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1361
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1362	hasConstantHeight ifTrue:[
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1363	icons size ~~ 0 ifTrue:[
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1364	icons do:[:anIcon\| height := anIcon height max:height ]
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1365	] ifFalse:[
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1366	image isNil ifTrue:[ height := height max:16 ]
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1367	]
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1368	].
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1369	height := height + lineSpacing.
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1370	^ height max:minLineHeight
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1371	!
adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1372
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1373	smallestLevelBetween:start and:stop
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1374	"returns the smallest level of all items in a range
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1375	"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376	\|prevItem currParent nextParent item
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1377
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	lvl "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	min "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380	beg "{ Class:SmallInteger }"
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381	\|
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1382
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1383	prevItem := self at:start ifAbsent:nil.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1384
1508 9c54f2e53da1 check whether #at:ifAbsent returns nil. Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	1385	(prevItem isNil or:[(currParent := prevItem parent) isNil]) ifTrue:[
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1386	^ 1
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1387	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1388
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1389	(min := prevItem level) == 2 ifTrue:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1390	^ min
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1391	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1392	beg := start + 1.
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1393
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1394	beg to:stop do:[:i\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1395	item := self at:i ifAbsent:nil.
1508 9c54f2e53da1 check whether #at:ifAbsent returns nil. Claus Gittinger <cg@exept.de> parents: 1431 diff changeset	1396	item isNil ifTrue:[^ min].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1397
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1398	(nextParent := item parent) == currParent ifFalse:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1399	(currParent := nextParent) == prevItem ifFalse:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1400	(lvl := item level) == 2 ifTrue:[
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1401	^ 2
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1402	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1403	min := min min:lvl
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1404	]
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1405	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1406	prevItem := item
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1407	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1408	^ min
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1409	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1410
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411	widthOfWidestLineBetween:firstLine and:lastLine
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1412	"returns the width of the longest line in pixels in a range
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413	"
2645 b3d3e7c3ee40 bugfix due to compilation (test SmallInteger for nil) ca parents: 2644 diff changeset	1414	\|parent item textX level width widthOfLabel\|
b3d3e7c3ee40 bugfix due to compilation (test SmallInteger for nil) ca parents: 2644 diff changeset	1415
2644 78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	1416	width := renderer widthOfWidestLineBetween:firstLine and:lastLine.
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	1417	width notNil ifTrue:[^ width].
78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	1418
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1419	width := 20.
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1420
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1421	alignTextRight ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1422	parent := nil.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1423	level := 1.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1424
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1425	firstLine to:lastLine do:[:idx\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1426	item := self at:idx ifAbsent:nil.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1427
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1428	item notNil ifTrue:[
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1429	width := (renderer widthFor:item) max:width.
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1430
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1431	item parent ~~ parent ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1432	level := item level max:level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1433	parent := item parent.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1434	].
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1435	].
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1436	].
f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1437	maxWidthOfText := maxWidthOfText max:width.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1438	textX := self xVisibleOfIconAtLevel:(level + 1).
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1439
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1440	alignTextRightX < textX ifTrue:[
2417 a0b7d30a4073 instead of #numArgs use: #valueWithOptionalArgument:and ca parents: 2414 diff changeset	1441	alignTextRightX := textX.
2659 3af857eb52fb invalidate checks itself for shown-flag Claus Gittinger <cg@exept.de> parents: 2645 diff changeset	1442	self invalidate.
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1443	].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1444	^ alignTextRightX + width
1568 f349d6b00f77 support of align text right ca parents: 1567 diff changeset	1445	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1446
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1447	parent := 4711. "/ force a computation
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1448
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1449	firstLine to:lastLine do:[:idx\|
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1450	item := self at:idx ifAbsent:nil.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1452	item notNil ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1453	item parent ~~ parent ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1454	textX := self xVisibleOfTextAtLevel:(item level).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1455	parent := item parent.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1456	].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1457	widthOfLabel := renderer widthFor:item.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1458	maxWidthOfText := maxWidthOfText max:widthOfLabel.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1459	width := widthOfLabel + textX max:width
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1460	].
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1461	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1462	^ width + viewOrigin x.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1463	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1464
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1465	xVisibleOfIconAtLevel:aLevel
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1466	"returns the visible origin x of the icon at a level.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1467	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1468	\|x\|
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1469
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1470	x := self xVisibleOfVerticalLineAt:aLevel.
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1472	(showRoot and:[aLevel == 1]) ifTrue:[
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1473	showLeftIndicators ifFalse:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1474	^ x - (imageWidth // 2)
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1475	].
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1476	].
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1477	^ x + (openIndicator width // 2) + imageInset
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1478	!
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1479
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1480	xVisibleOfIndicatorAtLevel:aLevel
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1481	"returns the visible origin x of the vertical line at a level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1482	"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1483	\|x\|
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1484
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1485	x := self xVisibleOfVerticalLineAt:aLevel.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1486	x := x - (openIndicator width // 2).
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1487	^ x
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1490	xVisibleOfItem:anItem
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1491	"returns the visible origin x of the item's label.
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1492	"
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1493	^ self xVisibleOfTextAtLevel:(anItem level)
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1494	!
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1495
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1496	xVisibleOfTextAtLevel:aLevel
73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1497	"returns the visible origin x of the text label at a level.
1757 6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1498	"
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1499	alignTextRight ifTrue:[
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1500	^ alignTextRightX - (viewOrigin x)
6eb078ed6949 * empty log message * ca parents: 1756 diff changeset	1501	].
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1502	^ (self xVisibleOfIconAtLevel:aLevel) + imageWidth + textStartLeft
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1503	!
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1504
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1505	xVisibleOfVerticalLineAt:aLevel
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1506	"returns the visible origin x of the vertical line assigned to a level.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1507	"
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1508	\|xOffset opWidth2 igWidth2 firstLevel\|
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1509
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1510	opWidth2 := openIndicator width // 2.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1511	igWidth2 := imageWidth // 2.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1512	xOffset := igWidth2 + opWidth2 + imageInset.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1513
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1514	showRoot ifTrue:[ firstLevel := 1 ]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1515	ifFalse:[ firstLevel := 2 ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1516
2392 2e61452ae911 showIndicators; on default indicators are shown ca parents: 2383 diff changeset	1517	showLeftIndicators ifTrue:[
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1518	aLevel < firstLevel ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1519	xOffset := opWidth2 - (firstLevel * xOffset)
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1520	] ifFalse:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1521	xOffset := opWidth2 + (aLevel - firstLevel * xOffset)
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1522	]
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1523	] ifFalse:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1524	aLevel < 2 ifTrue:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1525	xOffset := igWidth2 - (aLevel - firstLevel * xOffset)
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1526	] ifFalse:[
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1527	xOffset := igWidth2 + (aLevel - firstLevel - 1 * xOffset)
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1528	].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1529	].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1530	"/ 2 := a left margin
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1531	^ xOffset + 2 - (viewOrigin x)
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1532	! !
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1533
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1534	!HierarchicalListView methodsFor:'scrolling'!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1535
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1536	computeViewOriginXat:aLnrNr
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1537	"returns the viewOrigin x to make the item at a line visisble
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1538	"
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1539	\|item xLft xRgt level vwOrgX useX\|
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1540
2233 ebeefdebf761 * empty log message * ca parents: 2229 diff changeset	1541	vwOrgX := viewOrigin x.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1542
2866 01d609cfb3d9 autoscrollHorizontal confusion cleanup Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	1543	self autoScrollHorizontal ifFalse:[^ vwOrgX ].
2644 78ca3bd5eef1 prepared for table ca parents: 2606 diff changeset	1544
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1545	alignTextRight ifTrue:[ ^ vwOrgX ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1546	aLnrNr == 1 ifTrue:[ ^ 0 ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1547
2408 8b0d11537dc0 accessing list indirect ca parents: 2392 diff changeset	1548	item := self at:aLnrNr ifAbsent:nil.
2307 4a9e9f71537a * empty log message * ca parents: 2303 diff changeset	1549	item isNil ifTrue:[ ^ vwOrgX ].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1550
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1551	level := item level.
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1552	level == 1 ifTrue:[ ^ 0 ]. "/ is root item
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1553
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1554	level == 2 ifTrue:[ "/ parent is root
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1555	(showRoot and:[showLeftIndicators]) ifFalse:[ ^ 0 ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1556	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1557
2327 73edf9e0d2aa * empty log message * ca parents: 2325 diff changeset	1558	xLft := self xVisibleOfIconAtLevel:(level - 1).
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1559	xLft > 0 ifFalse:[ ^ vwOrgX + xLft max:0 ].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1560
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1561	xRgt := (self xVisibleOfTextAtLevel:level) + (renderer widthFor:item).
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1562	useX := xRgt - width.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1563
2383 ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1564	useX > 0 ifFalse:[ ^ vwOrgX ].
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1565	useX := useX + 16 min:xLft.
ed5e995b7dc4 support of no images ca parents: 2378 diff changeset	1566	^ vwOrgX + useX.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1567	!
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1568
2726 9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1569	makeItemVisible:anItem withMinimumLines:aNumber
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1570	"handle indicator pressed action;
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1571	if the item changed expanded, we try to show all
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1572	new visible children
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1573	"
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1574	\|availY usedY vwOrgX vwOrgY lineNr numLines\|
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1575
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1576	lineNr := list identityIndexOf:anItem.
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1577	lineNr == 0 ifTrue:[ ^ self].
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1578
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1579	numLines := anItem numberOfVisibleChildren.
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1580	numLines := numLines max:(aNumber ? 5).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1581	numLines := lineNr + numLines min:(list size).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1582
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1583	vwOrgY := viewOrigin y.
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1584	availY := (self yVisibleOfLine:lineNr) - (self yVisibleOfLine:1).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1585
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1586	availY > margin ifTrue:[
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1587	usedY := (self yVisibleOfLine:(numLines + 1)) - (height - margin - margin).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1588
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1589	usedY > 1 ifTrue:[
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1590	vwOrgY := vwOrgY + (usedY min:availY).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1591	].
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1592	].
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1593	vwOrgX := self computeViewOriginXat:lineNr.
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1594
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1595	self scrollTo:(vwOrgX @ vwOrgY).
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1596	!
9a9900c1372b * empty log message * martin parents: 2659 diff changeset	1597
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1598	makeLineVisible:aLineNumber
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1599	"make the line horizontally and vertically visible
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1600	"
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1601	\|newY item y0 oldX newX wLine\|
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1602
2316 f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1603	alignTextRight ifTrue:[^ self].
f91a9635462e bug fix for alignTextRight; recomputation of alignTextRightX ca parents: 2313 diff changeset	1604
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1605	(shown and:[aLineNumber notNil]) ifFalse:[^ self].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1606
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1607	aLineNumber < 1 ifTrue:[
2353 adc6843fbaa6 prepared for ListItemRenderer ca parents: 2351 diff changeset	1608	^ self
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1609	].
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1610
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1611	newX := oldX := viewOrigin x.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1612
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1613	aLineNumber == 1 ifTrue:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1614	newX := self computeViewOriginXat:1.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1615	newY := 0.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1616	] ifFalse:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1617	item := self at:aLineNumber ifAbsent:nil.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1618	item isNil ifTrue:[^ self].
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1619
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1620	y0 := self yVisibleOfLine:aLineNumber.
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1621
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1622	( y0 < margin
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1623	or:[(y0 + (renderer heightFor:item)) > (height - margin)]
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1624	) ifTrue:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1625	newY := ((self yAbsoluteOfLine:aLineNumber) - (height // 2)) max:0.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1626	] ifFalse:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1627	newY := viewOrigin y.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1628	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1629
2780 692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1630	self autoScrollHorizontal ifTrue:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1631	wLine := self widthOfWidestLineBetween:aLineNumber and:aLineNumber.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1632	(wLine < self innerWidth) ifTrue:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1633	(oldX == 0) ifTrue:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1634	newX := self computeViewOriginXat:aLineNumber.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1635	] ifFalse:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1636	newX := 0
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1637	].
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1638	] ifFalse:[
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1639	newX := self computeViewOriginXat:aLineNumber.
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1640	].
692ba895ad57 hor. scroll on selection: changed algorithm ca parents: 2769 diff changeset	1641	].
2224 bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1642	].
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1643	self scrollTo:(newX @ newY).
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1644	! !
bfcabf142faa selection/indicator handling; scrolling horizontal ca parents: 2210 diff changeset	1645
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1646	!HierarchicalListView class methodsFor:'documentation'!
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1647
62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648	version
2923 b46918a9f6b8 resource directive Claus Gittinger <cg@exept.de> parents: 2898 diff changeset	1649	^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.101 2006-02-22 15:00:33 cg Exp $'
1390 62dc950b9140 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1650	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 22 Feb 2006 16:00:33 +0100
changeset 2923	b46918a9f6b8
parent 2898	745eeceeb6b5
child 2946	4df68d94779c
permissions	-rw-r--r--