#OTHER
authorClaus Gittinger <cg@exept.de>
Thu, 22 Oct 2015 23:40:10 +0200
changeset 7040 9de35e2b291f
parent 7038 94deb70cb1cd
child 7041 3d85a248bfb4
child 7042 568d66e6c7ce
#OTHER class: MacFlatButtonBorder changed: #displayOn:forDisplayBox: care for nil-container
MacFlatButtonBorder.st
--- a/MacFlatButtonBorder.st	Tue Oct 13 13:28:49 2015 +0200
+++ b/MacFlatButtonBorder.st	Thu Oct 22 23:40:10 2015 +0200
@@ -262,8 +262,11 @@
             ^ self
         ].    
     ].    
-
-    aGC paint:(aGC container viewBackground).
+    aGC container isNil ifTrue:[
+        aGC paint:(aGC viewBackground).
+    ] ifFalse:[
+        aGC paint:(aGC container viewBackground).
+    ].
     aGC fillRectangleX:boxLeft y:boxTop width:2 height:2.
     aGC fillRectangleX:boxRight-2 y:boxTop width:2 height:2.
     aGC fillRectangleX:boxRight-2 y:boxBottom-2 width:2 height:2.