NewLauncher.st
changeset 11869 f2df986521e4
parent 11848 ddbb4fa724df
child 11991 40fd865d6f5b
--- a/NewLauncher.st	Sat Oct 20 18:21:16 2012 +0200
+++ b/NewLauncher.st	Sat Oct 20 19:47:15 2012 +0200
@@ -1191,7 +1191,6 @@
             label: 'System Browser'
             itemValue: openApplication:
             nameKey: systemBrowser
-            translateLabel: true
             submenuChannel: menuClassHistory
             labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
             argument: 'Tools::NewSystemBrowser'
@@ -1205,7 +1204,6 @@
             label: 'Recent Changes'
             itemValue: startChangeSetBrowser
             nameKey: startChangeSetBrowser
-            translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -1213,7 +1211,6 @@
             label: 'Changed Classes'
             itemValue: startClassBrowserOnChanges
             nameKey: classBrowserOnChanges
-            translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
@@ -1221,13 +1218,11 @@
             label: 'Changed Methods'
             itemValue: startClassBrowserOnChangedMethods
             nameKey: classBrowserOnChangedMethods
-            translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
             activeHelpKey: startSmallTeamChangeSetBrowser
             label: 'Recent Changes on SmallTeam Host'
-            translateLabel: true
             isVisible: smallTeamAvailable
             submenuChannel: startBrowserOnSmallTeamChangesMenu
             showBusyCursorWhilePerforming: true
@@ -1239,7 +1234,6 @@
             activeHelpKey: classesDebugging
             label: 'Debugging'
             nameKey: debugging
-            translateLabel: true
             submenu: 
            (Menu
               (
@@ -1247,7 +1241,6 @@
                   activeHelpKey: breakPointBrowser
                   label: 'Breakpoint Browser'
                   itemValue: openApplication:
-                  translateLabel: true
                   argument: 'Tools::BreakpointBrowser'
                 )
                (MenuItem
@@ -1257,20 +1250,17 @@
                   activeHelpKey: classesShowTracePoints
                   label: 'Show all Break && Trace Points'
                   itemValue: browseAllBreakAndTracePoints
-                  translateLabel: true
                 )
                (MenuItem
                   activeHelpKey: classesRemoveAllTracePoints
                   label: 'Remove all Break && Trace Points'
                   itemValue: removeAllBreakAndTracePoints
-                  translateLabel: true
                 )
                (MenuItem
                   activeHelpKey: classesStopIgnoringHalts
                   enabled: debuggerHasIgnoredHalts
                   label: 'Stop Ignoring Halts/Breakpoints'
                   itemValue: stopIgnoringHalts
-                  translateLabel: true
                 )
                (MenuItem
                   label: '-'
@@ -1278,21 +1268,23 @@
                (MenuItem
                   label: 'Halt when Text is Sent to Transcript...'
                   itemValue: openTranscriptDebugDialog
-                  translateLabel: true
                 )
                (MenuItem
                   label: 'Trace when Text is Sent to Transcript...'
                   itemValue: openTranscriptTraceDialog
-                  translateLabel: true
                 )
                (MenuItem
                   label: '-'
                 )
                (MenuItem
                   activeHelpKey: enableGlobalCoverageAnalysis
+                  label: 'Clear all Coverage Info (Systemwide)'
+                  itemValue: clearAllCoverageInfo
+                )
+               (MenuItem
+                  activeHelpKey: enableGlobalCoverageAnalysis
                   label: 'Enable Coverage Analysis in all Processes'
                   itemValue: enableGlobalCoverageAnalysis
-                  translateLabel: true
                 )
                )
               nil
@@ -1301,14 +1293,12 @@
           )
          (MenuItem
             label: 'Special Browsers'
-            translateLabel: true
             submenuChannel: classesSpecialBrowserMenu
           )
          (MenuItem
             activeHelpKey: classesClassTreeBrowser
             label: 'Class Tree'
             itemValue: openApplication:
-            translateLabel: true
             argument: 'ClassTreeGraphView'
             showBusyCursorWhilePerforming: true
           )
@@ -1319,27 +1309,23 @@
             activeHelpKey: classesImplementors
             label: 'Implementors Of...'
             itemValue: browseImplementors
-            translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
             activeHelpKey: classesSenders
             label: 'Senders Of...'
             itemValue: browseSenders
-            translateLabel: true
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
             label: 'Method Finder'
             itemValue: openMethodFinder
-            translateLabel: true
             labelImage: (ResourceRetriever ToolbarIconLibrary methodFinder24x24Icon 'Method Finder')
           )
          (MenuItem
             activeHelpKey: classesResourceMethods
             label: 'Find Resource Methods...'
             itemValue: browseResources
-            translateLabel: true
           )
          (MenuItem
             label: '-'
@@ -1348,7 +1334,6 @@
             activeHelpKey: classesSpecial
             label: 'Special'
             nameKey: special
-            translateLabel: true
             submenu: 
            (Menu
               (
@@ -1356,19 +1341,16 @@
                   activeHelpKey: classesSpecialReferencesToUnboundGlobals
                   label: 'References to Unbound Globals'
                   itemValue: browseUnboundGlobals
-                  translateLabel: true
                 )
                (MenuItem
                   activeHelpKey: classesSpecialReferencesToUndeclared
                   label: 'References to Undeclared'
                   itemValue: browseUndeclared
-                  translateLabel: true
                 )
                (MenuItem
                   activeHelpKey: classesSpecialReferencesToUndeclared
                   label: 'Clear Undeclared Variables'
                   itemValue: clearUndeclaredVariables
-                  translateLabel: true
                 )
                )
               nil
@@ -4989,11 +4971,11 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.444 2012-10-17 17:41:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.445 2012-10-20 17:47:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.444 2012-10-17 17:41:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.445 2012-10-20 17:47:15 cg Exp $'
 !
 
 version_SVN