2010-05-24 09:22:29 -04:00
|
|
|
! Copyright (C) 2010 Anton Gorenko.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: alien alien.strings io.encodings.ascii
|
2010-05-26 14:17:14 -04:00
|
|
|
gdk.gl.ffi ;
|
2010-05-24 09:22:29 -04:00
|
|
|
IN: opengl.gl.gtk
|
|
|
|
|
|
|
|
|
|
: gl-function-context ( -- context )
|
|
|
|
|
gdk_gl_context_get_current ; inline
|
|
|
|
|
|
|
|
|
|
: gl-function-address ( name -- address )
|
|
|
|
|
ascii string>alien gdk_gl_get_proc_address ; inline
|
|
|
|
|
|
|
|
|
|
: gl-function-calling-convention ( -- str ) cdecl ; inline
|
|
|
|
|
|
