[squeak-dev] The Inbox: ToolBuilder-Kernel-ct.139.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 10 10:15:10 UTC 2020
Christoph Thiede uploaded a new version of ToolBuilder-Kernel to project The Inbox:
http://source.squeak.org/inbox/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!
More information about the Squeak-dev
mailing list
|