MacButtonBorder.st
changeset 6984 7db9175c551b
parent 6971 9a049a044a07
child 7937 1249a277b511
--- 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.