move-caret ( pane loc -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane	an object
loc	an object

Outputs

None

Definition

USING: accessors kernel math.vectors ui.gadgets ;

IN: ui.gadgets.panes.private

: move-caret ( pane loc -- )
    over screen-loc v- over sloppy-pick-up >>caret relayout-1 ;