Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.136.mcz

==================== Summary ====================

Name: System-ar.136
Author: ar
Time: 25 August 2009, 8:24:55 am
UUID: 9baa4e5d-d6ae-e44a-9e73-cd70c77ec9ac
Ancestors: System-nice.135, System-bp.131

Merged System-bp.131:

fixed StandardSystemFontsTests

=============== Diff against System-nice.135 ===============

Item was added:
+ ----- Method: Preferences class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'standard queries') -----
+ syntaxHighlightingAsYouTypeLeftArrowAssignment
+ 	^ self
+ 		valueOfFlag: #syntaxHighlightingAsYouTypeLeftArrowAssignment
+ 		ifAbsent: [false]!

Item was changed:
  ----- Method: StandardSystemFontsTest>>assert:familyName:pointSize: (in category 'utilities') -----
  assert: selector familyName: aString pointSize: anInteger
- 
  	| font |
  	font := Preferences perform: selector.
+ 	self assert: aString equals: font familyName.
+ 	self assert: anInteger equals: font pointSize!
- 	self assert: font familyName = aString.
- 	self assert: font pointSize = anInteger
- 	!

Item was changed:
  ----- Method: StandardSystemFontsTest>>testRestoreDefaultFonts (in category 'testing') -----
  testRestoreDefaultFonts
- 
  	self saveStandardSystemFontsDuring: [
  		Preferences restoreDefaultFonts.
+ 		self assert: #standardDefaultTextFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
+ 		self assert: #standardListFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- 		self assert: #standardDefaultTextFont familyName: 'Accuny' pointSize: 10.
- 		self assert: #standardListFont familyName: 'Accuny' pointSize: 10.
  		self assert: #standardFlapFont familyName: 'Accushi' pointSize: 12.
  		self assert: #standardEToysFont familyName: 'BitstreamVeraSans' pointSize: 9.
+ 		self assert: #standardMenuFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
+ 		self assert: #windowTitleFont familyName: 'Bitmap DejaVu Sans' pointSize: 12.
- 		self assert: #standardMenuFont familyName: 'Accuny' pointSize: 10.
- 		self assert: #windowTitleFont familyName: 'BitstreamVeraSans' pointSize: 12.
  		self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9.
+ 		self assert: #standardCodeFont familyName: 'Bitmap DejaVu Sans' pointSize: 9.
- 		self assert: #standardCodeFont familyName: 'Accuny' pointSize: 10.
  		self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]!

Item was added:
+ ----- Method: Preferences class>>syntaxHighlightingAsYouTypeAnsiAssignment (in category 'standard queries') -----
+ syntaxHighlightingAsYouTypeAnsiAssignment
+ 	^ self
+ 		valueOfFlag: #syntaxHighlightingAsYouTypeAnsiAssignment
+ 		ifAbsent: [false]!

Item was changed:
  ----- Method: StandardSystemFontsTest>>saveStandardSystemFontsDuring: (in category 'utilities') -----
  saveStandardSystemFontsDuring: aBlock
- 
  	| standardDefaultTextFont standardListFont standardEToysFont standardMenuFont 
  	windowTitleFont standardBalloonHelpFont standardCodeFont standardButtonFont |
  
  	standardDefaultTextFont := Preferences standardDefaultTextFont.
  	standardListFont := Preferences standardListFont.
  	standardEToysFont := Preferences standardEToysFont.
  	standardMenuFont := Preferences standardMenuFont.
  	windowTitleFont := Preferences windowTitleFont.
  	standardBalloonHelpFont := Preferences standardBalloonHelpFont.
  	standardCodeFont := Preferences standardCodeFont.
  	standardButtonFont := Preferences standardButtonFont.
  	[aBlock value] ensure: [
  		Preferences setSystemFontTo: standardDefaultTextFont.
  		Preferences setListFontTo: standardListFont.
  		Preferences setEToysFontTo: standardEToysFont.
  		Preferences setMenuFontTo: standardMenuFont.
  		Preferences setWindowTitleFontTo: windowTitleFont.
  		Preferences setBalloonHelpFontTo: standardBalloonHelpFont.
  		Preferences setCodeFontTo: standardCodeFont.
+ 		Preferences setButtonFontTo: standardButtonFont]!
- 		Preferences setButtonFontTo: standardButtonFont].
- !

Item was added:
+ ----- Method: Preferences class>>syntaxHighlightingAsYouType (in category 'standard queries') -----
+ syntaxHighlightingAsYouType
+ 	^ self
+ 		valueOfFlag: #syntaxHighlightingAsYouType
+ 		ifAbsent: [true]!