sloppy-pick-up ( loc gadget -- path )

Vocabulary

ui.gadgets.panes.private

Inputs

loc	an object
gadget	an object

Outputs

path

an object

Definition

USING: kernel sequences ;

IN: ui.gadgets.panes.private

: sloppy-pick-up ( loc gadget -- path )
    2dup sloppy-pick-up* dup
    [ [ wet-and-sloppy sloppy-pick-up ] keep prefix ]
    [ 3drop { } ] if ;