layout-thumb-dim ( thumb slider -- )

Vocabulary

ui.gadgets.sliders.private

Inputs

thumb	an object
slider	an object

Outputs

None

Definition

USING: accessors kernel math.vectors ;

IN: ui.gadgets.sliders.private

: layout-thumb-dim ( thumb slider -- )
    [ dim>> ] [ thumb-dim ] [ orientation>> ] tri [ n*v ] keep
    set-axis vceiling >>dim drop ;