--- a/EditField.st	Tue Oct 21 20:03:18 1997 +0200
+++ b/EditField.st	Tue Oct 21 20:15:06 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 3:03:08 pm'                  !
+
 EditTextView subclass:#EditField
 	instanceVariableNames:'leaveAction enabled clickAction crAction tabAction converter
 		leaveKeys immediateAccept acceptOnLeave acceptOnReturn
@@ -788,21 +790,21 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#editFieldForegroundColor #editFieldBackgroundColor
-                       #editFieldSelectionForegroundColor #editFieldSelectionBackgroundColor
-                       #editFieldFont)>
+    <resource: #style (#'editField.foregroundColor' #'editField.backgroundColor'
+                       #'editField.selectionForegroundColor' #'editFieldSelectionBackgroundColor'
+                       #'editField.font')>
 
-    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.
+    DefaultForegroundColor := StyleSheet colorAt:'editField.foregroundColor' default:Black.
+    DefaultBackgroundColor := StyleSheet colorAt:'editField.backgroundColor' default:White.
+    DefaultSelectionForegroundColor := StyleSheet colorAt:'editField.selectionForegroundColor' default:DefaultBackgroundColor.
+    DefaultSelectionBackgroundColor := StyleSheet colorAt:'editField.selectionBackgroundColor' default:DefaultForegroundColor.
+    DefaultFont := StyleSheet fontAt:'editField.font' default:nil.
 
     "
      self updateStyleCache
     "
 
-    "Modified: 1.3.1996 / 13:45:43 / cg"
+    "Modified: 20.10.1997 / 15:02:07 / cg"
 ! !
 
 !EditField methodsFor:'accepting'!
@@ -1943,5 +1945,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.95 1997-07-26 14:24:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.96 1997-10-21 18:13:32 cg Exp $'
 ! !