basis/opengl/gl/gtk/gtk.factor

   1 ! Copyright (C) 2010 Anton Gorenko.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.strings io.encodings.ascii
   4 gdk.gl.ffi ;
   5 IN: opengl.gl.gtk
   6
   7 : gl-function-context ( -- context )
   8     gdk_gl_context_get_current ; inline
   9
  10 : gl-function-address ( name -- address )
  11     ascii string>alien gdk_gl_get_proc_address ; inline
  12
  13 : gl-function-calling-convention ( -- str ) cdecl ; inline
  14