--- a/MacButtonBorder.st Mon Oct 05 16:19:27 2015 +0200
+++ b/MacButtonBorder.st Tue Oct 06 16:10:02 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"{ Package: 'stx:libview' }"
"{ NameSpace: Smalltalk }"
@@ -138,7 +136,7 @@
th := topLeftEdge height.
bh := bottomLeftEdge height.
- aGC paint:(aGC viewBackground).
+ aGC paint:(aGC container viewBackground).
aGC fillRectangleX:left y:top width:5 height:5.
aGC fillRectangleX:right-5 y:top width:5 height:5.
aGC fillRectangleX:right-5 y:bottom-5 width:5 height:5.