--- a/Tools__NewSystemBrowser.st Mon Dec 30 19:48:56 2019 +0100
+++ b/Tools__NewSystemBrowser.st Mon Dec 30 20:25:15 2019 +0100
@@ -8679,10 +8679,10 @@
^
#(Menu
(
- (MenuItem
- label: '-'
- isVisible: hasGroovySupport
- )
+"/ (MenuItem
+"/ label: '-'
+"/ isVisible: hasGroovySupport
+"/ )
(MenuItem
label: 'Groovy Class'
itemValue: classMenuNewGroovyClass
@@ -8714,10 +8714,10 @@
^
#(Menu
(
- (MenuItem
- label: '-'
- isVisible: isHaskellModulePresent
- )
+"/ (MenuItem
+"/ label: '-'
+"/ isVisible: isHaskellModulePresent
+"/ )
(MenuItem
enabled: isHaskellModulePresent
label: 'Haskell Module'
@@ -8748,10 +8748,10 @@
^
#(Menu
(
- (MenuItem
- label: '-'
- isVisible: isJavaScriptMetaclassPresent
- )
+"/ (MenuItem
+"/ label: '-'
+"/ isVisible: isJavaScriptMetaclassPresent
+"/ )
(MenuItem
enabled: isJavaScriptMetaclassPresent
label: 'JavaScript Class'
@@ -8781,10 +8781,10 @@
^
#(Menu
(
- (MenuItem
- label: '-'
- isVisible: isLispMetaclassPresent
- )
+"/ (MenuItem
+"/ label: '-'
+"/ isVisible: isLispMetaclassPresent
+"/ )
(MenuItem
label: 'Scheme Namespace'
itemValue: classMenuNewLispNamespace
@@ -8851,10 +8851,10 @@
^
#(Menu
(
- (MenuItem
- label: '-'
- isVisible: isRubyMetaclassPresent
- )
+"/ (MenuItem
+"/ label: '-'
+"/ isVisible: isRubyMetaclassPresent
+"/ )
(MenuItem
label: 'Ruby class'
itemValue: classMenuNewRubyClass
@@ -8863,23 +8863,11 @@
labelImage: (ResourceRetriever ToolbarIconLibrary rubyClassBrowserIcon 'Ruby class')
)
(MenuItem
- label: 'Ruby...'
- translateLabel: true
- isVisible: isRubyMetaclassPresent
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Module'
+ label: 'Ruby Module'
itemValue: classMenuNewRubyModule
translateLabel: true
isVisible: isRubyMetaclassPresent
)
- )
- nil
- nil
- )
- )
)
nil
nil
@@ -8902,82 +8890,84 @@
<resource: #menu>
^
- #(Menu
- (
- (MenuItem
- label: 'Class'
- itemValue: classMenuNewClass
- )
- (MenuItem
- enabled: hasSingleClassSelectedHolder
- label: 'Subclass'
- itemValue: classMenuNewSubclass
- )
- (MenuItem
- label: 'GUI Application'
- itemValue: classMenuNewApplication
- )
- (MenuItem
- label: 'TestCase'
- itemValue: classMenuNewTestCase
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Smalltalk Class Slice'
- nameKey: classNewSmalltalkSlice
- submenuChannel: classNewSmalltalkSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Ruby Class Slice'
- nameKey: classNewRubyClassSlice
- submenuChannel: classNewRubyClassSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'JavaScript Class Slice'
- nameKey: classNewJavaScriptClassSlice
- submenuChannel: classNewJavaScriptClassSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Lisp Class Slice'
- nameKey: classNewLispClassSlice
- submenuChannel: classNewLispClassSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Haskell Class Slice'
- nameKey: classNewHaskellClassSlice
- submenuChannel: classNewHaskellClassSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'PLSQL Class Slice'
- nameKey: classNewPLSQLClassSlice
- submenuChannel: classNewPLSQLClassSlice
- isMenuSlice: true
- )
- (MenuItem
- label: 'Other New Class Slice'
- nameKey: classOtherClassNewSlice
- submenuChannel: classOtherClassNewSlice
- isMenuSlice: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Class Wizard...'
- itemValue: classMenuOpenClassCreationWizard
- labelImage: (ResourceRetriever ToolbarIconLibrary newClassWizardIcon 'Class Wizard...')
- )
- )
- nil
- nil
- )
+ #(Menu
+ (MenuItem
+ label: 'Class'
+ itemValue: classMenuNewClass
+ )
+ (MenuItem
+ enabled: hasSingleClassSelectedHolder
+ label: 'Subclass'
+ itemValue: classMenuNewSubclass
+ )
+ (MenuItem
+ label: 'GUI Application'
+ itemValue: classMenuNewApplication
+ )
+ (MenuItem
+ label: 'TestCase'
+ itemValue: classMenuNewTestCase
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Smalltalk Class Slice'
+ nameKey: classNewSmalltalkSlice
+ submenuChannel: classNewSmalltalkSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Languages'
+ submenu:
+ (Menu
+ (MenuItem
+ label: 'Ruby Class Slice'
+ nameKey: classNewRubyClassSlice
+ submenuChannel: classNewRubyClassSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'JavaScript Class Slice'
+ nameKey: classNewJavaScriptClassSlice
+ submenuChannel: classNewJavaScriptClassSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Lisp Class Slice'
+ nameKey: classNewLispClassSlice
+ submenuChannel: classNewLispClassSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Haskell Class Slice'
+ nameKey: classNewHaskellClassSlice
+ submenuChannel: classNewHaskellClassSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'PLSQL Class Slice'
+ nameKey: classNewPLSQLClassSlice
+ submenuChannel: classNewPLSQLClassSlice
+ isMenuSlice: true
+ )
+ (MenuItem
+ label: 'Other New Class Slice'
+ nameKey: classOtherClassNewSlice
+ submenuChannel: classOtherClassNewSlice
+ isMenuSlice: true
+ )
+ )
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Class Wizard...'
+ itemValue: classMenuOpenClassCreationWizard
+ labelImage: (ResourceRetriever ToolbarIconLibrary newClassWizardIcon 'Class Wizard...')
+ )
+ )
!
classNewSmalltalkSlice
@@ -54466,10 +54456,10 @@
m := Menu new.
allOtherLanguages do:[:eachLanguage |
- m addSeparator.
- m addItem:(MenuItem
- label:(resources string:'%1 Class' with:(eachLanguage name))
- itemValue:[self classMenuNewClass:eachLanguage metaClass ])
+ "/ m addSeparator.
+ m addItem:(MenuItem
+ label:(resources string:'%1 Class' with:(eachLanguage name))
+ itemValue:[self classMenuNewClass:eachLanguage metaClass ])
].
m