uiform progress - part-cw/lambdanative GitHub Wiki
(progress . args)
The uiform progress element shows a progress bar.
Parameter | Default | Description |
---|---|---|
height | 32 | Progress bar height in pixel |
value | 0. | Progress value (range 0. to 1.) |
Example
Example 1: A complete page definition with a progress bar from LNhealth's apps/WidgetDemo
(ex_progress
"ProgressBar"
("Prev" ex_images)
("Next" ex_modal)
(spacer)
(label text "Making some progress..")
(spacer)
(progress value ,(lambda ()
(let ((val (uiget 'progressval 0.)))
(uiset 'progressval (if (> val 1.) 0. (+ val 0.01)))
val)))
(spacer)
)