Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1478.mcz
==================== Summary ====================
Name: Morphic-kfr.1478 Author: kfr Time: 28 February 2019, 4:09:26.634492 pm UUID: ec9720b3-1097-4cef-989b-8a21a5ac15e8 Ancestors: Morphic-tonyg.1477
A few changes to Project menu in TheWorldMainDocingBar
No need for a submenu for only 2 sub entries, so I simplyfied to have the the main menu include all project types.
Change so new projects are not automatically entered upon creation, because that is unexpected behavior.
=============== Diff against Morphic-tonyg.1477 ===============
Item was changed: ----- Method: TheWorldMainDockingBar>>newProject: (in category 'menu actions') ----- newProject: projectClass "Create a new project of the given type" | newProject | "Allow the project to return nil from #new to indicate that it was canceled." newProject := projectClass new ifNil:[^self]. ProjectViewMorph openOn: newProject. + ! - newProject enter.!
Item was changed: ----- Method: TheWorldMainDockingBar>>newProjectMenuItemOn: (in category 'submenu - projects') ----- newProjectMenuItemOn: menu
+ Project allSubclasses do: [ :each | + menu addItem: [ :item | + item + contents: ('New ', each name) translated; + help: ('Start a new ', each name) translated; + target: self; + selector: #newProject:; + arguments: { each } ] ]! - menu addItem: [ :item | - item - contents: 'New Project' translated; - help: 'Start a new MorphicProject' translated; - icon: MenuIcons smallProjectIcon; - target: self; - selector: #newProject:; - arguments: { MorphicProject }; - subMenuUpdater: self - selector: #updateNewProjectSubMenu: ]!
Item was removed: - ----- Method: TheWorldMainDockingBar>>updateNewProjectSubMenu: (in category 'submenu - projects') ----- - updateNewProjectSubMenu: menu - - Project allSubclasses do: [ :each | - menu addItem: [ :item | - item - contents: ('New ', each name) translated; - help: ('Start a new ', each name) translated; - target: self; - selector: #newProject:; - arguments: { each } ] ]!
packages@lists.squeakfoundation.org