<div dir="ltr">Dang. <div>What is the procedure for getting this right again ?</div><div><br></div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Apr 28, 2015 at 8:28 AM, Levente Uzonyi <span dir="ltr">&lt;<a href="mailto:leves@elte.hu" target="_blank">leves@elte.hu</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Why is this a spur-only commit? I guess this will break the update mechanism.<span class="HOEnZb"><font color="#888888"><br>
<br>
Levente</font></span><div class="HOEnZb"><div class="h5"><br>
<br>
On Tue, 28 Apr 2015, <a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a> wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Karl Ramberg uploaded a new version of System to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/System.spur-kfr.725.mcz" target="_blank">http://source.squeak.org/trunk/System.spur-kfr.725.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System.spur-kfr.725<br>
Author: kfr<br>
Time: 28 April 2015, 7:31:43.891 am<br>
UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4<br>
Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724<br>
<br>
Register fileService for *.pref. Preferences can now be loaded from FileList<br>
<br>
=============== Diff against System.spur-eem.709 ===============<br>
<br>
Item was added:<br>
+ ----- Method: Preferences class&gt;&gt;fileReaderServicesForFile:suffix: (in category &#39;file list services&#39;) -----<br>
+ fileReaderServicesForFile: fullName suffix: suffix<br>
+       ^(suffix = &#39;prefs&#39;)  | (suffix = &#39;*&#39;)<br>
+               ifTrue: [ self services ]<br>
+               ifFalse: [ #() ]!<br>
<br>
Item was changed:<br>
 ----- Method: Preferences class&gt;&gt;loadPreferencesFrom: (in category &#39;personalization&#39;) -----<br>
 loadPreferencesFrom: aFile<br>
        | stream params dict desktopColor |<br>
+       stream := ReferenceStream fileNamed: aFile.<br>
-       stream := ReferenceStream on: aFile.<br>
        params := stream next.<br>
        self assert: (params isKindOf: IdentityDictionary).<br>
        params removeKey: #PersonalDictionaryOfPreferences.<br>
        dict := stream next.<br>
        self assert: (dict isKindOf: IdentityDictionary).<br>
        desktopColor := stream next.<br>
        stream close.<br>
        dict keysAndValuesDo:<br>
                [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil:<br>
                        [:pref | pref preferenceValue: value preferenceValue]].<br>
<br>
        params keysAndValuesDo: [ :key :value | self setParameter: key to: value ].<br>
<br>
        Smalltalk isMorphic<br>
                ifTrue: [ World fillStyle: desktopColor ]<br>
                ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ].<br>
 !<br>
<br>
Item was added:<br>
+ ----- Method: Preferences class&gt;&gt;serviceLoadPreferencesFromDisk (in category &#39;file list services&#39;) -----<br>
+ serviceLoadPreferencesFromDisk<br>
+       ^ SimpleServiceEntry<br>
+               provider: self<br>
+               label: &#39;load preferences from a saved file&#39;<br>
+               selector: #restorePreferencesFromDisk:<br>
+               description: &#39;restore all saved personal preference settings&#39;<br>
+               buttonLabel: &#39;load preferences&#39;!<br>
<br>
Item was added:<br>
+ ----- Method: Preferences class&gt;&gt;services (in category &#39;file list services&#39;) -----<br>
+ services<br>
+       ^ Array with: self serviceLoadPreferencesFromDisk!<br>
<br>
<br>
<br>
</blockquote>
<br>
</div></div></blockquote></div><br></div>