The Inbox: Monticello-cmm.727.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Monticello-cmm.727.mcz

commits-2
Chris Muller uploaded a new version of Monticello to project The Inbox:
http://source.squeak.org/inbox/Monticello-cmm.727.mcz

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

Name: Monticello-cmm.727
Author: cmm
Time: 29 July 2020, 8:40:44.842148 pm
UUID: eb7cbccc-3b20-44ca-8e11-0dc93308a362
Ancestors: Monticello-mt.725

Sort the repository list when no WorkingCopy is selected.

=============== Diff against Monticello-mt.725 ===============

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>repositories (in category 'morphic ui') -----
  repositories
  | repositories |
  repositories := self repositoryGroup repositories.
+ ^ workingCopy
+ ifNil: [{repositories first}, (repositories allButFirst sort: #description ascending)]
+ ifNotNil: [ repositories ]!
- ^{repositories first}, (repositories allButFirst sort: [:r1 :r2| r1 description < r2 description])!


Reply | Threaded
Open this post in threaded view
|

Re: The Inbox: Monticello-cmm.727.mcz

Chris Muller-3
Hi Eliot and all,

If we can get away with only alphabetizing on the "all" view (when no WorkingCopy selected), we can avoid introducing a new feature or preference at this time.  Is it sufficient for the VMMaker use-case?

 - Chris

On Wed, Jul 29, 2020 at 8:40 PM <[hidden email]> wrote:
Chris Muller uploaded a new version of Monticello to project The Inbox:
http://source.squeak.org/inbox/Monticello-cmm.727.mcz

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

Name: Monticello-cmm.727
Author: cmm
Time: 29 July 2020, 8:40:44.842148 pm
UUID: eb7cbccc-3b20-44ca-8e11-0dc93308a362
Ancestors: Monticello-mt.725

Sort the repository list when no WorkingCopy is selected.

=============== Diff against Monticello-mt.725 ===============

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>repositories (in category 'morphic ui') -----
  repositories
        | repositories |
        repositories := self repositoryGroup repositories.
+       ^ workingCopy
+               ifNil: [{repositories first}, (repositories allButFirst sort: #description ascending)]
+               ifNotNil: [ repositories ]!
-       ^{repositories first}, (repositories allButFirst sort: [:r1 :r2| r1 description < r2 description])!