wet-and-sloppy ( loc gadget n -- newloc newgadget )

Vocabulary

ui.gadgets.panes.private

Inputs

loc	an object
gadget	an object
n	an object

Outputs

newloc	an object
newgadget	an object

Definition

USING: accessors kernel math.vectors ui.gadgets ;

IN: ui.gadgets.panes.private

: wet-and-sloppy ( loc gadget n -- newloc newgadget )
    swap nth-gadget [ loc>> v- ] keep ;