[Pkg] The Trunk: Morphic-mt.1510.mcz

[commits at source.squeak.org]

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

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

Name: Morphic-mt.1510
Author: mt
Time: 26 August 2019, 3:57:09.414394 pm
UUID: 1a066b5c-53d2-164a-980b-c331d3616e78
Ancestors: Morphic-dtl.1506, Morphic-kfr.1509

Merges Morphic-dtl.1506 and fixes some docking-bar-layout issues. :-)

Note that I changed the wording to "Git Browser (click to install)" as well as the text in the confirmation dialog. Please review.

If not automatically done, please update your world-dock instances via TheWorldMainDockingBar updateInstances.

=============== Diff against Morphic-kfr.1509 ===============

Item was removed:
- ----- Method: DockingBarItemMorph>>updateLayoutInDockingBar (in category 'private') -----
- updateLayoutInDockingBar
- 	
- 	owner isVertical
- 		ifTrue: [
- 			self hResizing: #spaceFill.
- 			self vResizing: #shrinkWrap ]
- 		ifFalse: [
- 			self hResizing: #shrinkWrap.
- 			self vResizing: #spaceFill ].!

Item was added:
+ ----- Method: DockingBarMorph>>addedMorph: (in category 'change reporting') -----
+ addedMorph: aMorph
+ 	"Update the new morph's layout properties according to my orientation."
+ 
+ 	aMorph isMenuItemMorph ifFalse: [^ self].
+ 	
+ 	self isVertical
+ 		ifTrue: [
+ 			aMorph hResizing: #spaceFill.
+ 			aMorph vResizing: #shrinkWrap ]
+ 		ifFalse: [
+ 			aMorph hResizing: #shrinkWrap.
+ 			aMorph vResizing: #spaceFill ].!

Item was removed:
- ----- Method: MenuItemMorph>>ownerChanged (in category 'change reporting') -----
- ownerChanged
- 	"The receiver's owner, some kind of a pasteup, has changed its 
- 	layout."
- 	super ownerChanged.
- 	self updateLayoutInDockingBar!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>gitInfrastructureMenuItemOn: (in category 'submenu - tools') -----
+ gitInfrastructureMenuItemOn: menu
+ 
+ 	menu addItem: [:item |
+ 			item
+ 				contents: ((Smalltalk hasClassNamed: #SquitBrowser)
+ 					ifTrue: ['Git Browser' translated]
+ 					ifFalse: ['Git Browser (click to install)' translated]);
+ 				help: 'Browse repositories on github.com' translated;
+ 				icon: (self colorIcon: ((Smalltalk classNamed: #SquitBrowser) ifNil: Model)
+ 										basicNew windowColorToUse);			
+ 				target: self;
+ 				selector: #installAndOpenGitBrowser]!
- gitInfrastructureMenuItemOn: menu 
- 	menu addItem:
- 		[ : item | item
- 			 contents: 'Git Browser' translated ;
- 			 help: 'Browse repositories on github.com' translated ;
- 			 icon: (self colorIcon: Color lightGray) ;
- 			 target: Installer ;
- 			 selector: #installAndOpenGitBrowser ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>installAndOpenGitBrowser (in category 'menu actions') -----
+ installAndOpenGitBrowser 
+ 	
+ 	(Smalltalk hasClassNamed: #SquitBrowser)
+ 		ifFalse: [ (UIManager default
+ 					confirm: 'The Git infrastructure and browser is not yet installed.\\Do you want to install the Git Browser?\\(Note that this step requires an internet connection and\may take several minutes.)' withCRs translated
+ 					title: 'Confirm Installation Request' )
+ 			ifTrue: [ Installer
+ 						ensureRecentMetacello;
+ 						installGitInfrastructure.
+ 					TheWorldMainDockingBar updateInstances ]
+ 			ifFalse: [ ^self ] ].
+ 	(Smalltalk classNamed: #SquitBrowser) open.
+ !

Item was removed:
- ----- Method: TheWorldMainDockingBar>>metacelloMenuItemOn: (in category 'submenu - tools') -----
- metacelloMenuItemOn: menu 
- 	menu addItem:
- 		[ : item | item
- 			 contents: 'Metacello' translated ;
- 			 help: 'Install Metacello' translated ;
- 			 icon: (self colorIcon: Color lightGray) ;
- 			 target: Installer ;
- 			 selector: #ensureRecentMetacello ]!

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.
  				menu addLine.
  				self 
  					simpleChangeSorterMenuItemOn: menu;
  					dualChangeSorterMenuItemOn: menu;
  					monticelloBrowserMenuItemOn: menu;
  					monticelloConfigurationsMenuItemOn: menu ;
- 					metacelloMenuItemOn: menu ;
  					gitInfrastructureMenuItemOn: menu.
  				menu addLine.
  				self
  					processBrowserMenuItemOn: menu;
  					preferenceBrowserMenuItemOn: menu;
  					fileListMenuItemOn: menu.
  			] ]!