Hi Karl,

    alas we can't do voluntary spur commits until 5.0 is released.  Right now spur-specific versions of Compiler, Collections, Kernel and System are produced by a framework in the Cog package that I run soon after noticing changes to those packages.  Sorry to ask, but would you mind deleting the package and waiting for me to run the script, which I'll do in a couple of hours?

Normal service will be restored as soon as we release.  Trunk will be spur-specific and we'll be able to commit freely and diverge from 4.6, which will be V3 (what I call the pre-Spur memory manager/object representation)..

Eliot (phone)

On Apr 27, 2015, at 11:10 PM, commits at source.squeak.org wrote:

> Karl Ramberg uploaded a new version of System to project The Trunk:
> http://source.squeak.org/trunk/System.spur-kfr.725.mcz
> 
> ==================== Summary ====================
> 
> Name: System.spur-kfr.725
> Author: kfr
> Time: 28 April 2015, 7:31:43.891 am
> UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4
> Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724
> 
> Register fileService for *.pref. Preferences can now be loaded from FileList
> 
> =============== Diff against System.spur-eem.709 ===============
> 
> Item was added:
> + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'file list services') -----
> + fileReaderServicesForFile: fullName suffix: suffix 
> +    ^(suffix = 'prefs')  | (suffix = '*') 
> +        ifTrue: [ self services ]
> +        ifFalse: [ #() ]!
> 
> Item was changed:
>  ----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') -----
>  loadPreferencesFrom: aFile
>      | stream params dict desktopColor |
> +    stream := ReferenceStream fileNamed: aFile.
> -    stream := ReferenceStream on: aFile.
>      params := stream next.
>      self assert: (params isKindOf: IdentityDictionary).
>      params removeKey: #PersonalDictionaryOfPreferences.
>      dict := stream next.
>      self assert: (dict isKindOf: IdentityDictionary).
>      desktopColor := stream next.
>      stream close.
>      dict keysAndValuesDo:
>          [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil:
>              [:pref | pref preferenceValue: value preferenceValue]].
> 
>      params keysAndValuesDo: [ :key :value | self setParameter: key to: value ].
> 
>      Smalltalk isMorphic
>          ifTrue: [ World fillStyle: desktopColor ]
>          ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ].
>  !
> 
> Item was added:
> + ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in category 'file list services') -----
> + serviceLoadPreferencesFromDisk
> +    ^ SimpleServiceEntry 
> +        provider: self 
> +        label: 'load preferences from a saved file'
> +        selector: #restorePreferencesFromDisk:
> +        description: 'restore all saved personal preference settings'
> +        buttonLabel: 'load preferences'!
> 
> Item was added:
> + ----- Method: Preferences class>>services (in category 'file list services') -----
> + services
> +    ^ Array with: self serviceLoadPreferencesFromDisk!
> 
>