The Trunk: System-ul.396.mcz

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'!