--- a/ProgressIndicator.st	Wed Jul 20 11:36:30 2016 +0200
+++ b/ProgressIndicator.st	Wed Jul 20 11:36:33 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1106,7 +1108,7 @@
             sy := height // 2 + currentDeviceFont descent + 2.
 
             rx <= (sx+sw) ifTrue:[
-                self paint:Color black.
+                self paint:self blackColor.
                 self displayString:s x:sx y:sy.
             ]
         ]
@@ -1119,7 +1121,7 @@
         rx >= sx ifTrue:[
             oldClip := self clippingRectangleOrNil.
             self clippingRectangle:(m@m corner:rx+1 @ h).
-            self paint:Color white.
+            self paint:self whiteColor.
             self displayString:s x:sx y:sy.
             self clippingRectangle:oldClip
         ]
@@ -1161,7 +1163,7 @@
         self level:-1
     ].
 
-    bgColor := styleSheet colorAt:'progressIndicator.viewBackground' default:Color white.
+    bgColor := styleSheet colorAt:'progressIndicator.viewBackground' default:self whiteColor.
     fgColor := styleSheet colorAt:'progressIndicator.foregroundColor' default:Color blue.
     fgColor := fgColor onDevice:device.