[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
|