caret-loc ( interactor element -- loc )


Vocabulary
ui.tools.listener.popups

Inputs
interactoran object
elementan object


Outputs
locan object


Definition
USING: accessors documents.elements kernel ui.gadgets.editors ;

IN: ui.tools.listener.popups

: caret-loc ( interactor element -- loc )
[ [ [ editor-caret ] [ model>> ] bi ] dip prev-elt ]
[ drop ] 2bi loc>point ;