[Pkg] The Trunk: Morphic-kfr.1460.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.1460.mcz

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

Name: Morphic-kfr.1460
Author: kfr
Time: 22 July 2018, 10:25:54.130642 am
UUID: de03a3c8-ca7e-3e44-b5f1-8cb9dc1a576f
Ancestors: Morphic-dtl.1459

Fix TheWorldMainDockingBar preferences showing menus. 
Add 'collapse all windows' to Windows menu
Add MethodFinder to Tools Menu

=============== Diff against Morphic-dtl.1459 ===============

Item was changed:
  ----- 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 preferenceAt: aPreferenceSymbol))
- 		(aBoolean ~= (Preferences perform: aPreferenceSymbol))
  			ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBoolean]].
  	self updateInstances.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu - windows') -----
  listWindowsOn: menu
  
  	| windows |
  	windows := self allVisibleWindows sorted: [:winA :winB |
  		((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name])
  			ifTrue: [winA label < winB label]
  			ifFalse: [winA model name < winB model name]].
  	windows ifEmpty: [ 
  		menu addItem: [ :item | 
  			item
  				contents: 'No Windows' translated;
  				isEnabled: false ] ].
  	windows do: [ :each |
  		| windowColor |
  		windowColor := (each model respondsTo: #windowColorToUse)
  			ifTrue: [each model windowColorToUse]
  			ifFalse: [UserInterfaceTheme current get: #uniformWindowColor for: Model]. 
  		menu addItem: [ :item |
  			item 
  				contents: (self windowMenuItemLabelFor: each);
  				icon: (self colorIcon: windowColor);
  				target: each;
  				selector: #comeToFront;
  				subMenuUpdater: self
  				selector: #windowMenuFor:on:
  				arguments: { each };
  				action: [ each beKeyWindow; expand ] ] ].
  	menu
  		addLine;
+ 		add: 'Collapse all windows' target: (Project current world) selector: #collapseAllWindows;
  		add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe;
  		addItem: [:item | item
  			contents: 'Close all windows without changes';
  			target: self;
  			icon: MenuIcons smallBroomIcon;
  			selector: #closeAllWindows];
  		add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>messageNamesMenuItemOn: (in category 'submenu - tools') -----
+ messageNamesMenuItemOn: menu 
+ 
+ 	menu addItem: [:item | 
+ 		item 
+ 			contents: 'Message Names' translated;
+ 			help: 'Open the Message Names tool' translated;
+ 			icon: (self colorIcon: MessageNames basicNew windowColorToUse);
+ 			target: StandardToolSet;
+ 			selector: #openMessageNames]!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>toolsMenuOn: (in category 'construction') -----
  toolsMenuOn: aDockingBar 
  
  	aDockingBar addItem: [ :item |
  		item
  			contents: 'Tools' translated;
  			addSubMenu: [ :menu | 
  				self
  					browserMenuItemOn: menu;
  					workspaceMenuItemOn: menu;
  					transcriptMenuItemOn: menu;
  					testRunnerMenuItemOn: menu;
+ 					methodFinderMenuItemOn: menu;
+ 					messageNamesMenuItemOn: menu.
- 					methodFinderMenuItemOn: menu.
  				menu addLine.
  				self 
  					monticelloBrowserMenuItemOn: menu;
  					monticelloConfigurationsMenuItemOn: menu;
  					simpleChangeSorterMenuItemOn: menu;
  					dualChangeSorterMenuItemOn: menu.
  				menu addLine.
  				self
  					processBrowserMenuItemOn: menu;
  					preferenceBrowserMenuItemOn: menu;
  					fileListMenuItemOn: menu.
  			] ]!