[Pkg] The Trunk: System-kfr.693.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jan 9 12:58:27 UTC 2015
Karl Ramberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-kfr.693.mcz
==================== Summary ====================
Name: System-kfr.693
Author: kfr
Time: 2 January 2015, 8:41:05.888 pm
UUID: 760e94c5-2386-f642-a545-55a1fe293351
Ancestors: System-bf.692
empty log message
=============== Diff against System-bf.692 ===============
Item was changed:
----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') -----
+ loadPreferencesFrom: aFile
- loadPreferencesFrom: aFileName
| stream params dict desktopColor |
+ stream := ReferenceStream on: aFile.
- stream := ReferenceStream fileNamed: aFileName.
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 changed:
----- Method: Preferences class>>restorePreferencesFromDisk (in category 'personalization') -----
restorePreferencesFromDisk
+ | result |
+ result := (FileList2 modalFileSelectorForSuffixes: #('prefs')) .
+ result ifNil: [^ self].
+ self restorePreferencesFromDisk: result
+
- (FileDirectory default fileExists: 'my.prefs')
- ifTrue: [ Cursor wait showWhile: [
- [ self loadPreferencesFrom: 'my.prefs' ] on: Error do: [ :ex | self inform: 'there was an error restoring the preferences' ]
- ] ]
- ifFalse: [ self inform: 'you haven''t saved your preferences yet!!' ].
!
Item was added:
+ ----- Method: Preferences class>>restorePreferencesFromDisk: (in category 'personalization') -----
+ restorePreferencesFromDisk: aFile
+ Cursor wait
+ showWhile: [[self loadPreferencesFrom: aFile]
+ on: Error
+ do: [:ex | self halt.self inform: 'there was an error restoring the preferences' translated]]!
Item was changed:
----- Method: Preferences class>>storePreferencesToDisk (in category 'personalization') -----
storePreferencesToDisk
+ | newName |
+ newName := UIManager default request: 'Please confirm name for save...' initialAnswer: 'myPreferences'.
+ newName isEmpty
+ ifTrue: [^ self].
+ Cursor wait
+ showWhile: [[self storePreferencesIn: newName , '.prefs']
+ on: Error
+ do: [:ex | self inform: 'there was an error storing your preferences to disk. you probably already have stored your preferences' translated]]!
- Cursor wait showWhile: [
- [ self storePreferencesIn: 'my.prefs' ] on: Error do: [ :ex | self inform: 'there was an error storing your preferences to disk' ]]!
More information about the Packages
mailing list