equal
deleted
inserted
replaced
548 doesNotUnderstand:aMessage |
548 doesNotUnderstand:aMessage |
549 "this is funny: all message we do not understand, are passed |
549 "this is funny: all message we do not understand, are passed |
550 on to the stream which will send the characters via nextPut: |
550 on to the stream which will send the characters via nextPut: |
551 This way, we understand all Stream messages - great isn't it!!" |
551 This way, we understand all Stream messages - great isn't it!!" |
552 |
552 |
553 ^ aMessage sendTo:entryStream |
553 ^ aMessage sendTo:entryStream |
554 ! |
554 ! |
555 |
555 |
556 lineLength |
556 lineLength |
557 "to make a textCollector (somewhat) compatible with printer |
557 "to make a textCollector (somewhat) compatible with printer |
558 streams, support the lineLength query" |
558 streams, support the lineLength query" |
706 ] |
706 ] |
707 ]. |
707 ]. |
708 |
708 |
709 "Created: / 28.7.1998 / 00:31:46 / cg" |
709 "Created: / 28.7.1998 / 00:31:46 / cg" |
710 "Modified: / 28.7.1998 / 00:34:58 / cg" |
710 "Modified: / 28.7.1998 / 00:34:58 / cg" |
|
711 ! |
|
712 |
|
713 space |
|
714 "output a space" |
|
715 |
|
716 self show:' ' |
711 ! ! |
717 ! ! |
712 |
718 |
713 !TextCollector methodsFor:'stream messages-emphasis'! |
719 !TextCollector methodsFor:'stream messages-emphasis'! |
714 |
720 |
715 bgColor:aColor |
721 bgColor:aColor |
799 ! ! |
805 ! ! |
800 |
806 |
801 !TextCollector class methodsFor:'documentation'! |
807 !TextCollector class methodsFor:'documentation'! |
802 |
808 |
803 version |
809 version |
804 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.87 2005-09-05 13:04:13 cg Exp $' |
810 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.88 2006-01-24 16:50:15 cg Exp $' |
805 ! ! |
811 ! ! |
806 |
812 |
807 TextCollector initialize! |
813 TextCollector initialize! |