window-handle

Vocabulary

ui.backend.cocoa

Definition

IN: ui.backend.cocoa

TUPLE: window-handle view window ;

Methods

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

M: window-handle flush-gl-context
    display-asleep?
    [ drop ] [
        view>> { id { id SEL } } "openGLContext" send
        { void { id SEL } } "flushBuffer" send
    ] if ;


USING: accessors alien.c-types cocoa.messages cocoa.runtime
kernel ui.backend ui.backend.cocoa
ui.backend.cocoa.views.private ;

M: window-handle select-gl-context
    [
        window>> { double { id SEL } } "backingScaleFactor" send
        set-scale-factor
    ] [
        view>> { id { id SEL } } "openGLContext" send
        { void { id SEL } } "makeCurrentContext" send
    ] bi ;