     swap slider-max* 1 max / ;
 
 : slider>screen ( m scale -- n ) slider-scale * ;
-
 : screen>slider ( m scale -- n ) slider-scale / ;
 
 M: slider model-changed nip slider-elevator relayout-1 ;

        t >>root?
    thumb-theme ;

: slide-by ( amount slider -- )
    gadget-model move-by ;

: slide-by-page ( amount slider -- )
    gadget-model move-by-page ;

: compute-direction ( elevator -- -1/1 )
    dup find-slider swap hand-click-rel

    { T{ button-down } [ elevator-click ] }
} set-gestures

: <elevator> ( vector -- elevator )
  elevator new-gadget
    swap             >>orientation
    lowered-gradient >>interior ;

: (layout-thumb) ( slider n -- n thumb )
    over gadget-orientation n*v swap slider-thumb ;
