LinkButton.st
changeset 6215 4480fe34e420
parent 6057 8c54bab4666f
child 6216 9c9487e63400
--- a/LinkButton.st	Thu Jan 30 09:38:42 2020 +0100
+++ b/LinkButton.st	Thu Jan 30 10:02:49 2020 +0100
@@ -141,6 +141,9 @@
 !LinkButton methodsFor:'accessing'!
 
 actionAt:aPoint
+    "if aPoint is over a clickable (anchor-) link, return its helptext.
+     Otherwise, return nil"
+
     |pressAction emphasisAction emphasis pointInLabel|
 
     self enabled ifFalse:[