--- a/LinkButton.st Wed May 11 01:31:41 2016 +0200
+++ b/LinkButton.st Wed May 11 01:32:55 2016 +0200
@@ -184,24 +184,25 @@
].
labelsAndActions isNil ifTrue:[
"take action from logo, which is normally a text"
-
- emphasis := logo emphasisAtPoint:(aPoint - (labelOriginX@labelOriginY)) on:self.
- (emphasis isNil or:[emphasis isSymbol]) ifTrue:[
- ^ pressAction.
- ].
- emphasis isAssociation ifTrue:[
- emphasis key == #actionBlock ifTrue:[
- ^ emphasis value.
+ logo notNil ifTrue:[
+ emphasis := logo emphasisAtPoint:(aPoint - (labelOriginX@labelOriginY)) on:self.
+ (emphasis isNil or:[emphasis isSymbol]) ifTrue:[
+ ^ pressAction.
].
- ^ pressAction.
- ].
- emphasis do:[:eachElement|
- eachElement isAssociation ifTrue:[
- eachElement key == #actionBlock ifTrue:[
- ^ eachElement value.
+ emphasis isAssociation ifTrue:[
+ emphasis key == #actionBlock ifTrue:[
+ ^ emphasis value.
+ ].
+ ^ pressAction.
+ ].
+ emphasis do:[:eachElement|
+ eachElement isAssociation ifTrue:[
+ eachElement key == #actionBlock ifTrue:[
+ ^ eachElement value.
+ ].
].
].
- ].
+ ].
^ pressAction.
].