It's much harder, not easier.  Before it was one-click, now it's
multiple and I have to name my prefs file?

Please tell us what your real requirement is.  It's to support
multiple .prefs files isn't it?

My requirement is one-click transfer of preferences from one image to another.


On Fri, Jan 9, 2015 at 7:09 AM, karl ramberg <karlramberg at gmail.com> wrote:
> Sorry for empty log message.
> This change opens the file list so it's easier to locate a saved preference
> file on the disk
>
> Karl
>
> On Fri, Jan 9, 2015 at 1:58 PM, <commits at source.squeak.org> wrote:
>>
>> Karl Ramberg uploaded a new version of System to project The Trunk:
>> http://source.squeak.org/trunk/System-kfr.694.mcz
>>
>> ==================== Summary ====================
>>
>> Name: System-kfr.694
>> Author: kfr
>> Time: 9 January 2015, 1:54:05.175 pm
>> UUID: 0c27d195-86eb-ab4e-ba53-b35c502fb375
>> Ancestors: System-kfr.693
>>
>> empty log message
>>
>> =============== Diff against System-kfr.693 ===============
>>
>> Item was changed:
>>   ----- Method: Preferences class>>giveHelpWithPreferences (in category
>> 'misc') -----
>>   giveHelpWithPreferences
>>         "Open up a workspace with explanatory info in it about
>> Preferences"
>>
>>         | aString |
>>         aString := String streamContents: [:aStream |
>>                 aStream nextPutAll:
>>
>>   'Many aspects of the system are governed by the settings of various
>> "Preferences".
>>
>>   Click on any of brown tabs at the top of the panel to see all the
>> preferences in that category.
>>   Or type in to the box above the Search button, then hit Search, and all
>> Preferences matching whatever you typed in will appear in the "search
>> results" category.  A preference is considered to match your search if
>> either its name matches the characters *or* if anything in the balloon help
>> provided for the preferences matches the search text.
>>
>>   To find out more about any particular Preference, hold the mouse over it
>> for a moment and balloon help will appear.  Also, a complete list of all the
>> Preferences, with documentation for each, is included below.
>>
>>   Preferences whose names are in shown in bold in the Preferences Panel
>> are designated as being allowed to vary from project to project; those whose
>> name are not in bold are "global", which is to say, they apply equally
>> whatever project you are in.
>>
>>   Click on the name of any preference to get a menu which allows you to
>> *change* whether the preference should vary from project to project or
>> should be global, and also allows you to browse all the senders of the
>> preference, and to discover all the categories under which the preference
>> has been classified, and to be handed a button that you can drop wherever
>> you please that will control the preference.
>>
>>   If you like all your current Preferences settings, you may wish to hit
>> the "Save Current Settings as my Personal Preferences" button.  Once you
>> have done that, you can at any point in the future hit "Restore my Personal
>> Preferences" and all your saved settings will get restored immediately.
>>
>>   Also, you can use "themes" to set multiple preferences all at once;
>> click on the "change theme..." button in the Squeak flap or in the
>> Preferences panel, or seek out the themes item in the Appearance menu.'
>> translated.
>>
>>         aStream cr; cr; nextPutAll:
>> '-----------------------------------------------------------------';
>>                 cr; cr; nextPutAll:  'Alphabetical listing of all
>> Preferences' translated; cr; cr.
>>      (Preferences allPreferenceObjects asSortedCollection: [:a :b | a name
>> < b name]) do:
>>         [:pref | | aHelpString |
>>                 aStream nextPutAll: pref name; cr.
>>                 aHelpString := pref helpString translated.
>>                 (aHelpString beginsWith: pref name) ifTrue:
>> +                       [aHelpString := aHelpString copyFrom: (pref name
>> size ) to: aHelpString size].
>> -                       [aHelpString := aHelpString copyFrom: (pref name
>> size + 3) to: aHelpString size].
>>                 aHelpString := (aHelpString copyReplaceAll: String cr
>> with: ' ')  copyWithout: Character tab.
>>                 aStream nextPutAll: aHelpString capitalized.
>>                 (aHelpString isEmpty or: [aHelpString last == $.])
>> ifFalse: [aStream nextPut: $.].
>>           aStream cr; cr]].
>>
>>         UIManager default edit: aString label: 'About Preferences'
>> translated
>>
>>   "Preferences giveHelpWithPreferences"!
>>
>> Item was added:
>> + ----- Method: Preferences class>>parameters (in category 'parameters')
>> -----
>> + parameters
>> +
>> + "Preferences parameters explore"
>> +       ^Parameters!
>>
>> Item was changed:
>>   ----- 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]]!
>> -                               do: [:ex | self halt.self inform: 'there
>> was an error restoring the preferences' translated]]!
>>
>> Item was changed:
>>   ----- Method: Preferences class>>togglePreference: (in category
>> 'get/set') -----
>>   togglePreference: prefSymbol
>>         "Toggle the given preference. prefSymbol must be of a boolean
>> preference"
>> +       (self preferenceAt: prefSymbol ifAbsent: [self inform: 'unknown
>> preference: ', prefSymbol]) togglePreferenceValue!
>> -       (self preferenceAt: prefSymbol ifAbsent: [self error: 'unknown
>> preference: ', prefSymbol]) togglePreferenceValue!
>>
>>
>
>
>
>