TabSpecRuler.st
changeset 5169 b18ad544fca8
parent 4997 ce7b2fcf39d8
child 5970 53fd42d2c814
--- a/TabSpecRuler.st	Wed Jul 20 11:35:48 2016 +0200
+++ b/TabSpecRuler.st	Wed Jul 20 11:36:30 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -490,7 +492,7 @@
 
     titles notNil ifTrue:[
         s := titles at:idx.
-        self paint:Color black.
+        self paint:self blackColor.
         s displayOn:self x:x+3 y:(gc font ascent).
     ].
 
@@ -513,7 +515,7 @@
     ].
 
     s := titles at:idx.
-    self paint:Color black.
+    self paint:self blackColor.
     s displayOn:self x:x+3 y:(gc font ascent).
 
     "Modified: 1.4.1997 / 15:20:31 / cg"