screen-y* ( gadget -- loc )


Vocabulary
ui.gadgets.slate

Inputs
gadgetan object


Outputs
locan object


Definition
USING: kernel math sequences ui.gadgets ui.gadgets.worlds ;

IN: ui.gadgets.slate

: screen-y* ( gadget -- loc )
[ find-world height ] [ screen-loc second ] [ height ] tri +
- ;