#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Sat, 11 May 2019 12:15:03 +0200
changeset 6578 60be865bd75a
parent 6577 03d26847c27b
child 6579 a7d893a3c1e1
#QUALITY by cg class: Button changed: #activeLogo: #enteredLogo: #passiveLogo:
Button.st
--- a/Button.st	Wed May 08 03:22:16 2019 +0200
+++ b/Button.st	Sat May 11 12:15:03 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1252,9 +1250,13 @@
      (logo) in both pressed and released states."
 
     activeLogo := anImageOrString.
-    controller pressed ifTrue:[
-        self label:anImageOrString
+    controller notNil ifTrue:[
+        controller pressed ifTrue:[
+            self label:anImageOrString
+        ]
     ]
+
+    "Modified: / 11-05-2019 / 10:58:06 / Claus Gittinger"
 !
 
 allViewBackground:something if:condition
@@ -1419,10 +1421,14 @@
 
     enteredLogo := anImageOrString.
     labelChannel isNil ifTrue:[
-        controller entered ifTrue:[
-            self label:anImageOrString
+        controller notNil ifTrue:[
+            controller entered ifTrue:[
+                self label:anImageOrString
+            ]
         ]
     ]
+
+    "Modified: / 11-05-2019 / 10:57:48 / Claus Gittinger"
 !
 
 focusLogo:anImageOrString
@@ -1551,10 +1557,14 @@
 
     passiveLogo := anImageOrString.
     labelChannel isNil ifTrue:[
-        controller pressed ifFalse:[
-            self label:anImageOrString
+        controller notNil ifTrue:[
+            controller pressed ifFalse:[
+                self label:anImageOrString
+            ]
         ]
     ]
+
+    "Modified: / 11-05-2019 / 10:58:20 / Claus Gittinger"
 !
 
 takeDefault