--- 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 $'
! !