--- a/EditField.st	Mon Oct 10 04:03:47 1994 +0100
+++ b/EditField.st	Fri Oct 28 04:25:37 1994 +0100
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1990 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.8 1994-10-10 03:01:12 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.9 1994-10-28 03:24:56 claus Exp $
 '!
 
 !EditField class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.8 1994-10-10 03:01:12 claus Exp $
+$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.9 1994-10-28 03:24:56 claus Exp $
 "
 !
 
@@ -68,14 +68,14 @@
 !
 
 updateStyleCache
-    DefaultForegroundColor := StyleSheet at:'editFieldForegroundColor' default:Black.
-    DefaultBackgroundColor := StyleSheet at:'editFieldBackgroundColor' default:White.
-    DefaultSelectionForegroundColor := StyleSheet at:'editFieldSelectionForegroundColor' default:DefaultBackgroundColor.
-    DefaultSelectionBackgroundColor := StyleSheet at:'editFieldSelectionBackgroundColor' default:DefaultForegroundColor.
-    DefaultFont := StyleSheet at:'editFieldFont' default:nil.
+    DefaultForegroundColor := StyleSheet colorAt:'editFieldForegroundColor' default:Black.
+    DefaultBackgroundColor := StyleSheet colorAt:'editFieldBackgroundColor' default:White.
+    DefaultSelectionForegroundColor := StyleSheet colorAt:'editFieldSelectionForegroundColor' default:DefaultBackgroundColor.
+    DefaultSelectionBackgroundColor := StyleSheet colorAt:'editFieldSelectionBackgroundColor' default:DefaultForegroundColor.
+    DefaultFont := StyleSheet fontAt:'editFieldFont' default:nil.
 
     "
-     EditField updateStyleCache
+     self updateStyleCache
     "
 ! !