Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.396.mcz
==================== Summary ====================
Name: System-ul.396 Author: ul Time: 24 November 2010, 8:06:37.276 am UUID: 34376be0-635e-0d4d-9509-a1c661430cdb Ancestors: System-ul.395
- set the balloon font (if possible) in Preferences >> #restoreDefaultFonts. - modified the postscript, so the default fonts will be restored to change the ballon font to Bitmap DejaVu Sans 7pt.
=============== Diff against System-ul.395 ===============
Item was changed: ----- Method: Preferences class>>restoreDefaultFonts (in category 'fonts') ----- restoreDefaultFonts "Since this is called from menus, we can take the opportunity to prompt for missing font styles." " Preferences restoreDefaultFonts "
self setDefaultFonts: #( (setSystemFontTo: 'Bitmap DejaVu Sans' 9) (setListFontTo: 'Bitmap DejaVu Sans' 9) (setFlapsFontTo: Accushi 12) (setEToysFontTo: BitstreamVeraSansBold 9) (setPaintBoxButtonFontTo: BitstreamVeraSansBold 9) (setMenuFontTo: 'Bitmap DejaVu Sans' 9) (setWindowTitleFontTo: 'Bitmap DejaVu Sans Bold' 9) (setBalloonHelpFontTo: Accujen 9) (setCodeFontTo: 'Bitmap DejaVu Sans' 9) (setButtonFontTo: 'Bitmap DejaVu Sans' 7) + (setBalloonFontTo: 'Bitmap DejaVu Sans' 7) + )! - ) - !
Item was added: + ----- Method: Preferences class>>setBalloonFontTo: (in category 'fonts') ----- + setBalloonFontTo: aFont + + Smalltalk at: #BalloonMorph ifPresent: [ :balloonMorph | + balloonMorph setBalloonFontTo: aFont ]!
Item was changed: + (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts.'! - (PackageInfo named: 'System') postscript: 'Preferences restoreDefaultFonts'!
packages@lists.squeakfoundation.org