[squeak-dev] The Trunk: System-ar.136.mcz

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]!