#BUGFIX by sr
authorsr
Fri, 22 Jun 2018 14:48:44 +0200
changeset 5818 1a211eba3ca9
parent 5817 7779078ac861
child 5819 b54bfbb0a036
#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:
HierarchicalListView.st
--- 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