[Pkg] The Trunk: ToolBuilder-Morphic-mt.169.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 21 09:52:28 UTC 2016

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:

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

Name: ToolBuilder-Morphic-mt.169
Author: mt
Time: 21 July 2016, 11:52:17.079126 am
UUID: 19a0f1e3-5b24-a945-ad3d-715c8ad73f3b
Ancestors: ToolBuilder-Morphic-topa.168

Fixes a bug in tool builder. Pluggable buttons that have color-callbacks now correctly update the color when created.

=============== Diff against ToolBuilder-Morphic-topa.168 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggableButton: (in category 'widgets required') -----
  buildPluggableButton: aSpec
  	| widget label state action enabled |
  	label := aSpec label.
  	state := aSpec state.
  	action := aSpec action.
  	widget := self buttonClass on: aSpec model
  				getState: (state isSymbol ifTrue:[state])
  				action: nil
  				label: (label isSymbol ifTrue:[label]).
  	widget style: aSpec style.
  	aSpec changeLabelWhen
  		ifNotNilDo: [ :event | widget whenChanged: event update: aSpec label].
  	self register: widget id: aSpec name.
  	enabled := aSpec enabled.
  	enabled isSymbol
  		ifTrue:[widget getEnabledSelector: enabled]
  		ifFalse:[widget enabled:enabled].
  	widget action: action.
  	aSpec color isColor
  		ifTrue: [widget
  			onColor: aSpec color
  			offColor: aSpec color]
  		ifFalse: [
  			widget getColorSelector: aSpec color.
+ 			widget update: aSpec color].
- 			widget offColor: Color white].
  	self buildHelpFor: widget spec: aSpec. 
  	(label isSymbol or:[label == nil]) ifFalse:[widget label: label].
  	self setFrame: aSpec frame in: widget.
  	self setLayoutHintsFor: widget spec: aSpec.
  	parent ifNotNil:[self add: widget to: parent].

More information about the Packages mailing list