[squeak-dev] The Trunk: ToolBuilder-Morphic-fn.230.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jul 19 11:11:26 UTC 2019


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!



More information about the Squeak-dev mailing list