--- a/EditTextView.st	Tue Oct 21 20:15:06 1997 +0200
+++ b/EditTextView.st	Tue Oct 21 20:28:05 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 20-oct-1997 at 2:09:41 pm'                  !
+
 TextView subclass:#EditTextView
 	instanceVariableNames:'cursorLine cursorVisibleLine cursorCol cursorShown
 		prevCursorState readOnly modifiedChannel fixedSize exceptionBlock
@@ -336,18 +338,18 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#textCursorForegroundColor #textCursorBackgroundColor
-                       #textCursorNoFocusForegroundColor 
-                       #textCursorType )>
-
-    DefaultCursorForegroundColor := StyleSheet colorAt:'textCursorForegroundColor'.
-    DefaultCursorBackgroundColor := StyleSheet colorAt:'textCursorBackgroundColor'.
-    DefaultCursorNoFocusForegroundColor := StyleSheet colorAt:'textCursorNoFocusForegroundColor'.
-    DefaultCursorType := StyleSheet at:'textCursorType' default:#block.
+    <resource: #style (#'textCursor.foregroundColor' #'textCursorBackgroundColor'
+                       #'textCursor.noFocusForegroundColor' 
+                       #'textCursor.type' )>
+
+    DefaultCursorForegroundColor := StyleSheet colorAt:'textCursor.foregroundColor'.
+    DefaultCursorBackgroundColor := StyleSheet colorAt:'textCursor.backgroundColor'.
+    DefaultCursorNoFocusForegroundColor := StyleSheet colorAt:'textCursor.noFocusForegroundColor'.
+    DefaultCursorType := StyleSheet at:'textCursor.type' default:#block.
 
     ST80Mode := false.
 
-    "Modified: 13.8.1997 / 15:38:16 / cg"
+    "Modified: 20.10.1997 / 13:54:30 / cg"
 ! !
 
 !EditTextView methodsFor:'ST-80 compatibility editing'!
@@ -4081,5 +4083,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.138 1997-10-09 12:14:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.139 1997-10-21 18:28:05 cg Exp $'
 ! !