select-gl-context ( handle -- )
Factor handbook » UI framework » Developing UI backends » UI backend window management

Prev:	draw-world ( world -- )
Next:	flush-gl-context ( handle -- )

Vocabulary
ui.backend

Inputs

handle

an object

Outputs
None

Definition

IN: ui.backend

GENERIC: select-gl-context ( handle -- )

Methods

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 ;