loc>point ( loc editor -- loc )

Vocabulary

ui.gadgets.editors

Inputs

loc	an object
editor	an object

Outputs

loc

an object

Definition

USING: arrays kernel opengl sequences ui.gadgets.line-support ;

IN: ui.gadgets.editors

: loc>point ( loc editor -- loc )
    [ loc>x ] [ [ first ] dip line>y gl-ceiling ] 2bi 2array ;