(ungrab-input) ( handle -- )

Vocabulary

ui.backend

Inputs

handle

an object

Outputs

None

Definition

IN: ui.backend

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

Methods

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

M: cocoa-ui-backend (ungrab-input)
    dup input-grabbed?>> [
        1 CGAssociateMouseAndMouseCursorPosition drop NSCursor
        { void { id SEL } } "unhide" send f >>input-grabbed?
        drop
    ] [ drop ] if ;