diff -r de0ac0f0ad3a -r b03631e990dc NewLauncher.st
--- 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