equal
deleted
inserted
replaced
490 current |
490 current |
491 "return the current (your screens) transcript. |
491 "return the current (your screens) transcript. |
492 In multiDisplay applications, this need NOT be the main transcript. |
492 In multiDisplay applications, this need NOT be the main transcript. |
493 But typically, this is the same as Transcript." |
493 But typically, this is the same as Transcript." |
494 |
494 |
495 |theTranscript| |
495 |theTranscript app| |
496 |
496 |
497 theTranscript := TranscriptQuerySignal query. |
497 theTranscript := TranscriptQuerySignal query. |
498 theTranscript isNil ifTrue:[ |
498 theTranscript isNil ifTrue:[ |
499 theTranscript := (self topView application class current transcript ? Stderr). |
499 app := self topView application class current. |
|
500 app notNil ifTrue:[ |
|
501 theTranscript := (app transcript ? Stderr). |
|
502 ] ifFalse:[ |
|
503 theTranscript := Stderr. |
|
504 ] |
500 ]. |
505 ]. |
501 ^ theTranscript |
506 ^ theTranscript |
502 |
507 |
503 " |
508 " |
504 Transcript current flash |
509 Transcript current flash |
778 ! ! |
783 ! ! |
779 |
784 |
780 !TextCollector class methodsFor:'documentation'! |
785 !TextCollector class methodsFor:'documentation'! |
781 |
786 |
782 version |
787 version |
783 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.65 2000-09-06 13:50:39 cg Exp $' |
788 ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.66 2000-09-22 11:43:58 cg Exp $' |
784 ! ! |
789 ! ! |
785 TextCollector initialize! |
790 TextCollector initialize! |