The Trunk: ToolBuilder-Morphic-mt.172.mcz

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