The Trunk: Monticello-eem.499.mcz

Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.499.mcz

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

Name: Monticello-eem.499
Author: eem
Time: 5 April 2012, 9:53:54.998 am
UUID: fecd6d87-7d1c-4888-9d94-c792265c3295
Ancestors: Monticello-eem.498

Provide add repository... to package list in Monticello Browser

=============== Diff against Monticello-eem.498 ===============

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>addPackageRepository (in category 'actions') -----
+ addPackageRepository
+
+ workingCopy ifNotNil:
+ [
+ (self pickRepositorySatisfying: [ :repos | (workingCopy repositoryGroup includes: repos) not ])
+ ifNotNilDo:
+ [:repos |
+ workingCopy repositoryGroup addRepository: repos.
+ self repository: repos.
+ self
+ changed: #repositoryList;
+ changed: #repositorySelection.
+ self changedButtons]]!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>pickRepositorySatisfying: (in category 'morphic ui') -----
+ pickRepositorySatisfying: aBlock
+ | repos index |
+ repos := MCRepositoryGroup default repositories select: aBlock.
+ index := UIManager default chooseFrom: (repos collect: [:ea | ea description])
+ title: 'Repository:'.
+ ^ index = 0 ifFalse: [repos at: index]!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') -----
  workingCopyListMenu: aMenu
  workingCopy ifNil: [^ aMenu].
  self fillMenu: aMenu fromSpecs:
  #(('add required package' #addRequiredPackage)
  ('clear required packages' #clearRequiredPackages)
+ ('add repository...' #addPackageRepository)
  ('browse package' #browseWorkingCopy)
  ('view changes' #viewChanges)
  ('view history' #viewHistory)
  ('recompile package' #recompilePackage)
  ('revert package...' #revertPackage)
  ('unload package' #unloadPackage)
  ('delete working copy' #deleteWorkingCopy)
  ('rename package...' #renamePackage)).
  (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
  aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
  ].
  self insertExternalMenuEntries: aMenu.
  ^aMenu!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyTreeMenu: (in category 'morphic ui') -----
  workingCopyTreeMenu: aMenu
  workingCopy ifNil: [^ aMenu].
  self fillMenu: aMenu fromSpecs:
  #(('add required package' #addRequiredPackage)
  ('clear required packages' #clearRequiredPackages)
  ('browse package' #browseWorkingCopy)
+ ('add repository...' #addPackageRepository)
  ('view changes' #viewChanges)
  ('view history' #viewHistory)
  ('recompile package' #recompilePackage)
  ('revert package...' #revertPackage)
  ('unload package' #unloadPackage)
  ('delete working copy' #deleteWorkingCopy)
  ('inspect working copy' #inspectWorkingCopy)).
  (Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
  aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
  ].
  ^aMenu!