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)
)