Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.228.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-mt.228
Author: mt
Time: 3 July 2019, 7:16:56.953711 pm
UUID: ca0ee8a0-9619-8643-a771-e1abc09f5173
Ancestors: ToolBuilder-Morphic-pre.227
Makes pluggable check-box morph compatible with UI themes.
=============== Diff against ToolBuilder-Morphic-pre.227 ===============
Item was added:
+ ----- Method: PluggableCheckBoxMorph>>initialize (in category 'initialization') -----
+ initialize
+
+ super initialize.
+ self color: Color transparent.!
Item was changed:
----- Method: PluggableCheckBoxMorph>>installButton (in category 'installing') -----
installButton
+ | aButton |
- | aButton aLabel |
aButton := UpdatingThreePhaseButtonMorph checkBox
target: self model;
actionSelector: self actionSelector;
getSelector: self valueSelector;
+ label: self label;
yourself.
+
- aLabel := (StringMorph contents: self label translated
- font: (StrikeFont familyName: TextStyle defaultFont familyName
- pointSize: TextStyle defaultFont pointSize - 1)).
self addMorph: (self horizontalPanel
addMorphBack: aButton;
+
- addMorphBack: aLabel;
yourself).!