--- a/HierarchicalListView.st Tue Sep 15 20:21:07 2009 +0200
+++ b/HierarchicalListView.st Tue Sep 15 20:21:09 2009 +0200
@@ -1189,43 +1189,43 @@
line := self yVisibleToLineNr:y.
line notNil ifTrue:[
- item := self at:line ifAbsent:nil.
- item notNil ifTrue:[
- "/ translate the coordinate relative to the items origin
- xIcon := self xVisibleOfIconAtLevel:(item level).
- x >= xIcon ifTrue:[
- xLabel := self xVisibleOfTextAtLevel:(item level).
- yItem := self yVisibleOfLine:line.
+ item := self at:line ifAbsent:nil.
+ item notNil ifTrue:[
+ "/ translate the coordinate relative to the items origin
+ xIcon := self xVisibleOfIconAtLevel:(item level).
+ x >= xIcon ifTrue:[
+ xLabel := self xVisibleOfTextAtLevel:(item level).
+ yItem := self yVisibleOfLine:line.
- x >= xLabel ifTrue:[
- (item processButtonPress:button x:(x - xLabel) y:(y - yItem) on:self) == true ifTrue:[
- ^ self
- ]
- ].
- (item processButtonPressOnIcon:button on:self) == true ifTrue:[
- ^ self
- ]
- ].
- ]
+ x >= xLabel ifTrue:[
+ (item processButtonPress:button x:(x - xLabel) y:(y - yItem) on:self) == true ifTrue:[
+ ^ self
+ ]
+ ].
+ (item processButtonPressOnIcon:button on:self) == true ifTrue:[
+ ^ self
+ ]
+ ].
+ ]
] ifFalse:[
- item := nil
+ item := nil
].
showIndicators ifTrue:[
- (button == 1 or:[button == #select]) ifTrue:[
- (item notNil and:[item hasIndicator]) ifTrue:[
- x0 := self xVisibleOfIndicatorAtLevel:(item level).
+ (button == 1) ifTrue:[
+ (item notNil and:[item hasIndicator]) ifTrue:[
+ x0 := self xVisibleOfIndicatorAtLevel:(item level).
- (x between:x0 and:(x0 + indicatorWidth)) ifTrue:[
- (item isExpanded and:[item canCollapse not]) ifTrue:[
- "/ a special one (like a non-collapsable root)
- ] ifFalse:[
- self indicatorPressedAt:line.
- ^ self
- ].
- ].
- ].
- ].
+ (x between:x0 and:(x0 + indicatorWidth)) ifTrue:[
+ (item isExpanded and:[item canCollapse not]) ifTrue:[
+ "/ a special one (like a non-collapsable root)
+ ] ifFalse:[
+ self indicatorPressedAt:line.
+ ^ self
+ ].
+ ].
+ ].
+ ].
].
super buttonPress:button x:x y:y.
@@ -1733,5 +1733,5 @@
!HierarchicalListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.114 2009-08-07 10:50:41 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.115 2009-09-15 18:21:09 cg Exp $'
! !