# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1236607307 -3600
# Node ID 6d3cdd2ba023a0b891ea1b66f06c2dd087ecd885
# Parent  fb3778b66ce3448964dc7859df9949f4bbfb8ac8
*** empty log message ***

diff -r fb3778b66ce3 -r 6d3cdd2ba023 LinkButtonController.st
--- a/LinkButtonController.st	Mon Mar 09 15:01:02 2009 +0100
+++ b/LinkButtonController.st	Mon Mar 09 15:01:47 2009 +0100
@@ -1,3 +1,14 @@
+"
+ COPYRIGHT (c) 2009 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
 "{ Package: 'stx:libwidg2' }"
 
 ButtonController subclass:#LinkButtonController
@@ -7,10 +18,32 @@
 	category:'Interface-Support-Controllers'
 !
 
+!LinkButtonController class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 2009 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+    see info in LinkButton
+"
+! !
 
 !LinkButtonController methodsFor:'accessing'!
 
 lastMousePoint
+    lastX isNil ifTrue:[^ nil].
     ^ lastX @ lastY
 ! !
 
@@ -19,12 +52,21 @@
 buttonMotion:buttonState x:x y:y
     lastX := x.
     lastY := y.
+    view invalidate.
     super buttonMotion:buttonState x:x y:y.
 !
 
 buttonPress:button x:x y:y
+    |action|
+
     lastX := x.
     lastY := y.
+    action := view actionAt:(self lastMousePoint).
+    action notNil ifTrue:[
+        action value.
+        ^ self.
+    ].
+
     super buttonPress:button x:x y:y.
 !
 
@@ -32,10 +74,23 @@
     lastX := x.
     lastY := y.
     super buttonRelease:button x:x y:y.
+!
+
+pointerEnter:buttonState x:x y:y
+    lastX := x.
+    lastY := y.
+    view invalidate.
+    super pointerEnter:buttonState x:x y:y.
+!
+
+pointerLeave:buttonState 
+    lastX := lastY := nil.
+    view invalidate.
+    super pointerLeave:buttonState.
 ! !
 
 !LinkButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LinkButtonController.st,v 1.2 2009-03-09 13:34:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LinkButtonController.st,v 1.3 2009-03-09 14:01:47 cg Exp $'
 ! !