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!