--- a/NewLauncher.st Tue Jan 31 19:24:10 2012 +0100
+++ b/NewLauncher.st Thu Feb 02 21:37:09 2012 +0100
@@ -1265,10 +1265,23 @@
label: '-'
)
(MenuItem
+ label: 'Halt when Message is Sent to Transcript...'
+ itemValue: openTranscriptDebugDialog
+ translateLabel: true
+ )
+ (MenuItem
+ label: 'Trace when Message is Sent to Transcript...'
+ itemValue: openTranscriptTraceDialog
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ activeHelpKey: enableGlobalCoverageAnalysis
label: 'Enable Global Coverage Analysis'
itemValue: enableGlobalCoverageAnalysis
translateLabel: true
- activeHelpKey: enableGlobalCoverageAnalysis
)
)
nil
@@ -1343,8 +1356,6 @@
nil
nil
)
-
- "Modified: / 30-10-2011 / 12:36:20 / cg"
!
classesSpecialBrowserMenu
@@ -4569,6 +4580,32 @@
"Modified: / 16-10-2006 / 13:36:36 / cg"
!
+openTranscriptDebugDialog
+ |pattern|
+
+ pattern := Dialog
+ request:('Enter GLOB matchpattern for message text\(to enter breakpoint if matching text is sent to the Transcript)\\Empty to disable.' withCRs)
+ initialAnswer:(Transcript class debugSendersOfMessagePattern).
+ pattern isNil ifTrue:[^ self].
+
+ Transcript class debugSendersOfMessagePattern:pattern
+
+ "Created: / 02-02-2012 / 12:05:05 / cg"
+!
+
+openTranscriptTraceDialog
+ |pattern|
+
+ pattern := Dialog
+ request:('Enter GLOB matchpattern for message text\(to trace who sends matching text to the Transcript)\\Empty to disable.' withCRs)
+ initialAnswer:(Transcript class traceSendersOfMessagePattern).
+ pattern isNil ifTrue:[^ self].
+
+ Transcript class traceSendersOfMessagePattern:pattern
+
+ "Created: / 02-02-2012 / 12:06:10 / cg"
+!
+
startBrowserOnChangesOnSmallTeamHost:aHostName
(UserPreferences current changeSetBrowserClass) openOn:(SmallTeam changesOnHost:aHostName)
@@ -4840,11 +4877,11 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.423 2011-12-27 08:52:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.424 2012-02-02 20:37:09 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.423 2011-12-27 08:52:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.424 2012-02-02 20:37:09 cg Exp $'
!
version_SVN