The Trunk: System-mt.814.mcz

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

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

Name: System-mt.814
Author: mt
Time: 12 April 2016, 7:43:43.456943 pm
UUID: 6a0c1da2-9aeb-c14a-b091-46ea91f87972
Ancestors: System-mt.813

Code clean-up. Give new kinds of projects the chance to ignore the concept of sub-projects.

=============== Diff against System-mt.813 ===============

Item was removed:
- ----- Method: Project>>addItem:toMenu:selection:project: (in category 'utilities') -----
- addItem: item toMenu: menu selection: action project: aProject
- "Request aProject to add a menu item to represent it in the menu"
-
- ^ aProject addItem: item toMenu: menu selection: action requestor: self!

Item was removed:
- ----- Method: Project>>addItem:toMenu:selection:requestor: (in category 'utilities') -----
- addItem: item toMenu: menu selection: action requestor: requestingProject
- "Add a menu item representing this project to a menu being created by requestingProject"
-
- self subclassResponsibility!

Item was changed:
  ----- Method: Project>>buildJumpToMenu: (in category 'utilities') -----
  buildJumpToMenu: menu
  "Make the supplied menu offer a list of potential projects, consisting of:
  * The previous-project chain
  * The next project, if any
  * The parent project, if any
  * All projects, alphabetically or hierarchically"
 
  | prev listed i next |
  listed := OrderedCollection with: self.
  i := 0.
 
  "The previous Project chain"
  prev := self previousProject.
  [(prev ~~ nil and: [(listed includes: prev) not])] whileTrue:
   [i := i + 1.
  listed add: prev.
  self addItem: prev name , ' (', ('back {1}' translated format:{i}  ), ')'
  toMenu: menu
  selection: ('%back' , i printString)
+ color: prev color
+ thumbnail: prev thumbnail.
- project: prev.
  prev := prev previousProject].
  i > 0 ifTrue: [menu addLine].
 
 
  "Then the next Project"
  (((next := self nextProject) ~~ nil) and: [(listed includes: next) not]) ifTrue:
  [self addItem: (next name, ' (', ('forward {1}' translated format:{1}), ')')
  toMenu: menu
  selection: next name
+ color: next color
+ thumbnail: next thumbnail].
- project: next].
  next ~~ nil ifTrue: [menu addLine].
 
  "Then the parent"
  self isTopProject ifFalse:
  [self addItem: self parent name , ' (', 'parent' translated, ')'
  toMenu: menu
  selection: #parent
+ color: self parent color
+ thumbnail: self parent thumbnail.
- project: self parent.
   menu addLine].
 
  "Finally all the projects, in hierarchical or alphabetical order:"
  (Preferences alphabeticalProjectMenu
  ifTrue:
  [Project allNamesAndProjects]
  ifFalse:
  [Project hierarchyOfNamesAndProjects]) do:
 
  [:aPair | | toAdd |
  toAdd := aPair last isCurrentProject
  ifTrue:
   [aPair first, ' (', 'current' translated, ')']
  ifFalse:
   [aPair first].
  self addItem: toAdd
  toMenu: menu
  selection: aPair first
+ color: aPair last color
+ thumbnail: aPair last thumbnail].
- project: aPair last].
  ^ menu!

Item was added:
+ ----- Method: Project>>color (in category 'accessing') -----
+ color
+ "Color representation for this project."
+
+ ^ Color black!

Item was removed:
- ----- Method: Project>>obsolete (in category 'OBSOLETE') -----
- obsolete
-
- self flag: #obsolete.
- "instance variable
- exitFlag is no longer used
- activeProcess is on the way out
- "!

Item was changed:
  ----- Method: Project>>subProjects (in category 'release') -----
  subProjects
+ "Answer a list of all the subprojects of the receiver. By default, there are no sub-projects."
+
+ ^ #()!
- "Answer a list of all the subprojects  of the receiver."
- ^self subclassResponsibility!

Item was changed:
  ----- Method: Project>>uiProcess (in category 'active process') -----
  uiProcess
+ "Answer the most important process of this project."
+
+ self subclassResponsibility.!
- self subclassResponsibility!