sloppy-pick-up* ( loc gadget -- n )

Vocabulary

ui.gadgets.panes.private

Inputs

loc	an object
gadget	an object

Outputs

n

an object

Definition

IN: ui.gadgets.panes.private

GENERIC: sloppy-pick-up* ( loc gadget -- n )

Methods

USING: kernel ui.gadgets.panes.private ;

M: f sloppy-pick-up* 2drop f ;


USING: accessors kernel math.rectangles sequences ui.gadgets
ui.gadgets.panes.private ;

M: gadget sloppy-pick-up*
    children>> [ contains-point? ] with find-last drop ;


USING: accessors kernel ui.gadgets.packs
ui.gadgets.panes.private ui.gadgets.private ;

M: pack sloppy-pick-up*
    [ orientation>> ] [ children>> ] bi
    [ loc>> ] (fast-children-on) ;