Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.172.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.172 Author: mt Time: 31 July 2016, 10:55:34.11149 am UUID: 525ee50b-1280-0244-981d-a03a26aae3eb Ancestors: ToolBuilder-Morphic-mt.171
*** Widget Refactorings and UI Themes (Part 3 of 11) ***
Prepare Shout syntax highlighting for UI themes. (Temporarily no syntax highlighting. Sorry. Be patient.)
=============== Diff against ToolBuilder-Morphic-mt.171 ===============
Item was added: + ----- Method: PluggableTextMorphPlus class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ super themeProperties, { + { #stylerClass. 'Editing'. 'The styler class you want to use for syntax highlighting' }. + { #balloonTextColor. 'Colors'. 'Color to use when drawing the balloon text on an empty text field.' }. + { #balloonTextFont. 'Fonts'. 'Font to use when drawing the balloon text on an empty text field.' }. + }!
Item was added: + ----- Method: PluggableTextMorphPlus>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + super applyUserInterfaceTheme. + + self styler ifNotNil: [:s | + s reset. + self updateStyle].!
Item was changed: ----- Method: PluggableTextMorphPlus>>useDefaultStyler (in category 'initialize') ----- useDefaultStyler "This should be changed to a proper registry but as long as there is only shout this will do" + + (self userInterfaceTheme stylerClass ifNil: [Smalltalk at: #SHTextStylerST80]) + ifNotNil: [:stylerClass | self styler: (stylerClass new view: self)].! - Smalltalk at: #SHTextStylerST80 ifPresent:[:stylerClass| - self styler: (stylerClass new view: self). - ].!
packages@lists.squeakfoundation.org