#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Wed, 11 May 2016 01:32:55 +0200
changeset 5096 45da9082a826
parent 5095 71e2684154a4
child 5097 5fbbb3dbef78
child 5098 58d61dee21aa
#UI_ENHANCEMENT by cg class: LinkButton changed: #actionAt:
LinkButton.st
--- 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.
     ].