[Pkg] The Trunk: System-ul.396.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 24 07:12:50 UTC 2010


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



More information about the Packages mailing list