--- a/NewLauncher.st Sun Oct 25 02:29:57 2009 +0200
+++ b/NewLauncher.st Sun Oct 25 02:40:43 2009 +0200
@@ -1163,7 +1163,7 @@
nameKey: systemBrowser
translateLabel: true
submenuChannel: menuClassHistory
- labelImage: (ResourceRetriever nil startSystemBrowserIcon 'System Browser')
+ labelImage: (ResourceRetriever ToolbarIconLibrary startSystemBrowserIcon 'System Browser')
argument: 'Tools::NewSystemBrowser'
showBusyCursorWhilePerforming: true
)
@@ -1197,11 +1197,10 @@
(MenuItem
activeHelpKey: startSmallTeamChangeSetBrowser
label: 'Recent Changes on SmallTeam Host'
+ translateLabel: true
+ isVisible: smallTeamAvailable
submenuChannel: startBrowserOnSmallTeamChangesMenu
- keepLinkedMenu: false
- translateLabel: true
showBusyCursorWhilePerforming: true
- isVisible: smallTeamAvailable
)
(MenuItem
label: '-'
@@ -1214,13 +1213,13 @@
submenu:
(Menu
(
- (MenuItem
- activeHelpKey: breakPointBrowser
- label: 'Breakpoint Browser'
- itemValue: openApplication:
- translateLabel: true
- argument: 'Tools::BreakpointBrowser'
- )
+ (MenuItem
+ activeHelpKey: breakPointBrowser
+ label: 'Breakpoint Browser'
+ itemValue: openApplication:
+ translateLabel: true
+ argument: 'Tools::BreakpointBrowser'
+ )
(MenuItem
label: '-'
)
@@ -1238,10 +1237,10 @@
)
(MenuItem
activeHelpKey: classesStopIgnoringHalts
+ enabled: debuggerHasIgnoredHalts
label: 'Stop Ignoring Halts/BreakPoints'
itemValue: stopIgnoringHalts
translateLabel: true
- enabled: debuggerHasIgnoredHalts
)
)
nil
@@ -1374,8 +1373,6 @@
nil
nil
)
-
- "Modified: / 12-11-2006 / 16:09:41 / cg"
!
demosMenu
@@ -1899,60 +1896,59 @@
<resource: #menu>
^
- #(#Menu
- #(
- #(#MenuItem
- #label: 'File Browser'
- #translateLabel: true
- #nameKey: #fileBrowser
- #value: #openFileBrowser
- #activeHelpKey: #fileFileBrowser
- #labelImage: #(#ResourceRetriever nil #startFileBrowserIcon '')
+ #(Menu
+ (
+ (MenuItem
+ activeHelpKey: fileFileBrowser
+ label: 'File Browser'
+ itemValue: openFileBrowser
+ nameKey: fileBrowser
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary startFileBrowserIcon 'File Browser')
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Save Image'
- #translateLabel: true
- #nameKey: #saveImage
- #value: #saveImage
- #activeHelpKey: #fileSaveImage
- #enabled: #enableDangerousMenuItemsInRemoteLauncher
+ (MenuItem
+ activeHelpKey: fileSaveImage
+ enabled: enableDangerousMenuItemsInRemoteLauncher
+ label: 'Save Image'
+ itemValue: saveImage
+ nameKey: saveImage
+ translateLabel: true
+ labelImage: (ResourceRetriever ToolbarIconLibrary saveImageIcon 'Save Image')
)
- #(#MenuItem
- #label: 'Save Image As...'
- #translateLabel: true
- #nameKey: #saveImageAs
- #value: #saveImageAs
- #activeHelpKey: #fileSaveImageAs
- #enabled: #enableDangerousMenuItemsInRemoteLauncher
+ (MenuItem
+ activeHelpKey: fileSaveImageAs
+ enabled: enableDangerousMenuItemsInRemoteLauncher
+ label: 'Save Image As...'
+ itemValue: saveImageAs
+ nameKey: saveImageAs
+ translateLabel: true
)
- #(#MenuItem
- #label: '-'
+ (MenuItem
+ label: '-'
)
- #(#MenuItem
- #label: 'Exit Smalltalk...'
- #translateLabel: true
- #nameKey: #exitSmalltalk
- #isVisible: #isMainLauncherHolder
- #value: #exit
- #activeHelpKey: #fileExit
- #enabled: #enableDangerousMenuItemsInRemoteLauncher
+ (MenuItem
+ activeHelpKey: fileExit
+ enabled: enableDangerousMenuItemsInRemoteLauncher
+ label: 'Exit Smalltalk...'
+ itemValue: exit
+ nameKey: exitSmalltalk
+ translateLabel: true
+ isVisible: isMainLauncherHolder
)
- #(#MenuItem
- #label: 'Close...'
- #translateLabel: true
- #isVisible: #isNotMainLauncherHolder
- #value: #closeRequest
- #activeHelpKey: #fileClose
+ (MenuItem
+ activeHelpKey: fileClose
+ label: 'Close...'
+ itemValue: closeRequest
+ translateLabel: true
+ isVisible: isNotMainLauncherHolder
)
)
nil
nil
)
-
- "Modified: / 05-11-2007 / 11:16:24 / cg"
!
helpMenu
@@ -2708,7 +2704,7 @@
itemValue: openApplication:
nameKey: guiPainter
translateLabel: true
- labelImage: (ResourceRetriever nil startUIPainterIcon 'GUI Painter')
+ labelImage: (ResourceRetriever ToolbarIconLibrary startUIPainterIcon 'GUI Painter')
argument: 'UIPainter'
)
(MenuItem
@@ -2717,7 +2713,7 @@
itemValue: openApplication:
nameKey: menuEditor
translateLabel: true
- labelImage: (ResourceRetriever nil startMenuEditorIcon 'Menu Editor')
+ labelImage: (ResourceRetriever ToolbarIconLibrary startMenuEditorIcon 'Menu Editor')
argument: 'MenuEditor'
)
(MenuItem
@@ -2726,7 +2722,7 @@
itemValue: openApplication:
nameKey: imageEditor
translateLabel: true
- labelImage: (ResourceRetriever nil startImageEditorIcon 'Image Editor')
+ labelImage: (ResourceRetriever ToolbarIconLibrary startImageEditorIcon 'Image Editor')
argument: 'ImageEditor'
)
(MenuItem
@@ -2738,7 +2734,7 @@
itemValue: startChangesBrowser
nameKey: changesBrowser
translateLabel: true
- labelImage: (ResourceRetriever nil startChangesBrowserIcon 'Change File Browser')
+ labelImage: (ResourceRetriever ToolbarIconLibrary startChangesBrowserIcon 'Change File Browser')
)
(MenuItem
label: 'Bug Reporter'
@@ -4675,9 +4671,9 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.395 2009-10-22 12:41:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.396 2009-10-25 00:40:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.395 2009-10-22 12:41:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.396 2009-10-25 00:40:43 cg Exp $'
! !