The Trunk: ST80-mt.193.mcz

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
  "!