[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
|