class: NewLauncher
authorClaus Gittinger <cg@exept.de>
Tue, 02 Dec 2014 01:05:19 +0100
changeset 14964 9d051aea829d
parent 14963 7247ac7242bf
child 14965 02bfa1f4aa9a
class: NewLauncher changed: #helpSpec #toolsMenu
NewLauncher.st
--- a/NewLauncher.st	Mon Dec 01 22:55:30 2014 +0100
+++ b/NewLauncher.st	Tue Dec 02 01:05:19 2014 +0100
@@ -271,6 +271,9 @@
 #aboutLicenseConditions
 'Show the license conditions of ST/X'
 
+#breakPointBrowser
+''
+
 #chickenFun
 'Watch your views'
 
@@ -616,13 +619,12 @@
 #startChangeSetBrowser
 'Open a Browser on recent changes (the ChangeSet)'
 
+#startSQLScratchpad
+'SQLScratchpad - a scratchpad for SQL statement execution (ODBC or SQLite)'
+
 #startSQLWorkspace
 'SQLWorkspace - a workspace for SQL statement execution'
 
-#startSQLScratchpad
-'SQLScratchpad - a scratchpad for SQL statement execution (ODBC or SQLite)'
-
-
 #system
 'System tools'
 
@@ -2819,6 +2821,7 @@
                   activeHelpKey: breakPointBrowser
                   label: 'Breakpoint Browser'
                   itemValue: openApplication:
+                  labelImage: (ResourceRetriever ToolbarIconLibrary openBreakpointBrowserIcon 'Breakpoint Browser')
                   argument: 'Tools::BreakpointBrowser'
                 )
                (MenuItem
@@ -2919,15 +2922,15 @@
             labelImage: (ResourceRetriever NewLauncher bugReporterIcon 'Bug Reporter')
           )
          (MenuItem
+            activeHelpKey: startSQLWorkspace
             label: 'SQL Workspace'
             itemValue: startSQLWorkspace
-            activeHelpKey: startSQLWorkspace
             isVisible: false
           )
          (MenuItem
+            activeHelpKey: startSQLScratchpad
             label: 'SQL Scratchpad'
             itemValue: startSQLScratchpad
-            activeHelpKey: startSQLScratchpad
           )
          (MenuItem
             activeHelpKey: fileApplicationBuilder
@@ -5287,14 +5290,14 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.508 2014-11-28 23:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.509 2014-12-02 00:05:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.508 2014-11-28 23:22:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.509 2014-12-02 00:05:19 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: NewLauncher.st,v 1.508 2014-11-28 23:22:19 cg Exp $'
+    ^ '$Id: NewLauncher.st,v 1.509 2014-12-02 00:05:19 cg Exp $'
 ! !