equal
deleted
inserted
replaced
469 ] ifFalse:[ |
469 ] ifFalse:[ |
470 flushBlock isNil ifTrue:[ |
470 flushBlock isNil ifTrue:[ |
471 flushBlock := [self endEntry]. |
471 flushBlock := [self endEntry]. |
472 ]. |
472 ]. |
473 Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay. |
473 Processor addTimedBlock:flushBlock for:p afterSeconds:timeDelay. |
474 ] |
474 ]. |
|
475 p := nil. "avoid dangling references to p through the home context of flushBlock" |
475 ] |
476 ] |
476 ] |
477 ] |
477 |
478 |
478 "Modified: / 17.4.1997 / 13:03:15 / stefan" |
479 "Modified: / 17.4.1997 / 13:03:15 / stefan" |
479 "Modified: / 9.11.1998 / 14:34:07 / cg" |
480 "Modified: / 9.11.1998 / 14:34:07 / cg" |
796 ! ! |
797 ! ! |
797 |
798 |
798 !TextCollector class methodsFor:'documentation'! |
799 !TextCollector class methodsFor:'documentation'! |
799 |
800 |
800 version |
801 version |
801 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.83 2004-08-30 17:55:43 stefan Exp $' |
802 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.84 2004-09-08 10:18:21 stefan Exp $' |
802 ! ! |
803 ! ! |
803 |
804 |
804 TextCollector initialize! |
805 TextCollector initialize! |