#BUGFIX by sr
bugfix: do not multi press when clicking on the expand/collapse icon
class: HierarchicalListView
added: #hasToSkipButtonMultiPress:x:y:
comment/format in: #buttonPress:x:y:
--- a/HierarchicalListView.st Fri Jun 22 14:47:57 2018 +0200
+++ b/HierarchicalListView.st Fri Jun 22 14:48:44 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1999 by eXept Software AG
All Rights Reserved
@@ -1570,6 +1572,37 @@
^ 0
! !
+!HierarchicalListView methodsFor:'queries'!
+
+hasToSkipButtonMultiPress:button x:x y:y
+ |line item x0|
+
+ button == 1 ifFalse:[
+ ^ false
+ ].
+
+ line := self yVisibleToLineNr:y.
+ line isNil ifTrue:[
+ ^ false
+ ].
+
+ item := self
+ at:line
+ ifAbsent:[
+ ^ false
+ ].
+
+ item hasIndicator ifFalse:[
+ ^ false
+ ].
+
+ x0 := self xVisibleOfIndicatorAtLevel:item level.
+
+ ^ x between:x0 and:x0 + indicatorWidth
+
+ "Created: / 22-06-2018 / 14:33:43 / sr"
+! !
+
!HierarchicalListView methodsFor:'scrolling'!
computeViewOriginXat:aLnrNr