'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 20 March 2009 at 11:22:57 am'!

!LightWidget methodsFor: 'defaults' stamp: 'jmv 3/19/2009 13:22'!
defaultFont
	^StrikeFont familyName: 'DejaVu' size: 28! !


!ButtonLW methodsFor: 'initialization' stamp: 'jmv 3/20/2009 11:18'!
initialize
	super initialize.
	target _ 'I am the target'.
	action _ #show.
	bounds _ 10@10 extent: 60@30.
	label _ 'button label'.
	font _ (TextStyle named: 'DejaVu') fontNamed: 'DejaVu 16'.
	foreColor _ Color white.
	selectedForeColor _ Color white.
	backColor _ Color r: 0.32 g: 0.39 b: 0.63.
	selectedBackColor _ Color r: 0.42 g: 0.5 b: 0.81.
	pressed _ false! !


!CheckBoxLW methodsFor: 'initialization' stamp: 'jmv 3/19/2009 13:22'!
initialize
	super initialize.
	target _ self.
	aspect _ #visible.
	action _ #visible:.
	bounds _ 10@10 extent: 200@30.
	label _ 'CheckBox label'.
	font _ (TextStyle named: 'DejaVu') fontNamed: 'DejaVu 12'.
	foreColor _ Color white.
	selectedForeColor _ Color white.
	backColor _ Color r: 0.32 g: 0.39 b: 0.63.
	selectedBackColor _ Color r: 0.42 g: 0.5 b: 0.81.
	selected _ false! !


!EntryField2LW methodsFor: 'initialization' stamp: 'jmv 3/19/2009 13:22'!
initialize
	super initialize.
"	target _ self.
	aspect _ #visible.
	action _ #visible:."
	bounds _ 10@10 extent: 200@30.
	contents _ 'Entry Field'.
	actionPending _ false.
	font _ (TextStyle named: 'DejaVu') fontNamed: 'DejaVu 12'.
	foreColor _ Color white.
	selectedForeColor _ Color white.
	backColor _ Color r: 0.32 g: 0.39 b: 0.63.
	selectedBackColor _ Color r: 0.42 g: 0.5 b: 0.81.! !


!Preferences class methodsFor: 'fonts' stamp: 'jmv 3/20/2009 11:22'!
restoreDefaultFonts
	"Since this is called from menus, we can take the opportunity to prompt for missing font styles."
	"Preferences restoreDefaultFonts"

	Preferences setDefaultFonts: #(
		(setSystemFontTo: 'DejaVu' 9)
		(setListFontTo: 'DejaVu' 9)
		(setMenuFontTo: 'DejaVu' 10)
		(setWindowTitleFontTo: 'DejaVu' 12)
		(setBalloonHelpFontTo: 'DejaVu' 10)
		(setCodeFontTo: 'DejaVu' 10)
		(setButtonFontTo: 'DejaVu' 9))! !

