--- a/MacFlatButtonBorder.st Tue Oct 06 16:10:02 2015 +0200
+++ b/MacFlatButtonBorder.st Tue Oct 06 16:10:05 2015 +0200
@@ -176,6 +176,26 @@
^Icon
constantNamed:'MacFlatButtonBorder topLeftImageUnfilledMasked5'
ifAbsentPut:[(Depth2Image width:4 height:4) bits:(ByteArray fromPackedString:'HH<?O0@a') colorMapFromArray:#[183 183 183 201 201 201 224 224 224 255 255 255] mask:((ImageMask width:4 height:4) bits:(ByteArray fromPackedString:'\OC0<@@a'); yourself); yourself]
+!
+
+topLeftImageUnfilledMasked6
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self topLeftImageUnfilledMasked6 inspect
+ ImageEditor openOnClass:self andSelector:#topLeftImageUnfilledMasked6
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'MacFlatButtonBorder topLeftImageUnfilledMasked6'
+ ifAbsentPut:[(Depth2Image width:4 height:4) bits:(ByteArray fromPackedString:'@@<?O0@a') colorMapFromArray:#[183 183 183 201 201 201 224 224 224 255 255 255] mask:((ImageMask width:4 height:4) bits:(ByteArray fromPackedString:'LGC0<@@a'); yourself); yourself]
! !
!MacFlatButtonBorder methodsFor:'accessing'!
@@ -243,7 +263,7 @@
].
].
- aGC paint:(aGC viewBackground).
+ 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.
@@ -289,7 +309,7 @@
light := color light.
sat := color saturation.
- protoImage := self class topLeftImageUnfilledMasked5.
+ protoImage := self class topLeftImageUnfilledMasked6.
img := protoImage copy.
img colorMap at:1 put:color.