[squeak-dev] The Trunk: System.spur-kfr.725.mcz

karl ramberg karlramberg at gmail.com
Tue Apr 28 06:36:40 UTC 2015


Dang.
What is the procedure for getting this right again ?

Karl

On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi <leves at elte.hu> wrote:

> 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!
>>
>>
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20150428/56be928b/attachment.htm


More information about the Squeak-dev mailing list