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

author	ca
	Mon, 28 Oct 2002 10:56:50 +0100
changeset 2335	8f551ed4bdc2
parent 2334	2884dc92121e
child 2336	9977d831bb08
permissions	-rw-r--r--