Gauge widget == Description == The tag ++++ implements //gauges// which are a kind of progress bars. These elements can be created on server-side //and// client-side. == Synopsis == === Server & client === ( arg ...) === client === (hop-gauge-value gauge) (hop-gauge-value-set! gauge val) (hop-gauge-min gauge) (hop-gauge-max gauge) (hop-gauge-min-set! gauge val) (hop-gauge-max-set! gauge val) (hop-gauge-text gauge) (hop-gauge-text-set! gauge val) === Requirements === Client codes using //gauge// need to load the client-side code ++hop-gauge++. ( :include "hop-gauge") == Examples == == Server & Client Definitions == === ++++ === ^ attributes ^ type ^ default ^ short description ^ | :id | string | //random// | element identifier. | | :min | integer | 0 | the range lowest bound. | | :max | integer | 99 | the range lowest bound. | | :format | string | ~a | the text template. | | :value | integer | 0 | the initial value. | | :onchange | procedure | _ | a procedure to invoke on value changes. | This function creates a //gauge//. ~~ The argument :onchange is a script that is invoked each time the gauge is changed. That is calling the function ++gauge-value-set!++ **invokes automatically** :onchange. In the scope of that script, the variable ++this++ is bound to the //gauge// whose value can be retrieve by the means of the function ++gauge-value++. == Client Definitions == === ++(gauge-value gauge)++ === === ++(gauge-value-set! gauge val)++ === gauge-value gauge-value-set! ^ arguments ^ type ^ short description ^ | gauge | gauge or string | the gauge button. | | val | integer | the new gauge value. | These functions get and set the value of a //gauge//. Example: (let ((but ( :max 10 :min -10 :onchange ~(alert (gauge-value this))))) (