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/TextCollector.st,v 1.21 1995-08-03 01:35:39 claus Exp $ |
26 $Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.22 1995-08-24 03:02:53 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/TextCollector.st,v 1.21 1995-08-03 01:35:39 claus Exp $ |
47 $Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.22 1995-08-24 03:02:53 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
288 self insertStringAtCursor:outstandingLine. |
288 self insertStringAtCursor:outstandingLine. |
289 outstandingLine := ''. |
289 outstandingLine := ''. |
290 ]. |
290 ]. |
291 self checkLineLimit. |
291 self checkLineLimit. |
292 inFlush := false. |
292 inFlush := false. |
|
293 device synchronizeOutput. |
293 ]. |
294 ]. |
294 flushPending ifTrue:[ |
295 flushPending ifTrue:[ |
295 flushPending := false. |
296 flushPending := false. |
296 self installDelayedUpdate |
297 self installDelayedUpdate |
297 ] |
298 ] |