'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 6 November 2004 at 11:19:48 pm'! "Change Set: StandardSystemFontsTest-bp Date: 6 November 2004 Author: Bernhard Pieber The system fonts were changed recently. This Change Set adapts the SUnit test as well."! !StandardSystemFontsTest methodsFor: 'as yet unclassified' stamp: 'bp 11/6/2004 23:15'! testRestoreDefaultFonts self saveStandardSystemFontsDuring: [ Preferences restoreDefaultFonts. 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: 'Accuny' pointSize: 10. self assert: #windowTitleFont familyName: 'BitstreamVeraSans' pointSize: 12. self assert: #standardBalloonHelpFont familyName: 'Accujen' pointSize: 9. self assert: #standardCodeFont familyName: 'Accuny' pointSize: 10. self assert: #standardButtonFont familyName: 'BitstreamVeraSansMono' pointSize: 9]! !