previous-character ( editor -- )

Vocabulary

ui.gadgets.editors

Inputs

editor

an object

Outputs

None

Definition

USING: documents.elements kernel ui.gadgets
ui.gadgets.editors.private ;

IN: ui.gadgets.editors

: previous-character ( editor -- )
    dup gadget-selection?
    [ dup selection-start/end drop over set-caret mark>caret ]
    [ char-elt editor-prev ] if ;