A new version of System was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/System-kfr.50.mcz
==================== Summary ====================
Name: System-kfr.50 Author: kfr Time: 28 January 2012, 3:19:35 pm UUID: 924c3a92-8441-454c-bf03-946e7a1adf0a Ancestors: System-kfr.49
Add loading preferences file from disk to FileList and a file dialog when restoring preferences from disk in preference panel.
=============== Diff against System-Richo.48 ===============
Item was added: + ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'services') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^(self registeredPreferencesFileSuffixes includes: suffix ) + ifTrue: [ self services ] + ifFalse: [ #() ]!
Item was added: + ----- Method: Preferences class>>registeredPreferencesFileSuffixes (in category 'services') ----- + registeredPreferencesFileSuffixes + ^{'prefs'} !
Item was changed: ----- Method: Preferences class>>restorePreferencesFromDisk (in category 'personalization') ----- restorePreferencesFromDisk + | result | + result := (FileList2 modalFileSelectorForSuffixes: #('prefs')) . + result ifNil: [^ self]. + Cursor wait showWhile: [ + [ self loadPreferencesFrom: result fullName ] on: Error do: [ :ex | self inform: 'there was an error restoring the preferences' translated] + ] + - (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' translated] - ] ] - ifFalse: [ self inform: 'you haven''t saved your preferences yet!!' translated]. !
Item was added: + ----- Method: Preferences class>>restorePreferencesFromDisk: (in category 'personalization') ----- + restorePreferencesFromDisk: aFile + Cursor wait showWhile: [ + [ self loadPreferencesFrom: aFile ] on: Error do: [ :ex | self inform: 'there was an error restoring the preferences' translated] + ] + + !
Item was added: + ----- Method: Preferences class>>serviceLoadPreferences (in category 'services') ----- + serviceLoadPreferences + "Answer a service for loading preferences from disk" + + ^ SimpleServiceEntry + provider: self + label: 'load preferences' translatedNoop + selector: #restorePreferencesFromDisk: + description: 'load preferences file from disk' translatedNoop + buttonLabel: 'load preferences' translatedNoop!
Item was added: + ----- Method: Preferences class>>services (in category 'services') ----- + services + "Answer the receiver's services" + + ^ OrderedCollection with: self serviceLoadPreferences!
Item was removed: - ----- Method: PseudoClass>>isMeta (in category 'testing') ----- - isMeta - ^false!
Item was removed: - ----- Method: PseudoMetaclass>>isMeta (in category 'testing') ----- - isMeta - ^true!