[Pkg] The Trunk: ST80-mt.193.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.193.mcz

==================== Summary ====================

Name: ST80-mt.193
Author: mt
Time: 16 February 2016, 11:28:38.155735 am
UUID: fe1a20d6-db9e-4d74-b09f-08c09e5bd6f1
Ancestors: ST80-mt.192

Update screen menu for quick access to browser and workspace. Fix separators. Add entries to open all kinds of new projects.

=============== Diff against ST80-mt.192 ===============

Item was added:
+ ----- Method: ScreenController>>ensureProjectAccessors (in category 'menu messages') -----
+ ensureProjectAccessors
+ 
+ 	Project allSubclassesDo: [:cls |
+ 		(self respondsTo: (#open, cls name) asSymbol)
+ 			ifFalse: [self class
+ 				compile: ('open{1}\	Smalltalk at: #{1} ifPresent: [:p | ProjectView open: p new]' withCRs format: {cls name}) classified: '*autogenerated - project accessors']].!

Item was changed:
  ----- Method: ScreenController>>openMenu (in category 'nested menus') -----
  openMenu
+ 
+ 	| projectLabels projectAccessors |
+ 	self ensureProjectAccessors.
+ 	projectLabels := Project allSubclasses collect: [:cls | 'new ', cls name].
+ 	projectAccessors := Project allSubclasses collect: [:cls | (#open, cls name) asSymbol].
+ 	
- 	"Smalltalk hasMorphic ifTrue: [^self openMenuWithMorphicOptions]."
  	^ SelectionMenu labelList:
  		#(	
  			'browser'
+ 			'workspace'
+ 			'transcript'
+ 			
  			'package browser'
  			'method finder'
- 			'workspace'
  			'file list'
  			'file...'
- 			'transcript'
  
  			'simple change sorter'
+ 			'dual change sorter'),
+ 			
+ 		projectLabels,
+ 		
+ 		#(
+ 			'process browser'
- 			'dual change sorter'
- 
- 			'new project'
  			)
+ 		lines: {3. 7. 9. 9+projectLabels size}
+ 		selections: #(openBrowser openWorkspace openTranscript openPackageBrowser openSelectorBrowser openFileList openFile 
+ openSimpleChangeSorter openChangeManager),
+ projectAccessors,
+ #(openProcessBrowser  )
- 		lines: #(1 8 10)
- 		selections: #(openBrowser openPackageBrowser openSelectorBrowser openWorkspace openFileList openFile openTranscript
- openSimpleChangeSorter openChangeManager
- openProject   )
  "
  ScreenController  new openMenu startUp
  "!

Item was removed:
- ----- Method: ScreenController>>openMenuWithMorphicOptions (in category 'nested menus') -----
- openMenuWithMorphicOptions
- 	"Include 'morphic world' and 'morphic project' selections"
- 	^ SelectionMenu labelList:
- 		#(	'browser'
- 			'package browser'
- 			'method finder'
- 			'workspace'
- 			'file list'
- 			'file...'
- 			'transcript'
- 			'morphic world'
- 
- 			'simple change sorter'
- 			'dual change sorter'
- 
- 			'mvc project'
- 			'morphic project'
- 			)
- 		lines: #(1 9 11)
- 		selections: #(openBrowser openPackageBrowser openSelectorBrowser openWorkspace openFileList openFile openTranscript openMorphicWorld
- openSimpleChangeSorter openChangeManager
- openProject  openMorphicProject  )
- "
- ScreenController  new openMenuWithMorphicOptions startUp
- "!

Item was removed:
- ----- Method: ScreenController>>openMorphicProject (in category 'menu messages') -----
- openMorphicProject
- 	"Open a morphic project from within a MVC project"
- 	Smalltalk at: #MorphicProject ifPresent:[:mp| ProjectView open: mp new].!

Item was added:
+ ----- Method: ScreenController>>openProcessBrowser (in category 'menu messages') -----
+ openProcessBrowser
+ 
+ 	ToolBuilder open: ProcessBrowser new.!

Item was removed:
- ----- Method: ScreenController>>openProject (in category 'menu messages') -----
- openProject 
- 	"Create and schedule a Project."
- 	ProjectView open: MVCProject new.!

Item was changed:
  ----- Method: ScreenController>>projectScreenMenu (in category 'nested menus') -----
  projectScreenMenu
  	"Answer the project screen menu."
  
  	^ SelectionMenu labelList:
  		#(
+ 			'browser'
+ 			'workspace'
  
  			'previous project'
  			'jump to project...'
  			'restore display'
  
  			'open...'
  			'windows...'
  			'changes...'
  			'help...'
  			'appearance...'
  			'do...'
  
  			'save'
  			'save as...'
  			'save and quit'
  			'quit')
+ 		lines: #(2 6 11)
- 		lines: #(1 4 10)
  		selections: #(
+ openBrowser openWorkspace		
  returnToPreviousProject jumpToProject restoreDisplay
  presentOpenMenu presentWindowMenu presentChangesMenu presentHelpMenu presentAppearanceMenu commonRequests
  snapshot saveAs snapshotAndQuit quit )
  "
  ScreenController new projectScreenMenu startUp
  "!