'From etoys2.3 of 28 November 2007 [latest update: #1893] on 11 February 2008 at 9:35:41 pm'!

!Preferences class methodsFor: 'fonts' stamp: 'yo 2/11/2008 21:35'!
restoreDefaultFontsForSqueakland
	"Since this is called from menus, we can take the opportunity to prompt for missing font styles."
	"
	Preferences restoreDefaultFontsForSqueakland
	"

	Preferences setDefaultFonts: #(
			(setListFontTo:			BitstreamVeraSans		12)
	        	(setFlapsFontTo:			BitstreamVeraSansBold	12)

			(setEToysButtonFontTo:	BitstreamVeraSans		12)
			(setEToysFontTo:			BitstreamVeraSansBold	12)
			(setEToysCodeFontTo:		BitstreamVeraSans		12)

			(setPaintBoxButtonFontTo:	BitstreamVeraSans		9)
			(setMenuFontTo:			BitstreamVeraSans		12)
			(setWindowTitleFontTo:	BitstreamVeraSans		15)
			(setBalloonHelpFontTo:		BitstreamVeraSans		12)

			(setCodeFontTo: BitstreamVeraSans 				9)
			(setSystemFontTo: BitstreamVeraSans 				9)

		).

! !