--- a/CheckToggle.st	Wed Jul 20 11:36:28 2016 +0200
+++ b/CheckToggle.st	Wed Jul 20 11:36:32 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -722,7 +724,7 @@
 drawEdges
 
     self isFlat ifTrue:[
-        self paint: Color black.
+        self paint:self blackColor.
         self displayRectangleX:0 y:0 width:width height:height.
         ^self.
     ].