#OTHER
class: MacFlatButtonBorder
changed: #displayOn:forDisplayBox:
care for nil-container
--- 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.