earlier-caret/mark ( editor -- loc )

Vocabulary

ui.backend.cocoa.views.private

Inputs

editor

an object

Outputs

loc

an object

Definition

USING: kernel math sequences ui.gadgets.editors ;

IN: ui.backend.cocoa.views.private

:: earlier-caret/mark ( editor -- loc )
    editor editor-caret :> caret editor editor-mark :> mark
    caret first mark first =
    [ caret second mark second < [ caret ] [ mark ] if ]
    [ caret first mark first < [ caret ] [ mark ] if ] if ;