1 USING: alien.c-types alien.syntax kernel windows.types ;
6 FUNCTION: HGLRC wglGetCurrentContext ( ) ;
7 FUNCTION: void* wglGetProcAddress ( char* name ) ;
9 : gl-function-context ( -- context ) wglGetCurrentContext ; inline
10 : gl-function-address ( name -- address ) wglGetProcAddress ; inline
11 : gl-function-calling-convention ( -- str ) "stdcall" ; inline