The Trunk: ToolBuilder-Morphic-fn.230.mcz

Fabio Niephaus uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-fn.230.mcz

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

Name: ToolBuilder-Morphic-fn.230
Author: fn
Time: 19 July 2019, 1:11:25.724125 pm
UUID: 45c117c6-25fc-438b-b00a-0219a6d5c1c5
Ancestors: ToolBuilder-Morphic-mt.229

Propagate the spec's color correctly in MorphicToolBuilder>>buildPluggableCheckBox:. Also, clean up the method a bit.

Thanks for the help, Marcel.

=============== Diff against ToolBuilder-Morphic-mt.229 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableCheckBox: (in category 'widgets optional') -----
  buildPluggableCheckBox: spec
 
  | widget label state action |
  label := spec label.
  state := spec state.
  action := spec action.
  widget := self checkBoxClass on: spec model
  getState: (state isSymbol ifTrue:[state])
  action: (action isSymbol ifTrue:[action])
  label: (label isSymbol ifTrue:[label]).
  self register: widget id: spec name.
 
  widget installButton.
+ spec color ifNotNil: [:c | widget color: c].
+ self setFrame: spec frame in: widget.
- " widget getColorSelector: spec color.
- widget offColor: Color white..
- self buildHelpFor: widget spec: spec.
- (label isSymbol or:[label == nil]) ifFalse:[widget label: label].
- " self setFrame: spec frame in: widget.
  self setLayoutHintsFor: widget spec: spec.
+ parent ifNotNil: [:p | self add: widget to: p].
- parent ifNotNil:[self add: widget to: parent].
  ^widget!