[squeak-dev] The Inbox: Morphic-dtl.1506.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 18 02:06:43 UTC 2019


David T. Lewis uploaded a new version of Morphic to project The Inbox:
http://source.squeak.org/inbox/Morphic-dtl.1506.mcz

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

Name: Morphic-dtl.1506
Author: dtl
Time: 17 August 2019, 10:06:39.560868 pm
UUID: e0a42c34-8b5a-49f4-a35b-db80486d167c
Ancestors: Morphic-mt.1505

Update the Git Browser entry in Tools menu. Selecting "Git Browser" opens a Git Browser. If infrastructure has not previously been installed, prompt and show the proposed installation. If the user does not confirm, do nothing.

Also remove the Metacello item from the Tools menu.

Menu icons are updated in the Tools menu, but note that the the Git browser needs to have a #defaultWindowColor in order for colorful windows to work as expected. For example, add this in package Squit:

  SquitBrowser>>defaultWindowColor
      ^ (Color r: 0.6 g: 0.7 b: 0.6)

=============== Diff against Morphic-mt.1505 ===============

Item was changed:
  ----- Method: TheWorldMainDockingBar>>gitInfrastructureMenuItemOn: (in category 'submenu - tools') -----
+ gitInfrastructureMenuItemOn: menu
+ 	(Smalltalk hasClassNamed: #SquitBrowser)
+ 		ifTrue: [menu addItem: [:item |
+ 			item
+ 				contents: 'Git Browser' 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: 'Install git infrastructure?' title: 'Installer ensureRecentMetacello; installGitInfrastructure' )
+ 			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.
  			] ]!



More information about the Squeak-dev mailing list