class: HierarchicalListView
changed: #buttonPress:x:y:
- chamged to send processButtonPress:visibleX:visibleY:on: with
untranslated coodrinates before sending processButtonPress:x:y:on:
which passes coordinates relative to item origin.
--- a/HierarchicalListView.st Thu Apr 18 11:09:03 2013 +0200
+++ b/HierarchicalListView.st Thu Apr 18 11:10:45 2013 +0200
@@ -1114,6 +1114,10 @@
item := self at:line ifAbsent:nil.
item notNil ifTrue:[
"/ translate the coordinate relative to the items origin
+ (item processButtonPress:button visibleX:x visibleY: y on: self) ifTrue:[
+ ^self
+ ].
+
xIcon := self xVisibleOfIconAtLevel:(item level).
x >= xIcon ifTrue:[
xLabel := self xVisibleOfTextAtLevel:(item level).
@@ -1151,6 +1155,8 @@
].
super buttonPress:button x:x y:y.
+
+ "Modified: / 18-04-2013 / 09:56:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
buttonPressOrReleaseAtLine:aLnNr x:x y:y
@@ -1667,10 +1673,10 @@
!HierarchicalListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.126 2013-03-08 09:50:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.127 2013-04-18 09:10:45 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.126 2013-03-08 09:50:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalListView.st,v 1.127 2013-04-18 09:10:45 vrany Exp $'
! !