TextView.st
changeset 441 e170bca66a78
parent 428 6b0881b0bce1
child 447 ed41e1bbd9a1
--- a/TextView.st	Fri Mar 01 13:59:39 1996 +0100
+++ b/TextView.st	Fri Mar 01 14:02:46 1996 +0100
@@ -92,11 +92,19 @@
 !TextView class methodsFor:'defaults'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#textViewBackground
+                       #textSelectionForegroundColor #textSelectionBackgroundColor
+                       #textViewFont)>
+
     DefaultViewBackground := StyleSheet colorAt:'textViewBackground' default:White.
     DefaultSelectionForegroundColor := StyleSheet colorAt:'textSelectionForegroundColor'.
     DefaultSelectionBackgroundColor := StyleSheet colorAt:'textSelectionBackgroundColor'.
     DefaultFont := StyleSheet fontAt:'textViewFont'.
     MatchDelayTime := 0.6
+
+    "Modified: 1.3.1996 / 13:50:14 / cg"
 ! !
 
 !TextView class methodsFor:'startup'!
@@ -1868,5 +1876,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.37 1996-02-28 18:47:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.38 1996-03-01 13:01:53 cg Exp $'
 ! !