--- a/ETxtView.st	Tue Jan 14 00:12:53 1997 +0100
+++ b/ETxtView.st	Tue Jan 14 00:15:53 1997 +0100
@@ -2994,6 +2994,17 @@
 
 !EditTextView methodsFor:'initialization'!
 
+fetchDeviceResources
+    "fetch device colors, to avoid reallocation at redraw time"
+
+    super fetchDeviceResources.
+
+    cursorFgColor notNil ifTrue:[cursorFgColor := cursorFgColor on:device].
+    cursorBgColor notNil ifTrue:[cursorBgColor := cursorBgColor on:device].
+
+    "Created: 14.1.1997 / 00:15:24 / cg"
+!
+
 initEvents
     "enable enter/leave events in addition"
 
@@ -3889,5 +3900,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.101 1997-01-09 11:48:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.102 1997-01-13 23:15:53 cg Exp $'
 ! !