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