The Trunk: Monticello-eem.502.mcz

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

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

Name: Monticello-eem.502
Author: eem
Time: 13 April 2012, 10:30:14.852 am
UUID: cad6b50f-5157-4c67-9546-6c788b3a4abd
Ancestors: Monticello-eem.501

Better menu augmentation In the working copy browser's
repository list; store diffs/full versions applies to a specific
repository.

=============== Diff against Monticello-eem.501 ===============

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)
+   ('copy image versions here' #copyImageVersions)).
+ aMenu
+ add: (self repository alwaysStoreDiffs
+ ifTrue: ['store full versions']
+ ifFalse: ['store diffs'])
+ target: self
+ selector: #toggleDiffs;
+ addLine].
+ "then the non-specific commands"
+ ^self fillMenu: aMenu fromSpecs:
- self repository ifNil:
- [^self fillMenu: aMenu fromSpecs:
  #( ('load repositories' #loadRepositories)
  ('save repositories' #saveRepositories)
+ ('flush cached versions' #flushAllCaches))!
- ('flush cached versions' #flushAllCaches))].
- self fillMenu: aMenu fromSpecs:
- #(('open repository' #openRepository)
-    ('edit repository info' #editRepository)
-   ('add to package...' #addRepositoryToPackage)
-   ('remove repository' #removeRepository)
-   ('copy image versions here' #copyImageVersions)
-   #addLine
-   ('load repositories' #loadRepositories)
-   ('save repositories' #saveRepositories)
-   ('flush cached versions' #flushAllCaches)).
- aMenu
- add: (self repository alwaysStoreDiffs
- ifTrue: ['store full versions']
- ifFalse: ['store diffs'])
- target: self
- selector: #toggleDiffs.
- ^ aMenu
- !