scroll>gadget ( gadget -- )

Vocabulary

ui.gadgets.scrollers

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets ui.gadgets.scrollers.private
;

IN: ui.gadgets.scrollers

: scroll>gadget ( gadget -- )
    dup find-scroller*
    [ swap >>follows relayout-1 ] [ drop ] if* ;