gadget-cursor-location ( gadget -- rectangle )

Vocabulary

ui.backend.gtk2

Inputs

gadget

an object

Outputs

rectangle

an object

Definition

USING: gdk2.ffi kernel math math.vectors sequences
ui.backend.gtk2.input-methods ui.gadgets ;

IN: ui.backend.gtk2

: gadget-cursor-location ( gadget -- rectangle )
    [ screen-loc ] [ cursor-loc&dim ] bi [ v+ ] dip
    [ first2 [ >fixnum ] bi@ ] bi@ cairo_rectangle_int_t boa ;