add opengl.gl.gtk backend
parent
67df0a783f
commit
c6d2f4956a
|
@ -7,7 +7,7 @@ ERROR: unknown-gl-platform ;
|
||||||
<< {
|
<< {
|
||||||
{ [ os windows? ] [ "opengl.gl.windows" ] }
|
{ [ os windows? ] [ "opengl.gl.windows" ] }
|
||||||
{ [ os macosx? ] [ "opengl.gl.macosx" ] }
|
{ [ os macosx? ] [ "opengl.gl.macosx" ] }
|
||||||
{ [ os unix? ] [ "opengl.gl.unix" ] }
|
{ [ os unix? ] [ "opengl.gl.gtk" ] }
|
||||||
[ unknown-gl-platform ]
|
[ unknown-gl-platform ]
|
||||||
} cond use-vocab >>
|
} cond use-vocab >>
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1 @@
|
||||||
|
Anton Gorenko
|
|
@ -0,0 +1,14 @@
|
||||||
|
! Copyright (C) 2010 Anton Gorenko.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
|
USING: alien alien.strings io.encodings.ascii
|
||||||
|
gdk.gl gdk.gl.ffi ;
|
||||||
|
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
|
||||||
|
|
Loading…
Reference in New Issue