--- a/TextCollector.st	Wed Feb 23 18:48:27 2000 +0100
+++ b/TextCollector.st	Wed Feb 23 23:38:33 2000 +0100
@@ -317,7 +317,10 @@
     "a textCollector always scrolls to the bottom"
 
      super getListFromModel.
-     self scrollToBottom
+
+"/ cg:
+"/ now done by setting scrollWhenUpdating as appropriate
+"/     self scrollToBottom
 
     "Created: 12.2.1996 / 14:27:56 / stefan"
     "Modified: 11.1.1997 / 14:41:50 / cg"
@@ -381,6 +384,8 @@
 initialize
     super initialize.
 
+    scrollWhenUpdating := #endOfText.
+
     outstandingLines := nil.
     alwaysAppendAtEnd := true.
     collectSize := self class defaultCollectSize.
@@ -772,6 +777,6 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.63 2000-01-17 17:49:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.64 2000-02-23 22:38:33 cg Exp $'
 ! !
 TextCollector initialize!