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!