--- a/LinkButtonController.st Mon Mar 09 15:17:02 2009 +0100
+++ b/LinkButtonController.st Mon Mar 09 15:17:12 2009 +0100
@@ -61,13 +61,11 @@
lastX := x.
lastY := y.
+
action := view actionAt:(self lastMousePoint).
action notNil ifTrue:[
action value.
- ^ self.
].
-
- super buttonPress:button x:x y:y.
!
buttonRelease:button x:x y:y
@@ -92,5 +90,5 @@
!LinkButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/LinkButtonController.st,v 1.3 2009-03-09 14:01:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/LinkButtonController.st,v 1.4 2009-03-09 14:17:12 cg Exp $'
! !