[Pkg] The Trunk: System-mt.854.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jul 31 09:28:03 UTC 2016


Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.854.mcz

==================== Summary ====================

Name: System-mt.854
Author: mt
Time: 31 July 2016, 11:27:38.353418 am
UUID: b8b7f590-e108-a54f-8217-2ba1b4fd793d
Ancestors: System-mt.853

*** Widget Refactorings and UI Themes (Part 7 of 11) ***

Look-up and store default fonts in the current theme.

=============== Diff against System-mt.853 ===============

Item was changed:
  ----- Method: Preferences class>>setBalloonHelpFontTo: (in category 'prefs - fonts') -----
  setBalloonHelpFontTo: aFont
  
+ 	UserInterfaceTheme current
+ 		set: #balloonHelpFont
+ 		to: aFont;
+ 		apply.!
- 	Smalltalk at: #BalloonMorph ifPresent:
- 		[:thatClass | thatClass setBalloonFontTo: aFont]!

Item was changed:
  ----- Method: Preferences class>>setButtonFontTo: (in category 'prefs - fonts') -----
  setButtonFontTo: aFont
+ 
+ 	UserInterfaceTheme current
+ 		set: #standardButtonFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #standardButtonFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setCodeFontTo: (in category 'prefs - fonts') -----
  setCodeFontTo: aFont
  	"Establish the code font."
  
+ 	UserInterfaceTheme current
+ 		set: #standardCodeFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #standardCodeFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setEToysFontTo: (in category 'prefs - fonts') -----
  setEToysFontTo: aFont 
  	"change the font used in eToys environment"
+ 
+ 	UserInterfaceTheme current
+ 		set: #eToysFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #eToysFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setEToysTitleFontTo: (in category 'prefs - fonts') -----
  setEToysTitleFontTo: aFont 
  	"change the font used in eToys environment"
+ 
+ 	UserInterfaceTheme current
+ 		set: #eToysTitleFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #eToysTitleFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setFlapsFontTo: (in category 'prefs - fonts') -----
  setFlapsFontTo: aFont
  
+ 	UserInterfaceTheme current
+ 		set: #standardFlapFont
+ 		to: aFont;
+ 		apply.	
+ 		
+ 	"FlapTab allSubInstancesDo:
+ 		[:aFlapTab | aFlapTab reformatTextualTab]"!
- 	Parameters at: #standardFlapFont put: aFont.
- 	FlapTab allSubInstancesDo:
- 		[:aFlapTab | aFlapTab reformatTextualTab]!

Item was changed:
  ----- Method: Preferences class>>setHaloLabelFontTo: (in category 'prefs - fonts') -----
  setHaloLabelFontTo: aFont 
  	"change the font used in eToys environment"
+ 
+ 	UserInterfaceTheme current
+ 		set: #haloLabelFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #haloLabelFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setListFontTo: (in category 'prefs - fonts') -----
  setListFontTo: aFont
  	"Set the list font as indicated"
  
+ 	UserInterfaceTheme current
+ 		set: #standardListFont
+ 		to: aFont;
+ 		apply.
+ 
+ 	"Smalltalk at: #ListParagraph ifPresent: [:lp | lp initialize].
+ 	Smalltalk at: #Flaps ifPresent: [:flaps | flaps replaceToolsFlap]"!
- 	Parameters at: #standardListFont put: aFont.
- 	Smalltalk at: #ListParagraph ifPresent: [:lp | lp initialize].
- 	Smalltalk at: #Flaps ifPresent: [:flaps | flaps replaceToolsFlap]!

Item was changed:
  ----- Method: Preferences class>>setMenuFontTo: (in category 'prefs - fonts') -----
  setMenuFontTo: aFont
+ 
+ 	UserInterfaceTheme current
+ 		set: #standardMenuFont
+ 		to: aFont;
+ 		apply.
+ 		
+ 	"Smalltalk at: #PopUpMenu ifPresent:[:aClass| aClass setMenuFontTo: aFont].
+ 	TheWorldMainDockingBar updateInstances."!
- 	"rbb 2/18/2005 12:54 - How should this be changed to work
- 	with the UIManager, if at all?"
- 	Parameters at: #standardMenuFont put: aFont.
- 	Smalltalk at: #PopUpMenu ifPresent:[:aClass| aClass setMenuFontTo: aFont].
- 	TheWorldMainDockingBar updateInstances.!

Item was changed:
  ----- Method: Preferences class>>setPaintBoxButtonFontTo: (in category 'prefs - fonts') -----
  setPaintBoxButtonFontTo: aFont 
  	"change the font used in the buttons in PaintBox."
+ 
+ 	UserInterfaceTheme current
+ 		set: #paintBoxButtonFont
+ 		to: aFont;
+ 		apply.!
- 	Parameters at: #paintBoxButtonFont put: aFont!

Item was changed:
  ----- Method: Preferences class>>setWindowTitleFontTo: (in category 'prefs - fonts') -----
  setWindowTitleFontTo: aFont
  	"Set the window-title font to be as indicated"
  
+ 	UserInterfaceTheme current
+ 		set: #windowTitleFont
+ 		to: aFont;
+ 		apply.
+ 
+ 	"(Smalltalk hasClassNamed: #StandardSystemView)
- 	Parameters at: #windowTitleFont put: aFont.
- 	(Smalltalk hasClassNamed: #StandardSystemView)
  		ifTrue: [(Smalltalk at: #StandardSystemView) setLabelStyle].
  	(Smalltalk hasClassNamed: #Flaps)
+ 		ifTrue: [(Smalltalk at: #Flaps) replaceToolsFlap]"
- 		ifTrue: [(Smalltalk at: #Flaps) replaceToolsFlap]
  !

Item was changed:
  ----- Method: Preferences class>>standardBalloonHelpFont (in category 'prefs - fonts') -----
  standardBalloonHelpFont
+ 	
+ 	^ (UserInterfaceTheme current get: #balloonHelpFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	^BalloonMorph balloonFont!

Item was changed:
  ----- Method: Preferences class>>standardButtonFont (in category 'prefs - fonts') -----
  standardButtonFont
+ 	
+ 	^ (UserInterfaceTheme current get: #standardButtonFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	"Answer an attractive font to use for buttons"
- 	"Answer the font to be used for textual flap tab labels"
- 	^ Parameters 
- 			at: #standardButtonFont 
- 			ifAbsentPut: [StrikeFont familyName: #ComicBold size: 16]!

Item was changed:
  ----- Method: Preferences class>>standardCodeFont (in category 'prefs - fonts') -----
  standardCodeFont
+ 
+ 	^ (UserInterfaceTheme current get: #standardCodeFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	"Answer the font to be used in code"
- 	 ^ Parameters at: #standardCodeFont ifAbsentPut: [TextStyle defaultFont]!

Item was changed:
  ----- Method: Preferences class>>standardDefaultTextFont (in category 'prefs - fonts') -----
  standardDefaultTextFont
+ 
+ 	^ (UserInterfaceTheme current get: #standardDefaultTextFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	^TextStyle defaultFont!

Item was changed:
  ----- Method: Preferences class>>standardEToysFont (in category 'prefs - fonts') -----
  standardEToysFont
+ 
+ 	^ (UserInterfaceTheme current get: #eToysFont)
+ 		ifNil: [self standardButtonFont]!
- 	"Answer the font to be used in the eToys environment"
- 	^ Parameters at: #eToysFont ifAbsentPut: [self standardButtonFont]!

Item was changed:
  ----- Method: Preferences class>>standardEToysTitleFont (in category 'prefs - fonts') -----
  standardEToysTitleFont
+ 
+ 	^ (UserInterfaceTheme current get: #eToysTitleFont)
+ 		ifNil: [self standardEToysFont]!
- 	"Answer the font to be used in the eToys environment"
- 	^ Parameters at: #eToysTitleFont ifAbsentPut: [self standardEToysFont]!

Item was changed:
  ----- Method: Preferences class>>standardFlapFont (in category 'prefs - fonts') -----
  standardFlapFont
+ 	
+ 	^ (UserInterfaceTheme current get: #standardFlapFont)
+ 		ifNil: [self standardButtonFont]!
- 	"Answer the font to be used for textual flap tab labels"
- 	^ Parameters at: #standardFlapFont ifAbsentPut: [self standardButtonFont]!

Item was changed:
  ----- Method: Preferences class>>standardHaloLabelFont (in category 'prefs - fonts') -----
  standardHaloLabelFont
+ 
+ 	^ (UserInterfaceTheme current get: #haloLabelFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	"Answer the font to be used in the eToys environment"
- 	^ Parameters at: #haloLabelFont ifAbsentPut: [TextStyle defaultFont]!

Item was changed:
  ----- Method: Preferences class>>standardListFont (in category 'prefs - fonts') -----
  standardListFont
+ 
+ 	^ (UserInterfaceTheme current get: #standardListFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	"Answer the font to be used in lists"
- 	 ^ Parameters at: #standardListFont ifAbsentPut: [TextStyle defaultFont]!

Item was changed:
  ----- Method: Preferences class>>standardMenuFont (in category 'prefs - fonts') -----
  standardMenuFont
+ 
+ 	^ (UserInterfaceTheme current get: #standardMenuFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	"Answer the font to be used in menus"
- 	 ^ Parameters at: #standardMenuFont ifAbsentPut: [TextStyle defaultFont]!

Item was changed:
  ----- Method: Preferences class>>standardPaintBoxButtonFont (in category 'prefs - fonts') -----
  standardPaintBoxButtonFont
+ 
+ 	^ (UserInterfaceTheme current get: #paintBoxButtonFont)
+ 		ifNil: [self standardButtonFont]!
- 	"Answer the font to be used in the eToys environment"
- 	^ Parameters at: #paintBoxButtonFont ifAbsentPut: [self standardButtonFont]!

Item was changed:
  ----- Method: Preferences class>>standardSystemFont (in category 'prefs - fonts') -----
  standardSystemFont
  	"Answer the standard system font "
  
+ 	^ (UserInterfaceTheme current get: #standardSystemFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	^(TextConstants at: #DefaultTextStyle) defaultFont!

Item was changed:
  ----- Method: Preferences class>>windowTitleFont (in category 'prefs - fonts') -----
  windowTitleFont
  	"Answer the standard font to use for window titles"
+ 	
+ 	^ (UserInterfaceTheme current get: #windowTitleFont)
+ 		ifNil: [TextStyle defaultFont]!
- 	^  Parameters at: #windowTitleFont ifAbsentPut: [StrikeFont familyName: #NewYork size: 15]!



More information about the Packages mailing list