sounds good to me.
Stef
On Oct 15, 2008, at 10:31 PM, Adrian Lienhard wrote:
In another thread (Pharo image size: 10.9MB) I proposed to remove
all but one font since the ones in the image (especially the TT
fonts) are not really useful but consume memory. Hilaire suggested
to keep Accujen, which to my eyes looks better than the default
Accuny font (not perfect, but better..).
So I suggest to change the default to Accujen, keep the current
default Accuny, and remove all other fonts. The script below does
this so you can try it out if you are interested. It frees roughly
2k, but eventually with more cleanup it will have a bigger impact
because the TT font instances are still referenced from other places
in the system.
Adrian
Preferences setDefaultFonts: #(
(setSystemFontTo: 'Accujen' 12)
(setListFontTo: 'Accujen' 12)
(setMenuFontTo: 'Accujen' 12)
(setFlapsFontTo: 'Accujen' 14)
(setEToysFontTo: 'Accujen' 12)
(setPaintBoxButtonFontTo: 'Accujen' 12)
(setWindowTitleFontTo: 'Accujen' 12)
(setBalloonHelpFontTo: 'Accujen' 12)
(setCodeFontTo: 'Accujen' 12)
(setButtonFontTo: 'Accujen' 12)).
Preferences setWindowTitleFontTo: (Preferences windowTitleFont
emphasized: 1).
Preferences setFlapsFontTo: Preferences windowTitleFont.
TextConstants associations do: [ :association |
((association value isKindOf: TextStyle)
and: [ association key ~= #Accuny ]
and: [ association key ~= #Accujen ]
and: [ (TextStyle defaultFamilyNames includes: association key)
not ])
ifTrue: [ TextConstants removeKey: association key ]].
#(#DefaultFixedTextStyle #DefaultMultiStyle) do: [ :key |
TextConstants at: key put: (TextConstants at: #DefaultTextStyle ) ].
PartsBin clearThumbnailCache.
Smalltalk garbageCollect
___________________
http://www.adrian-lienhard.ch/
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
