7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
|
13 'From Smalltalk/X, Version:3.1.9 on 31-aug-1997 at 8:55:53 pm' ! |
|
14 |
12 |
15 EditTextView subclass:#TextCollector |
13 EditTextView subclass:#TextCollector |
16 instanceVariableNames:'entryStream lineLimit destroyAction outstandingLines |
14 instanceVariableNames:'entryStream lineLimit destroyAction outstandingLines |
17 outstandingLine flushBlock flushPending inFlush collecting |
15 outstandingLine flushBlock flushPending inFlush collecting |
18 timeDelay access' |
16 timeDelay access' |
531 self destroyAction:[Smalltalk at:#Transcript put:Stderr]. |
529 self destroyAction:[Smalltalk at:#Transcript put:Stderr]. |
532 |
530 |
533 "/ user may prefer a special color for this one; |
531 "/ user may prefer a special color for this one; |
534 "/ look into the style definitions ... |
532 "/ look into the style definitions ... |
535 |
533 |
536 fg := styleSheet colorAt:'transcriptForegroundColor' default:self foregroundColor. |
534 fg := styleSheet colorAt:'transcript.foregroundColor' default:self foregroundColor. |
537 bg := styleSheet colorAt:'transcriptBackgroundColor' default:self backgroundColor. |
535 bg := styleSheet colorAt:'transcript.backgroundColor' default:self backgroundColor. |
538 self foregroundColor:fg backgroundColor:bg. |
536 self foregroundColor:fg backgroundColor:bg. |
539 self viewBackground:bg. |
537 self viewBackground:bg. |
540 |
538 |
541 cFg := styleSheet colorAt:'transcriptCursorForegroundColor' default:bg. |
539 cFg := styleSheet colorAt:'transcript.cursorForegroundColor' default:bg. |
542 cBg := styleSheet colorAt:'transcriptCursorBackgroundColor' default:fg. |
540 cBg := styleSheet colorAt:'transcript.cursorBackgroundColor' default:fg. |
543 self cursorForegroundColor:cFg backgroundColor:cBg. |
541 self cursorForegroundColor:cFg backgroundColor:cBg. |
544 |
542 |
545 "self lineLimit:1000. " "or whatever you think makes sense" |
543 "self lineLimit:1000. " "or whatever you think makes sense" |
546 |
544 |
547 "Modified: 11.1.1997 / 14:44:58 / cg" |
545 "Modified: / 2.11.1997 / 22:34:47 / cg" |
548 ! ! |
546 ! ! |
549 |
547 |
550 !TextCollector class methodsFor:'documentation'! |
548 !TextCollector class methodsFor:'documentation'! |
551 |
549 |
552 version |
550 version |
553 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.39 1997-09-02 17:42:34 cg Exp $' |
551 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.40 1997-11-03 15:30:35 cg Exp $' |
554 ! ! |
552 ! ! |