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:[