The Trunk: Monticello-eem.501.mcz

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

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

Name: Monticello-eem.501
Author: eem
Time: 13 April 2012, 10:23:47.129 am
UUID: 67c398f4-47b9-47eb-b0a2-f3cfd2323058
Ancestors: Monticello-bf.500

In the working copy browser's repoisitory list, make
load/save repositories & flush cached versions available
when no repository is selected (since these apply to all
repositories).  Also group them at the end of the menu
when a repository is selected to indicate they apply to all.
Add a line to be nice.

=============== Diff against Monticello-bf.500 ===============

Item was changed:
  ----- Method: MCTool>>fillMenu:fromSpecs: (in category 'morphic ui') -----
  fillMenu: aMenu fromSpecs: anArray
  anArray do:
  [:spec |
+ spec == #addLine
+ ifTrue: [aMenu addLine]
+ ifFalse:
+ [aMenu
+ add: spec first
+ target: self
+ selector: spec second
+ argumentList: (spec allButFirst: 2)]].
+ ^aMenu!
- aMenu add: spec first target: self selector: spec second argumentList: (spec allButFirst: 2)].
- ^ aMenu!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') -----
  repositoryListMenu: aMenu
+ self repository ifNil:
+ [^self fillMenu: aMenu fromSpecs:
+ #( ('load repositories' #loadRepositories)
+ ('save repositories' #saveRepositories)
+ ('flush cached versions' #flushAllCaches))].
- self repository ifNil: [^ aMenu].
  self fillMenu: aMenu fromSpecs:
  #(('open repository' #openRepository)
     ('edit repository info' #editRepository)
    ('add to package...' #addRepositoryToPackage)
+   ('remove repository' #removeRepository)
-   ('remove repository' #removeRepository)
-   ('load repositories' #loadRepositories)
-   ('save repositories' #saveRepositories)
-   ('flush cached versions' #flushAllCaches)
    ('copy image versions here' #copyImageVersions)
+   #addLine
+   ('load repositories' #loadRepositories)
+   ('save repositories' #saveRepositories)
+   ('flush cached versions' #flushAllCaches)).
+ aMenu
- ).
- aMenu
  add: (self repository alwaysStoreDiffs
  ifTrue: ['store full versions']
  ifFalse: ['store diffs'])
  target: self
  selector: #toggleDiffs.
  ^ aMenu
  !