A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-jr.1485.mcz ==================== Summary ==================== Name: Morphic-jr.1485 Author: jr Time: 9 April 2019, 1:09:03.267095 am UUID: 53e4b5d8-74e3-984a-9bcb-46d1ab07cc9e Ancestors: Morphic-cmm.1484 Change Git Infrastructure item to Git Browser It will show Install Git Browser... when the latter is not installed. Requires Installer-Core-jr.430 =============== Diff against Morphic-cmm.1484 =============== Item was added: + ----- Method: TheWorldMainDockingBar>>gitBrowserInstallMenuItemOn: (in category 'submenu - tools') ----- + gitBrowserInstallMenuItemOn: menu + menu addItem: + [ :item | + item + contents: 'Install Git Browser...' translated; + help: 'Install tools for accessing Git repositories.' translated; + icon: (self colorIcon: Color lightGray); + target: Installer; + selector: #installAndOpenGitBrowser]! Item was added: + ----- Method: TheWorldMainDockingBar>>gitBrowserMenuItemOn: (in category 'submenu - tools') ----- + gitBrowserMenuItemOn: menu + "Check whether the Git Browser model class is loaded" + (Smalltalk includesKey: #SquitBrowser) + ifTrue: [self gitBrowserOpenMenuItemOn: menu] + ifFalse: [self gitBrowserInstallMenuItemOn: menu]! Item was added: + ----- Method: TheWorldMainDockingBar>>gitBrowserOpenMenuItemOn: (in category 'submenu - tools') ----- + gitBrowserOpenMenuItemOn: menu + menu addItem: + [ :item | + item + contents: 'Git Browser' translated; + help: 'Tool for accessing Git repositories.' translated; + icon: (self colorIcon: Color lightGray); + target: (self environment valueOf: #SquitBrowser); + selector: #open]! Item was removed: - ----- Method: TheWorldMainDockingBar>>gitInfrastructureMenuItemOn: (in category 'submenu - tools') ----- - gitInfrastructureMenuItemOn: menu - menu addItem: - [ : item | item - contents: 'Git Infrastructure' translated ; - help: 'Load tools for accessing github repositories.' translated ; - icon: (self colorIcon: Color lightGray) ; - target: Installer ; - selector: #installGitInfrastructure ]! 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 ; + gitBrowserMenuItemOn: menu. - gitInfrastructureMenuItemOn: menu. menu addLine. self processBrowserMenuItemOn: menu; preferenceBrowserMenuItemOn: menu; fileListMenuItemOn: menu. ] ]! |
Free forum by Nabble | Edit this page |