(grab-input) ( handle -- )

Vocabulary

ui.backend

Inputs

handle

an object

Outputs

None

Definition

IN: ui.backend

HOOK: (grab-input) ui-backend ( handle -- )

Methods

USING: accessors alien.c-types cocoa.classes cocoa.messages
cocoa.runtime cocoa.types core-graphics core-graphics.types
kernel math math.rectangles sequences threads ui.backend
ui.backend.cocoa ;

M: cocoa-ui-backend (grab-input)
    0 CGAssociateMouseAndMouseCursorPosition drop
    CGMainDisplayID CGDisplayHideCursor drop window>>
    { NSRect { id SEL } } "frame" send
    CGRect>rect rect-center NSScreen
    { id { id SEL } } "screens" send 0
    { id { id SEL ulong } } "objectAtIndex:" send
    { NSRect { id SEL } } "frame" send CGRect-h
    [ drop first ] [ swap second - ] 2bi <CGPoint>
    [ GetCurrentButtonState zero? not ] [ yield ] while
    CGWarpMouseCursorPosition drop ;


USING: accessors gdk2.ffi gtk2.ffi kernel ui.backend
ui.backend.gtk2 ;

M: gtk2-ui-backend (grab-input)
    window>> [ gtk_grab_add ] [ GDK_BLANK_CURSOR set-cursor ] bi
    ;