[Pkg] The Trunk: Morphic-kfr.1478.mcz

[commits at source.squeak.org]

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