[squeak-dev] The people wish know...

Edgar J. De Cleene edgardec2001 at yahoo.com.ar
Thu Aug 13 11:07:57 UTC 2009


Skipped content of type multipart/alternative-------------- next part --------------
'From SqueakLight|II of 31 May 2008 [latest update: #7240] on 13 August 2009 at 7:56:15 am'!

!Preferences class methodsFor: 'add preferences' stamp: 'edc 8/13/2009 07:52'!
restoreFontPreferencesFromDisk
	"Preferences restoreFontPreferencesFromDisk"
	| inputStream oldFonts |
	(FileDirectory default fileExists: 'FontsPref.obj')
		ifTrue: [inputStream := FileStream oldFileNamed: 'FontsPref.obj'.
			oldFonts := inputStream fileInObjectAndCode.
			inputStream close.
			oldFonts
				keysAndValuesDo: [:key :value | Parameters at: key put: value]]! !

!Preferences class methodsFor: 'fonts' stamp: 'edc 8/13/2009 07:10'!
exportStandardSystemFonts
	"Preferences exportStandardSystemFonts"
	| prefFont |
	prefFont := Dictionary new.
	#(#standardDefaultTextFont #standardListFont #standardFlapFont #standardEToysFont #standardMenuFont #windowTitleFont #standardBalloonHelpFont #standardCodeFont #standardButtonFont )
		do: [:selector | prefFont
				at: selector
				put: (Preferences perform: selector)].
	prefFont saveOnFileNamed:  'FontsPref'! !



More information about the Squeak-dev mailing list