--- a/NewLauncher.st Tue Oct 13 16:46:55 1998 +0200
+++ b/NewLauncher.st Tue Oct 13 16:47:44 1998 +0200
@@ -399,7 +399,7 @@
'Tool functions.'
#toolsChangesBrowser
-'Open a Changes Browser on changes made to the current smalltalk environment.'
+'Open a Changes Browser.'
#toolsGUIPainter
'Open a GUI Painter for graphical user interface construction.'
@@ -428,6 +428,9 @@
#toolsMiscProjectsSelectProject
'Select an existing project and reopen its windows.'
+#toolsNewChangesBrowser
+'Open the new changes browser.'
+
#toolsOldChangesBrowser
'Open the old changes browser.'
@@ -477,6 +480,8 @@
'Display the widget hierarchies of all ST/X windows.'
)
+
+ "Modified: / 13.10.1998 / 16:02:36 / cg"
! !
!NewLauncher class methodsFor:'image specs'!
@@ -870,9 +875,8 @@
#(#MenuItem
#label: 'Changes Browser'
#translateLabel: true
- #value: #openApplication:
+ #value: #startChangesBrowser
#activeHelpKey: #toolsChangesBrowser
- #argument: 'NewChangesBrowser'
#labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon 'Changes Browser')
)
#(#MenuItem
@@ -932,6 +936,12 @@
#label: '-'
)
#(#MenuItem
+ #label: 'New Changes Browser'
+ #translateLabel: true
+ #value: #startNewChangesBrowser
+ #activeHelpKey: #toolsNewChangesBrowser
+ )
+ #(#MenuItem
#label: 'Old Changes Browser'
#translateLabel: true
#value: #startOldChangesBrowser
@@ -1108,6 +1118,11 @@
#enabled: #enableDangerousMenuItemsInRemoteLauncher
)
#(#MenuItem
+ #label: 'Tools...'
+ #translateLabel: true
+ #value: #toolSettings
+ )
+ #(#MenuItem
#label: 'Java...'
#translateLabel: true
#isVisible: #javaSupportPresent
@@ -1726,7 +1741,7 @@
nil
)
- "Modified: / 13.10.1998 / 15:14:34 / cg"
+ "Modified: / 13.10.1998 / 16:01:26 / cg"
!
menuToolbar
@@ -1747,107 +1762,106 @@
#(#Menu
- #(
- #(#MenuItem
- #label: 'open workspace'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #toolsWorkspace
- #argument: 'Workspace'
- #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon)
- )
- #(#MenuItem
- #label: 'open file browser'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #fileFileBrowser
- #argument: 'FileBrowser'
- #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
- )
- #(#MenuItem
- #label: 'save image'
- #isButton: true
- #value: #saveImageAs
- #activeHelpKey: #fileSaveImageAs
- #labelImage: #(#ResourceRetriever nil #saveImageIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'open system browser'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #classesSystemBrowser
- #argument: 'SystemBrowser'
- #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
- )
- #(#MenuItem
- #label: 'System Browser On Class'
- #isButton: true
- #activeHelpKey: #classesSystemBrowserOnClass
- #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon)
- #submenuChannel: #menuClassHistory
- )
- #(#MenuItem
- #label: 'open changes browser'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #toolsChangesBrowser
- #argument: 'NewChangesBrowser'
- #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'open GUI Builder'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #toolsGUIPainter
- #argument: 'UIPainter'
- #labelImage: #(#ResourceRetriever nil #startUIPainterIcon)
- )
- #(#MenuItem
- #label: 'open menu editor'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #toolsMenuEditor
- #argument: 'MenuEditor'
- #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon)
- )
- #(#MenuItem
- #label: 'open image editor'
- #isButton: true
- #value: #openApplication:
- #activeHelpKey: #toolsImageEditor
- #argument: 'ImageEditor'
- #labelImage: #(#ResourceRetriever nil #startImageEditorIcon)
- )
- #(#MenuItem
- #label: ''
- )
- #(#MenuItem
- #label: 'garbage collect and compress'
- #isButton: true
- #value: #compressingGarbageCollect
- #activeHelpKey: #systemGarbageCollectAndCompress
- #labelImage: #(#ResourceRetriever nil #garbageCollectIcon)
- )
- #(#MenuItem
- #label: 'help'
- #translateLabel: true
- #isButton: true
- #startGroup: #right
- #value: #startDocumentationTool
- #activeHelpKey: #helpSTXOnlineDocumentation
- #labelImage: #(#ResourceRetriever nil #helpIcon2)
- )
- ) nil
- nil
+ #(
+ #(#MenuItem
+ #label: 'open workspace'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #toolsWorkspace
+ #argument: 'Workspace'
+ #labelImage: #(#ResourceRetriever nil #startWorkspaceIcon)
+ )
+ #(#MenuItem
+ #label: 'open file browser'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #fileFileBrowser
+ #argument: 'FileBrowser'
+ #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon)
+ )
+ #(#MenuItem
+ #label: 'save image'
+ #isButton: true
+ #value: #saveImageAs
+ #activeHelpKey: #fileSaveImageAs
+ #labelImage: #(#ResourceRetriever nil #saveImageIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #label: 'open system browser'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #classesSystemBrowser
+ #argument: 'SystemBrowser'
+ #labelImage: #(#ResourceRetriever nil #startSystemBrowserIcon)
+ )
+ #(#MenuItem
+ #label: 'System Browser On Class'
+ #isButton: true
+ #activeHelpKey: #classesSystemBrowserOnClass
+ #labelImage: #(#ResourceRetriever nil #startSystemBrowserOnHistoryClassIcon)
+ #submenuChannel: #menuClassHistory
+ )
+ #(#MenuItem
+ #label: 'open changes browser'
+ #isButton: true
+ #value: #startChangesBrowser
+ #activeHelpKey: #toolsChangesBrowser
+ #labelImage: #(#ResourceRetriever nil #startChangesBrowserIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #label: 'open GUI Builder'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #toolsGUIPainter
+ #argument: 'UIPainter'
+ #labelImage: #(#ResourceRetriever nil #startUIPainterIcon)
+ )
+ #(#MenuItem
+ #label: 'open menu editor'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #toolsMenuEditor
+ #argument: 'MenuEditor'
+ #labelImage: #(#ResourceRetriever nil #startMenuEditorIcon)
+ )
+ #(#MenuItem
+ #label: 'open image editor'
+ #isButton: true
+ #value: #openApplication:
+ #activeHelpKey: #toolsImageEditor
+ #argument: 'ImageEditor'
+ #labelImage: #(#ResourceRetriever nil #startImageEditorIcon)
+ )
+ #(#MenuItem
+ #label: ''
+ )
+ #(#MenuItem
+ #label: 'garbage collect and compress'
+ #isButton: true
+ #value: #compressingGarbageCollect
+ #activeHelpKey: #systemGarbageCollectAndCompress
+ #labelImage: #(#ResourceRetriever nil #garbageCollectIcon)
+ )
+ #(#MenuItem
+ #label: 'help'
+ #translateLabel: true
+ #isButton: true
+ #startGroup: #right
+ #value: #startDocumentationTool
+ #activeHelpKey: #helpSTXOnlineDocumentation
+ #labelImage: #(#ResourceRetriever nil #helpIcon2)
+ )
+ ) nil
+ nil
)
- "Modified: / 7.8.1998 / 19:40:36 / cg"
+ "Modified: / 13.10.1998 / 15:59:17 / cg"
! !
!NewLauncher class methodsFor:'resources'!
@@ -3162,6 +3176,15 @@
"Modified: / 31.7.1998 / 22:47:21 / cg"
!
+toolSettings
+ "open a dialog on tool settings"
+
+ Launcher::LauncherDialogs toolSettingsFor:self.
+
+ "Modified: / 31.7.1998 / 22:46:56 / cg"
+ "Created: / 13.10.1998 / 15:50:53 / cg"
+!
+
viewStyleSetting
"open a dialog on viewStyle related settings"
@@ -3367,6 +3390,18 @@
]
!
+startChangesBrowser
+ "opens the new or old changeBrowser (dep. on userPrefs)"
+
+ UserPreferences current useNewChangesBrowser ifTrue:[
+ NewChangesBrowser open
+ ] ifFalse:[
+ ChangesBrowser open
+ ]
+
+ "Created: / 13.10.1998 / 15:56:46 / cg"
+!
+
startNewLauncher
"opens the new launcher"
@@ -3579,5 +3614,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.112 1998-10-13 13:57:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.113 1998-10-13 14:47:44 cg Exp $'
! !