<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"><<a href="mailto:leves@elte.hu" target="_blank">leves@elte.hu</a>></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>>fileReaderServicesForFile:suffix: (in category 'file list services') -----<br>
+ fileReaderServicesForFile: fullName suffix: suffix<br>
+ ^(suffix = 'prefs') | (suffix = '*')<br>
+ ifTrue: [ self services ]<br>
+ ifFalse: [ #() ]!<br>
<br>
Item was changed:<br>
----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') -----<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>>serviceLoadPreferencesFromDisk (in category 'file list services') -----<br>
+ serviceLoadPreferencesFromDisk<br>
+ ^ SimpleServiceEntry<br>
+ provider: self<br>
+ label: 'load preferences from a saved file'<br>
+ selector: #restorePreferencesFromDisk:<br>
+ description: 'restore all saved personal preference settings'<br>
+ buttonLabel: 'load preferences'!<br>
<br>
Item was added:<br>
+ ----- Method: Preferences class>>services (in category 'file list services') -----<br>
+ services<br>
+ ^ Array with: self serviceLoadPreferencesFromDisk!<br>
<br>
<br>
<br>
</blockquote>
<br>
</div></div></blockquote></div><br></div>