'From etoys2.1 of 26 July 2007 [latest update: #1586] on 4 September 2007 at 9:46:41 am'!
"Change Set:		veraSansForEtoys-tak
Date:			4 September 2007
Author:			Takashi Yamamiya

Choose BitstreamVeraSans for Etoys."!


!Preferences class methodsFor: 'fonts' stamp: 'tak 9/4/2007 09:46'!
restoreDefaultFonts
	"Since this is called from menus, we can take the opportunity to prompt for missing font styles."
	"
	Preferences restoreDefaultFonts
	"

	Preferences setDefaultFonts: #(
			(setListFontTo:			BitstreamVeraSans		15)
	        	(setFlapsFontTo:			BitstreamVeraSansBold	15)
			(setEToysFontTo:			BitstreamVeraSansBold	15)
			(setPaintBoxButtonFontTo:	BitstreamVeraSans	9)
			(setMenuFontTo:			BitstreamVeraSans		15)
			(setWindowTitleFontTo:	BitstreamVeraSans		15)
			(setBalloonHelpFontTo:	BitstreamVeraSans		15)
			(setButtonFontTo:		BitstreamVeraSans	15)
			(setCodeFontTo:			BitstreamVeraSans					9)
		).
! !

"Postscript:
"
Preferences restoreDefaultFonts.
!