-
Notifications
You must be signed in to change notification settings - Fork 63
/
SpLabelledSliderInput.class.st
81 lines (65 loc) · 1.82 KB
/
SpLabelledSliderInput.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
"
I am a LabelledContainer specialized to manage a SliderInput.
See LabelledContainer
self example
I provide the accessors sliderInput to be more intuitive than subwidget, and the shortcuts input and slider.
I provide shortcuts for the most common methods to avoid the use of the DoesNotUnderstand or the writing of long chain of accessors.
"
Class {
#name : #SpLabelledSliderInput,
#superclass : #SpLabelledContainer,
#category : #'Spec2-Core-Widgets'
}
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> absoluteValue [
^ self sliderInput absoluteValue
]
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> absoluteValue: aBoolean [
^ self sliderInput absoluteValue: aBoolean
]
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> autoAccept [
^ self sliderInput autoAccept
]
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> autoAccept: aBoolean [
^ self sliderInput autoAccept: aBoolean
]
{ #category : #initialization }
SpLabelledSliderInput >> initializeWidgets [
super initializeWidgets.
self content: SpSliderInput
]
{ #category : #accessing }
SpLabelledSliderInput >> input [
^ subwidget input
]
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> max: aNumber [
^ self sliderInput max: aNumber
]
{ #category : #'api-shortcuts' }
SpLabelledSliderInput >> min: aNumber [
^ self sliderInput min: aNumber
]
{ #category : #accessing }
SpLabelledSliderInput >> slider [
^ subwidget slider
]
{ #category : #accessing }
SpLabelledSliderInput >> sliderInput [
^ subwidget
]
{ #category : #accessing }
SpLabelledSliderInput >> value [
^ self sliderInput value
]
{ #category : #accessing }
SpLabelledSliderInput >> value: aNumber [
^ self sliderInput value: aNumber
]
{ #category : #'api-events' }
SpLabelledSliderInput >> whenValueChangedDo: aBlock [
self sliderInput whenValueChangedDo: aBlock
]