Tobias Pape uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-topa.750.mcz

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

Name: Morphic-topa.750
Author: topa
Time: 17 October 2014, 7:56:41.314 pm
UUID: 4b0f4bf4-aa80-4f90-8cf7-255aa5107744
Ancestors: Morphic-topa.749

Enhancement: 
 Allow each menu of the main docking bar to be hidden via a preference.

=============== Diff against Morphic-topa.749 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>disableMenuPreference: (in category 'preferences') -----
+ disableMenuPreference: aPreferenceSymbol
+ 
+ 	self setMenuPreference: aPreferenceSymbol to: false.!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>enableMenuPreference: (in category 'preferences') -----
+ enableMenuPreference: aPreferenceSymbol
+ 
+ 	self setMenuPreference: aPreferenceSymbol to: true.!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>getMenuPreference: (in category 'preferences') -----
+ getMenuPreference: aPreferenceSymbol
+ 
+ 	^ self getMenuPreference: aPreferenceSymbol ifAbsent: [true]!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>getMenuPreference:ifAbsent: (in category 'preferences') -----
+ getMenuPreference: aPreferenceSymbol ifAbsent: aBlock
+ 
+ 	| project |
+ 	^ (project := Project current) isMorphic
+ 		ifTrue: [project projectPreferenceFlagDictionary at: aPreferenceSymbol ifAbsent: aBlock]
+ 		ifFalse: aBlock
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>setMenuPreference:to: (in category 'preferences') -----
+ setMenuPreference: aPreferenceSymbol to: aBoolean
+ 	| project |
+ 	(project := Project current) isMorphic ifTrue: [
+ 		project projectPreferenceFlagDictionary at: aPreferenceSymbol  put: aBoolean.
+ 		(aBoolean ~= (Preferences perform: aPreferenceSymbol))
+ 			ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBoolean]].
+ 	self updateInstances.!

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showAppsMenuInWorldMainDockingBar (in category 'preferences') -----
+ showAppsMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Apps'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Apps'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showAppsMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showAppsMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showAppsMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showAppsMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showExtrasMenuInWorldMainDockingBar (in category 'preferences') -----
+ showExtrasMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Extras'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Extras'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showExtrasMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showExtrasMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showExtrasMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showExtrasMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showHelpMenuInWorldMainDockingBar (in category 'preferences') -----
+ showHelpMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Help'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Help'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showHelpMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showHelpMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showHelpMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showHelpMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showMainMenuInWorldMainDockingBar (in category 'preferences') -----
+ showMainMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Main'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Main'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showMainMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showMainMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showMainMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showMainMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showProjectsMenuInWorldMainDockingBar (in category 'preferences') -----
+ showProjectsMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Projects'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Projects'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showProjectsMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showProjectsMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showProjectsMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showProjectsMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showToolsMenuInWorldMainDockingBar (in category 'preferences') -----
+ showToolsMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Tools'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Tools'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showToolsMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showToolsMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showToolsMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showToolsMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showWindowsMenuInWorldMainDockingBar (in category 'preferences') -----
+ showWindowsMenuInWorldMainDockingBar
+ 	
+ 	<preference: 'Show ''Windows'' menu in world main docking bar'
+ 		category: 'docking bars'
+ 		description: 'Whether world''s main docking bar should show the ''Windows'' menu.'
+ 		type: #Boolean>
+ 	^ self getMenuPreference: #showWindowsMenuInWorldMainDockingBar ifAbsent: [true]
+ !

Item was added:
+ ----- Method: TheWorldMainDockingBar class>>showWindowsMenuInWorldMainDockingBar: (in category 'preferences') -----
+ showWindowsMenuInWorldMainDockingBar: aBoolean
+ 	
+ 	self
+ 		setMenuPreference: #showWindowsMenuInWorldMainDockingBar
+ 		to: aBoolean.
+ !

Item was changed:
  ----- Method: TheWorldMainDockingBar>>menusOn: (in category 'construction') -----
  menusOn: aDockingBar
  
+ 	self class showMainMenuInWorldMainDockingBar ifTrue: [
+ 		self squeakMenuOn: aDockingBar].
+ 
+ 	self class showProjectsMenuInWorldMainDockingBar ifTrue: [
+ 		self projectsMenuOn: aDockingBar].
+ 
+ 	self class showToolsMenuInWorldMainDockingBar ifTrue: [
+ 		self toolsMenuOn: aDockingBar].
+ 
+ 	self class showAppsMenuInWorldMainDockingBar ifTrue: [
+ 		self appsMenuOn: aDockingBar].
+ 
+ 	self class showExtrasMenuInWorldMainDockingBar ifTrue: [
+ 		self extrasMenuOn: aDockingBar].
+ 
+ 	self class showWindowsMenuInWorldMainDockingBar ifTrue: [
+ 		self windowsMenuOn: aDockingBar].
+ 
+ 	self class showHelpMenuInWorldMainDockingBar ifTrue: [
+ 		self helpMenuOn: aDockingBar].!
- 	self
- 		squeakMenuOn: aDockingBar;
- 		projectsMenuOn: aDockingBar;
- 		toolsMenuOn: aDockingBar;
- 		appsMenuOn: aDockingBar;
- 		extrasMenuOn: aDockingBar;
- 		windowsMenuOn: aDockingBar;
- 		helpMenuOn: aDockingBar!