uiform slider - part-cw/lambdanative GitHub Wiki
(slider . args)
The uiform slider element creates a slider.
Parameter | Default | Description |
---|---|---|
id | #f | Variable to store current value |
labels | '("" "") No labels |
List of 2 (left and right ends) or 3 (left, middle, and right) labels to show above the slider |
min | 0 | Minimum slider value (left end) |
max | 100 | Maximum slider value (right end) |
default | "" | Default slider value |
h | (+ (uiget 'rowh) 20) (20 larger than a regular row) |
The height of the slider plus labels above it |
number | #t | Whether to label the slider box with the current value |
location | 'db | Slider variable storage location |
required | #f | Whether this field is required |
Example
A complete page definition with different slider options, from LNhealth's apps/WidgetDemo
(ex_sliders
"Sliders"
("Prev" ex_sensors)
#f
(spacer height 70)
(label text "Simple small blank slider")
(slider id dummy_slide1 number #f location ui h 48)
(spacer height 5)
,(lambda ()
(let ((value (uiget 'dummy_slide1 50)))
`(label text ,(string-append "Value is " (number->string value)))))
(spacer height 70)
(label text "Labelled slider")
(spacer height 5)
(slider id dummy_slide2 labels ("Left" "Middle" "Right") min 0 max 10)
)