Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Treated Inbox: http://source.squeak.org/treated/ToolBuilder-Morphic-ct.254.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-ct.254 Author: ct Time: 10 February 2020, 11:15:15.198089 am UUID: e95e688c-632c-7b40-b6ca-4e481bbe57fd Ancestors: ToolBuilder-Morphic-mt.251
Adds support for PluggableSliderSpec. Complements ToolBuilder-Kernel-ct.139.
=============== Diff against ToolBuilder-Morphic-mt.251 ===============
Item was added: + ----- Method: MorphicToolBuilder>>buildPluggableSlider: (in category 'widgets optional') ----- + buildPluggableSlider: spec + + | widget | + widget := self sliderClass + on: spec model + getValue: spec getValue + setValue: spec setValue + min: spec minValue + max: spec maxValue + quantum: spec quantum. + self register: widget id: spec name. + + spec color ifNotNil: [:color | widget color: color]. + spec thumbColor ifNotNil: [:color | widget sliderColor: color]. + self setFrame: spec frame in: widget. + self setLayoutHintsFor: widget spec: spec. + parent ifNotNil: [self add: widget to: parent]. + ^ widget!
Item was added: + ----- Method: MorphicToolBuilder>>sliderClass (in category 'widget classes') ----- + sliderClass + + ^ Slider!