equal
deleted
inserted
replaced
21 |
21 |
22 TextCollector comment:' |
22 TextCollector comment:' |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.13 1995-02-06 00:53:22 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.14 1995-02-08 03:19:20 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !TextCollector class methodsFor:'documentation'! |
29 !TextCollector class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.13 1995-02-06 00:53:22 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.14 1995-02-08 03:19:20 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
133 |
133 |
134 cFg := StyleSheet colorAt:'transcriptCursorForegroundColor' default:bg. |
134 cFg := StyleSheet colorAt:'transcriptCursorForegroundColor' default:bg. |
135 cBg := StyleSheet colorAt:'transcriptCursorBackgroundColor' default:fg. |
135 cBg := StyleSheet colorAt:'transcriptCursorBackgroundColor' default:fg. |
136 transcript cursorForegroundColor:cFg backgroundColor:cBg. |
136 transcript cursorForegroundColor:cFg backgroundColor:cBg. |
137 |
137 |
138 topView open. |
138 " |
|
139 run it at a slightly higher prio, to allow for |
|
140 delayed buffered updates to be performed |
|
141 " |
|
142 topView openWithPriority:(Processor userSchedulingPriority + 1). |
139 "transcript lineLimit:1000. " "or whatever you think makes sense" |
143 "transcript lineLimit:1000. " "or whatever you think makes sense" |
140 |
144 |
141 ^ transcript |
145 ^ transcript |
142 ! ! |
146 ! ! |
143 |
147 |