window-handle

Vocabulary

ui.backend.cocoa

Definition

USING: kernel ;

IN: ui.backend.cocoa

TUPLE: window-handle
    view window
    { input-grabbed? boolean initial: f }
    { legacy-context? boolean initial: f } ;

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 namespaces opengl ui.backend ui.backend.cocoa
ui.backend.cocoa.views.private ui.render ;

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
    ] [
        legacy-context?>> not dup gl3-mode? get-global =
        [ drop ]
        [ [ setup-gl3-hooks ] [ setup-legacy-hooks ] if ] if
    ] tri ;