(ungrab-input) ( handle -- )

Vocabulary

ui.backend

Inputs

handle

an object

Outputs

None

Definition

IN: ui.backend

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

Methods

USING: core-graphics kernel ui.backend ui.backend.cocoa ;

M: cocoa-ui-backend (ungrab-input)
    drop CGMainDisplayID CGDisplayShowCursor drop
    1 CGAssociateMouseAndMouseCursorPosition drop ;


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

M: gtk2-ui-backend (ungrab-input)
    window>> [ gtk_grab_remove ] [ GDK_LEFT_PTR set-cursor ] bi
    ;