slider
Factor handbook » UI framework » Building user interfaces » Pre-made UI gadgets » Slider gadgets

Next:

<slider> ( range orientation -- slider )

Vocabulary
ui.gadgets.sliders

Class description
A slider is a control for graphically manipulating a Range models.

Sliders are created by calling <slider>.

Definition

USING: ui.gadgets.tracks ;

IN: ui.gadgets.sliders

TUPLE: slider < track elevator thumb saved line ;

Methods

USING: accessors kernel models ui.gadgets ui.gadgets.sliders ;

M: slider model-changed nip elevator>> relayout-1 ;


USING: accessors models.range ui.gadgets.controls
ui.gadgets.sliders ;

M: slider output-model model>> range-model ;


USING: accessors kernel math.vectors ui.gadgets
ui.gadgets.sliders ui.gadgets.sliders.private ;

M: slider pref-dim*
    [
        dup slider-enabled?
        [ t >>visible? slider-required-width ]
        [ f >>visible? drop { 0 0 } ] if
    ] [ drop { 100 100 } ] [ orientation>> ] tri set-axis ;