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

author	Claus Gittinger <cg@exept.de>
	Wed, 03 Mar 2010 19:35:05 +0100
changeset 3883	090387ed8844
parent 3870	18c8952dc8cc
child 3890	be7397c40a60
permissions	-rw-r--r--