'From etoys2.1 of 26 July 2007 [latest update: #1620] on 11 September 2007 at 9:33:27 pm'!
"Change Set:		fontFix-sw
Date:			11 September 2007
Author:			Scott Wallace

Disenfranchise two items from the 'standard system fonts' choice menu, one whose underlying support is absent from the etoys2.1 stream, and another which no longer was working."!


!Preferences class methodsFor: '*green' stamp: 'sw 9/11/2007 21:02'!
chooseButtonFont
	"Allow the user to select the font to use on buttons."

	self chooseFontWithPrompt:  'Select the font to be
used for buttons' translated andSendTo: self withSelector: #setButtonFontTo: highlight: self standardButtonFont ! !

!Preferences class methodsFor: '*green' stamp: 'sw 9/11/2007 21:30'!
fontConfigurationMenu
	"Answer a menu that lets the user set system fonts"

	| aMenu |
	aMenu := MenuMorph new defaultTarget: Preferences.
	aMenu addTitle: 'Standard System Fonts' translated.
	
	aMenu addStayUpIcons.
	
	aMenu add: 'default text font...' translated action: #chooseSystemFont.
	aMenu balloonTextForLastItem: 'Choose the default font to be used for code and  in workspaces, transcripts, etc.' translated.
	aMenu lastItem font: Preferences standardDefaultTextFont.
	
	aMenu add: 'list font...' translated action: #chooseListFont.
	aMenu lastItem font: Preferences standardListFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used in list panes' translated.
	
	aMenu add: 'flaps font...' translated action: #chooseFlapsFont.
	aMenu lastItem font: Preferences standardFlapFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used on textual flap tabs' translated.

	aMenu add: 'etoy tile font...' translated action: #chooseEToysFont.
	aMenu lastItem font: Preferences standardEToysFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used on etoy tiles' translated.

	aMenu add: 'etoy button font...' translated action: #chooseEToysButtonFont.
	aMenu lastItem font: Preferences standardEToysButtonFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used on etoy buttons' translated.

	aMenu add: 'etoy code font...' translated action: #chooseEToysCodeFont.
	aMenu lastItem font: Preferences standardEToysCodeFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used for textual code in etoys' translated.

"	aMenu add: 'halo label font...' translated action: #chooseHaloLabelFont.
	aMenu lastItem font: Preferences standardHaloLabelFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used on labels in halo' translated.

	aMenu add: 'object name font...' translated action: #chooseObjectNameFont.
	aMenu lastItem font: Preferences standardObjectNameFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used for object names' translated."

	aMenu add: 'menu font...' translated action: #chooseMenuFont.
	aMenu lastItem font: Preferences standardMenuFont.
	aMenu balloonTextForLastItem: 'Choose the font to be used in menus' translated.
	
	aMenu add: 'window-title font...' translated action: #chooseWindowTitleFont.
	aMenu lastItem font: Preferences windowTitleFont emphasis: 1.
	aMenu balloonTextForLastItem: 'Choose the font to be used in window titles.' translated.

	aMenu add: 'balloon-help font...' translated action: #chooseBalloonHelpFont.
	aMenu lastItem font: Preferences standardBalloonHelpFont.
	aMenu balloonTextForLastItem: 'choose the font to be used when presenting balloon help.' translated.
	
	aMenu add: 'button font...' translated action: #chooseButtonFont. 
	aMenu lastItem font: Preferences standardButtonFont. 
	aMenu balloonTextForLastItem: 'Choose the font to be used for (some) buttons.' translated.
	
	aMenu add: 'code font...' translated action: #chooseCodeFont. 
	aMenu lastItem font: Preferences standardCodeFont. 
	aMenu balloonTextForLastItem: 'Choose the font to be used in code panes.' translated.
	
	aMenu addLine.
	aMenu add: 'restore default font choices' translated action: #restoreDefaultFonts.
	aMenu balloonTextForLastItem: 'Use the standard system font defaults' translated.
	
	aMenu add: 'show current font choices' translated action: #printStandardSystemFonts.
	aMenu balloonTextForLastItem: 'Open a window showing the current font settings' translated.

	^ aMenu! !