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
