The Inbox: Morphic-dtl.1506.mcz

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.
  ] ]!