author | Claus Gittinger <cg@exept.de> |
Thu, 30 Jan 2020 10:02:49 +0100 | |
changeset 6215 | 4480fe34e420 |
parent 6214 | 4108625dca21 |
child 6216 | 9c9487e63400 |
LinkButton.st | file | annotate | diff | comparison | revisions |
--- 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:[