--- a/TextCollector.st	Mon Nov 03 16:29:08 1997 +0100
+++ b/TextCollector.st	Mon Nov 03 16:30:35 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 31-aug-1997 at 8:55:53 pm'                  !
-
 EditTextView subclass:#TextCollector
 	instanceVariableNames:'entryStream lineLimit destroyAction outstandingLines
 		outstandingLine flushBlock flushPending inFlush collecting
@@ -533,22 +531,22 @@
     "/ user may prefer a special color for this one;
     "/ look into the style definitions ...
 
-    fg := styleSheet colorAt:'transcriptForegroundColor' default:self foregroundColor.
-    bg := styleSheet colorAt:'transcriptBackgroundColor' default:self backgroundColor.
+    fg := styleSheet colorAt:'transcript.foregroundColor' default:self foregroundColor.
+    bg := styleSheet colorAt:'transcript.backgroundColor' default:self backgroundColor.
     self foregroundColor:fg backgroundColor:bg.
     self viewBackground:bg.
 
-    cFg := styleSheet colorAt:'transcriptCursorForegroundColor' default:bg.
-    cBg := styleSheet colorAt:'transcriptCursorBackgroundColor' default:fg.
+    cFg := styleSheet colorAt:'transcript.cursorForegroundColor' default:bg.
+    cBg := styleSheet colorAt:'transcript.cursorBackgroundColor' default:fg.
     self cursorForegroundColor:cFg backgroundColor:cBg. 
 
     "self lineLimit:1000. " "or whatever you think makes sense"
 
-    "Modified: 11.1.1997 / 14:44:58 / cg"
+    "Modified: / 2.11.1997 / 22:34:47 / cg"
 ! !
 
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.39 1997-09-02 17:42:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.40 1997-11-03 15:30:35 cg Exp $'
 ! !