Christoph Thiede uploaded a new version of ToolBuilder-Kernel to project The Treated Inbox: http://source.squeak.org/treated/ToolBuilder-Kernel-ct.139.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-ct.139 Author: ct Time: 10 February 2020, 11:15:08.216089 am UUID: af747df6-a0a5-f345-a105-b2be39523199 Ancestors: ToolBuilder-Kernel-mt.134
Adds PluggableSliderSpec
=============== Diff against ToolBuilder-Kernel-mt.134 ===============
Item was added: + PluggableWidgetSpec subclass: #PluggableSliderSpec + instanceVariableNames: 'getValue setValue minValue maxValue quantum thumbColor' + classVariableNames: '' + poolDictionaries: '' + category: 'ToolBuilder-Kernel'!
Item was added: + ----- Method: PluggableSliderSpec>>buildWith: (in category 'building') ----- + buildWith: builder + + ^ builder buildPluggableSlider: self!
Item was added: + ----- Method: PluggableSliderSpec>>getValue (in category 'accessing') ----- + getValue + "Answer the selector for getting the slider's value." + ^ getValue!
Item was added: + ----- Method: PluggableSliderSpec>>getValue: (in category 'accessing') ----- + getValue: aSymbol + "Set the selector for getting the slider's value." + getValue := aSymbol!
Item was added: + ----- Method: PluggableSliderSpec>>maxValue (in category 'accessing') ----- + maxValue + "Set the maximum slider value, a symbol or number." + ^ maxValue!
Item was added: + ----- Method: PluggableSliderSpec>>maxValue: (in category 'accessing') ----- + maxValue: aSymbolOrNumber + "Set the maximum slider value." + maxValue := aSymbolOrNumber!
Item was added: + ----- Method: PluggableSliderSpec>>minValue (in category 'accessing') ----- + minValue + "Answer the minimum slider value, a symbol or number." + ^ minValue!
Item was added: + ----- Method: PluggableSliderSpec>>minValue: (in category 'accessing') ----- + minValue: aSymbolOrNumber + "Set the minimum slider value." + minValue := aSymbolOrNumber!
Item was added: + ----- Method: PluggableSliderSpec>>quantum (in category 'accessing') ----- + quantum + "Answer the rounding quantum for the slider value." + ^ quantum!
Item was added: + ----- Method: PluggableSliderSpec>>quantum: (in category 'accessing') ----- + quantum: aNumber + "Set the rounding quantum for the slider value." + quantum := aNumber!
Item was added: + ----- Method: PluggableSliderSpec>>setValue (in category 'accessing') ----- + setValue + "Answer the selector for setting the slider's value." + ^ setValue!
Item was added: + ----- Method: PluggableSliderSpec>>setValue: (in category 'accessing') ----- + setValue: aSymbol + "Set the selector for setting the slider's value." + setValue := aSymbol!
Item was added: + ----- Method: PluggableSliderSpec>>thumbColor (in category 'accessing') ----- + thumbColor + "Answer the color of the thumb the user can drag to change the slider's value." + ^ thumbColor!
Item was added: + ----- Method: PluggableSliderSpec>>thumbColor: (in category 'accessing') ----- + thumbColor: aColor + "Set the color of the thumb the user can drag to change the slider's value." + thumbColor := aColor!
Item was added: + ----- Method: ToolBuilder>>pluggableSliderSpec (in category 'defaults') ----- + pluggableSliderSpec + ^ PluggableSliderSpec!