[squeak-dev] The Trunk: System.spur-kfr.725.mcz
Levente Uzonyi
leves at elte.hu
Tue Apr 28 06:28:56 UTC 2015
Why is this a spur-only commit? I guess this will break the update
mechanism.
Levente
On Tue, 28 Apr 2015, 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!
>
>
>
More information about the Squeak-dev
mailing list
|