find-scroller* ( gadget -- scroller/f )

Vocabulary

ui.gadgets.scrollers.private

Inputs

gadget

an object

Outputs

scroller/f

an object

Definition

USING: accessors combinators.short-circuit kernel ui.gadgets
ui.gadgets.scrollers ;

IN: ui.gadgets.scrollers.private

: find-scroller* ( gadget -- scroller/f )
    dup find-scroller
    { [ nip ] [ viewport>> gadget-child swap child? ] [ nip ] }
    2&& ;