The Trunk: Monticello-cmm.651.mcz

Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.651.mcz

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

Name: Monticello-cmm.651
Author: cmm
Time: 31 October 2016, 3:34:49.974159 pm
UUID: 1ceaf86a-ade1-4b8b-a194-c132168cae26
Ancestors: Monticello-nice.650

Added ability to demote a repository of a group to the bottom, so that other repositories will be checked first.

=============== Diff against Monticello-nice.650 ===============

Item was changed:
+ ----- Method: MCRepositoryGroup>>addRepository: (in category 'update') -----
- ----- Method: MCRepositoryGroup>>addRepository: (in category 'add / remove') -----
  addRepository: aRepository
  ((repositories includes: aRepository) or: [aRepository == MCCacheRepository default])
  ifFalse: [repositories add: aRepository.
  self class default addRepository: aRepository].
  self changed: #repositories!

Item was added:
+ ----- Method: MCRepositoryGroup>>demoteRepository: (in category 'update') -----
+ demoteRepository: aMCRepository
+ "If aMCRepository is part of this Group, demote it to the bottom of the list so that other repositories will be checked first."
+ | removed |
+ removed := repositories
+ remove: aMCRepository
+ ifAbsent: [  ].
+ removed ifNotNil:
+ [ repositories addLast: aMCRepository.
+ self changed: #repositories ]!

Item was changed:
+ ----- Method: MCRepositoryGroup>>removeRepository: (in category 'update') -----
- ----- Method: MCRepositoryGroup>>removeRepository: (in category 'add / remove') -----
  removeRepository: aRepository
  | removed |
  removed := repositories remove: aRepository ifAbsent: [].
  removed ifNotNil: [ removed wasRemoved ].
  self changed: #repositories!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>demoteRepository (in category 'actions') -----
+ demoteRepository
+ self repository ifNotNil:
+ [ : repo | self repositoryGroup demoteRepository: repo.
+ self
+ changed: #repositoryList ;
+ changed: #repositorySelection ]!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') -----
  repositoryListMenu: aMenu
  "first add repository-specific commands"
  self repository ifNotNil:
+ [ self
+ fillMenu: aMenu
+ fromSpecs:
+ #(('open repository' #openRepository)
+ ('edit repository info' #editRepository)
+ ('add to package...' #addRepositoryToPackage)
+ ('remove repository' #removeRepository)
+ ('move to bottom' #demoteRepository)
+ ('copy image versions here' #copyImageVersions)).
- [self fillMenu: aMenu fromSpecs:
- #(('open repository' #openRepository)
-    ('edit repository info' #editRepository)
-   ('add to package...' #addRepositoryToPackage)
-   ('remove repository' #removeRepository)
-   ('copy image versions here' #copyImageVersions)).
  aMenu
+ add:
+ (self repository alwaysStoreDiffs
+ ifTrue: ['store full versions']
+ ifFalse: ['store diffs'])
- add: (self repository alwaysStoreDiffs
- ifTrue: ['store full versions']
- ifFalse: ['store diffs'])
  target: self
+ selector: #toggleDiffs ;
+ addLine ].
- selector: #toggleDiffs;
- addLine].
  "then the non-specific commands"
  ^self fillMenu: aMenu fromSpecs:
  #( ('load repositories' #loadRepositories)
  ('save repositories' #saveRepositories)
  ('flush cached versions' #flushCachedVersions)
  ('flush cached versions and ancestry' #flushCachedVersionsAncestry))!