Will move this to trunk soon.

On Tue, Oct 8, 2013 at 11:17 AM,  <commits at source.squeak.org> wrote:
> A new version of MonticelloConfigurations was added to project The Inbox:
> http://source.squeak.org/inbox/MonticelloConfigurations-cmm.116.mcz
>
> ==================== Summary ====================
>
> Name: MonticelloConfigurations-cmm.116
> Author: cmm
> Time: 8 October 2013, 11:17:41.275 am
> UUID: 7fc9bf79-f791-4d78-adb8-beddd88b90bd
> Ancestors: MonticelloConfigurations-bf.115
>
> Persist MCConfiguration's 'name'.
>
> =============== Diff against MonticelloConfigurations-bf.115 ===============
>
> Item was changed:
>   ----- Method: MCConfiguration class>>fromArray: (in category 'instance creation') -----
>   fromArray: anArray
>         | configuration |
>         configuration := self new.
>         anArray pairsDo: [:key :value |
>                 key = #repository
>                         ifTrue: [configuration repositories add: (self repositoryFromArray: value)].
>                 key = #dependency
>                         ifTrue: [configuration dependencies add: (self dependencyFromArray: value)].
> +               key = #name
> +                       ifTrue: [configuration name: value].
>         ].
>         ^configuration!
>
> Item was removed:
> - ----- Method: MCMcmReader>>configurationName (in category 'accessing') -----
> - configurationName
> -       ^fileName ifNotNil: [(fileName findTokens: '/\:') last copyUpToLast: $.]!
>
> Item was changed:
>   ----- Method: MCMcmReader>>loadConfiguration (in category 'accessing') -----
>   loadConfiguration
>         stream reset.
>         configuration := MCConfiguration fromArray: (MCScanner scan: stream).
> +       configuration name ifNil: [ configuration name: self parseNameFromFilename ]!
> -       configuration name: self configurationName.
> - !
>
> Item was added:
> + ----- Method: MCMcmReader>>parseNameFromFilename (in category 'accessing') -----
> + parseNameFromFilename
> +       ^fileName ifNotNil: [(fileName findTokens: '/\:') last copyUpToLast: $.]!
>
> Item was changed:
>   ----- Method: MCMcmWriter>>writeConfiguration: (in category 'writing') -----
>   writeConfiguration: aConfiguration
>
>         stream nextPut: $(.
>
>         aConfiguration repositories do: [:ea |
>                 stream cr.
>                 stream nextPutAll: 'repository '.
>                 (MCConfiguration repositoryToArray: ea) printElementsOn: stream].
>
>         aConfiguration dependencies do: [:ea |
>                 stream cr.
>                 stream nextPutAll: 'dependency '.
>                 (MCConfiguration dependencyToArray: ea) printElementsOn: stream].
>
> +       stream nextPutAll: 'name '; nextPutAll: aConfiguration name printString.
> +
>         stream cr.
>         stream nextPut: $).
>         stream cr.!
>
>