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