blob: f299ed9b2365b45163357afd16a740b2919710cb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
; radial progress bar
(defwidget progressBar [value text class ?boxClass]
(box :class boxClass
(circular-progress :class class
:value value
:thickness 5
text
)
)
)
; slider
(defwidget metric [class value ?onchange orientation flipped ]
(box :class class :orientation orientation :space-evenly true
(scale
:min 0
:max 101
:active {onchange != ""}
:value value
:onchange onchange
:orientation orientation
:flipped flipped
)
))
|