The Trunk: Morphic-kfr.1478.mcz

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 } ] ]!