NewLauncher.st
changeset 10847 aae16bffdd78
parent 10845 c01d585f5a43
child 10889 60ece237f668
--- a/NewLauncher.st	Sun Oct 30 09:18:59 2011 +0100
+++ b/NewLauncher.st	Sun Oct 30 12:38:10 2011 +0100
@@ -771,7 +771,12 @@
 
 #flyByWindowInformation
 'Show flyby info about the window under the pointer. Easy access to View, Application and Model.'
+
+#enableGlobalCoverageAnalysis
+'Enable coverage statistic gathering in all processes (global covarage analysis)'
 )
+
+    "Modified: / 30-10-2011 / 12:37:31 / cg"
 ! !
 
 !NewLauncher class methodsFor:'interface specs'!
@@ -1156,6 +1161,7 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
      MenuEditor new openOnClass:NewLauncher andSelector:#classesMenu
      (Menu new fromLiteralArrayEncoding:(NewLauncher classesMenu)) startUp
@@ -1252,6 +1258,15 @@
                   itemValue: stopIgnoringHalts
                   translateLabel: true
                 )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
+                  label: 'Enable Global Coverage Analysis'
+                  itemValue: enableGlobalCoverageAnalysis
+                  translateLabel: true
+                  activeHelpKey: enableGlobalCoverageAnalysis
+                )
                )
               nil
               nil
@@ -1325,6 +1340,8 @@
         nil
         nil
       )
+
+    "Modified: / 30-10-2011 / 12:36:20 / cg"
 !
 
 classesSpecialBrowserMenu
@@ -4513,6 +4530,13 @@
 
 !NewLauncher methodsFor:'user actions-classes'!
 
+enableGlobalCoverageAnalysis
+    self halt.
+    InstrumentationContext new beActiveEverywhere.
+
+    "Created: / 28-10-2011 / 20:31:28 / cg"
+!
+
 openMethodFinder
     "open the methodFinder (ported from squeak)"
     
@@ -4793,11 +4817,11 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.416 2011-10-28 12:16:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.417 2011-10-30 11:38:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.416 2011-10-28 12:16:58 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.417 2011-10-30 11:38:10 cg Exp $'
 !
 
 version_SVN