--- a/ProgressIndicator.st	Sat Mar 29 16:09:50 1997 +0100
+++ b/ProgressIndicator.st	Sat Mar 29 16:14:22 1997 +0100
@@ -470,6 +470,14 @@
 
 !ProgressIndicator methodsFor:'accessing - look'!
 
+foregroundColor 
+    "return the percentage displays foreground color"
+
+    ^ fgColor
+
+    "Created: 29.3.1997 / 16:12:28 / cg"
+!
+
 foregroundColor:aColor 
     "set the percentage displays foreground color"
 
@@ -478,6 +486,14 @@
     "Modified: 29.3.1997 / 16:08:49 / cg"
 !
 
+showPercentage
+    "return the flag controlling if the percentage is to be shown numerically"
+
+    ^ showPercentage
+
+    "Created: 29.3.1997 / 16:12:39 / cg"
+!
+
 showPercentage:aBoolean
     "set/clear the flag controlling if the percentage is to be shown numerically"
 
@@ -539,11 +555,18 @@
 !ProgressIndicator methodsFor:'initialization'!
 
 initialize
+    <resource: #style (#progressIndicatorViewBackground #progressIndicatorForegroundColor)>
+
     super initialize.
+
     viewBackground := styleSheet colorAt:'progressIndicatorViewBackground' default:Color white.
     fgColor := styleSheet colorAt:'progressIndicatorForegroundColor' default:Color blue.
+    fgColor := fgColor onDevice:device.
+
     percentage := 0.
     showPercentage := true.
+
+    "Modified: 29.3.1997 / 16:14:03 / cg"
 ! !
 
 !ProgressIndicator methodsFor:'queries'!
@@ -649,5 +672,5 @@
 !ProgressIndicator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.12 1997-03-29 15:09:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ProgressIndicator.st,v 1.13 1997-03-29 15:14:22 cg Exp $'
 ! !