5395 |
5395 |
5396 openTranscriptDebugDialog |
5396 openTranscriptDebugDialog |
5397 |pattern| |
5397 |pattern| |
5398 |
5398 |
5399 pattern := Dialog |
5399 pattern := Dialog |
5400 request:('Enter GLOB matchpattern for message text\(Breakpoint if matching text is sent to the Transcript)\\Empty to disable, * for any text.' withCRs) |
5400 request:('Enter GLOB matchpattern for message text\(Breakpoint if matching text is sent to the Transcript)\\Empty to disable, * for any text.' withCRs) |
5401 initialAnswer:(Transcript class debugSendersOfMessagePattern). |
5401 initialAnswer:(TextCollector debugSendersOfMessagePattern). |
5402 pattern isNil ifTrue:[^ self]. |
5402 pattern isNil ifTrue:[^ self]. |
5403 |
5403 |
5404 Transcript class debugSendersOfMessagePattern:pattern |
5404 TextCollector debugSendersOfMessagePattern:pattern |
5405 |
5405 |
5406 "Created: / 02-02-2012 / 12:05:05 / cg" |
5406 "Created: / 02-02-2012 / 12:05:05 / cg" |
5407 ! |
5407 ! |
5408 |
5408 |
5409 openTranscriptTraceDialog |
5409 openTranscriptTraceDialog |
5410 |pattern| |
5410 |pattern| |
5411 |
5411 |
5412 pattern := Dialog |
5412 pattern := Dialog |
5413 request:('Enter GLOB matchpattern for message text\(Trace who sends matching text to the Transcript)\\Empty to disable, * for any.' withCRs) |
5413 request:('Enter GLOB matchpattern for message text\(Trace who sends matching text to the Transcript)\\Empty to disable, * for any.' withCRs) |
5414 initialAnswer:(Transcript class traceSendersOfMessagePattern). |
5414 initialAnswer:(TextCollector traceSendersOfMessagePattern). |
5415 pattern isNil ifTrue:[^ self]. |
5415 pattern isNil ifTrue:[^ self]. |
5416 |
5416 |
5417 Transcript class traceSendersOfMessagePattern:pattern |
5417 TextCollector traceSendersOfMessagePattern:pattern |
5418 |
5418 |
5419 "Created: / 02-02-2012 / 12:06:10 / cg" |
5419 "Created: / 02-02-2012 / 12:06:10 / cg" |
5420 ! |
5420 ! |
5421 |
5421 |
5422 timestampTranscriptMessages |
5422 timestampTranscriptMessages |
5423 ^ Transcript class perform: #timestampMessages ifNotUnderstood:[false] |
5423 ^ TextCollector perform: #timestampMessages ifNotUnderstood:[false] |
5424 |
5424 |
5425 "Modified: / 25-07-2013 / 12:16:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5425 "Modified: / 25-07-2013 / 12:16:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
5426 ! |
5426 ! |
5427 |
5427 |
5428 timestampTranscriptMessages:aBoolean |
5428 timestampTranscriptMessages:aBoolean |
5429 ^ Transcript class timestampMessages:aBoolean |
5429 ^ TextCollector timestampMessages:aBoolean |
5430 ! ! |
5430 ! ! |
5431 |
5431 |
5432 !NewLauncher methodsFor:'user actions-demos'! |
5432 !NewLauncher methodsFor:'user actions-demos'! |
5433 |
5433 |
5434 openDemo:className |
5434 openDemo:className |
5740 ! ! |
5740 ! ! |
5741 |
5741 |
5742 !NewLauncher class methodsFor:'documentation'! |
5742 !NewLauncher class methodsFor:'documentation'! |
5743 |
5743 |
5744 version |
5744 version |
5745 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $' |
5745 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $' |
5746 ! |
5746 ! |
5747 |
5747 |
5748 version_CVS |
5748 version_CVS |
5749 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $' |
5749 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $' |
5750 ! |
5750 ! |
5751 |
5751 |
5752 version_SVN |
5752 version_SVN |
5753 ^ '$Id: NewLauncher.st,v 1.542 2015-02-25 00:46:54 cg Exp $' |
5753 ^ '$Id: NewLauncher.st,v 1.543 2015-02-25 17:58:39 cg Exp $' |
5754 ! ! |
5754 ! ! |
5755 |
5755 |