select-to-caret ( pane -- )

Vocabulary

ui.gadgets.panes.private

Inputs

pane

an object

Outputs

None

Definition

USING: accessors kernel namespaces ui.clipboards ui.gadgets
ui.gestures ;

IN: ui.gadgets.panes.private

: select-to-caret ( pane -- )
    t >>selecting? [
        dup mark>> [ dup caret>mark ] unless
        hand-loc get-global move-caret
    ] [ com-copy-selection ] [ request-focus ] tri ;