Updated OpenGL subs

diff --git a/src/OpenGL.xs b/src/OpenGL.xs
index def391c..d027d10 100644 (file)
--- a/src/OpenGL.xs
+++ b/src/OpenGL.xs
@@ -14,6 +14,7 @@
 
 #include <gl.h>
 #include <glu.h>
+#include <GL/glx.h>
 
 #ifdef USE_THREADS
 #define HAVE_TLS_CONTEXT
@@ -2789,5 +2790,15 @@ gluSphere ( quad, radius, slices, stacks )
                gluSphere ( quad, radius, slices, stacks );
 
 
+
+void 
+glXUseXFont ( font, first, count, list_base )
+       Font font
+       int  first
+       int  count
+       int  list_base
+       CODE:
+               glXUseXFont ( font, first, count, list_base );
+
 #endif
 

diff --git a/t/opengl.t b/t/opengl.t
index 1c3eef6..4b51c0b 100644 (file)
--- a/t/opengl.t
+++ b/t/opengl.t
@@ -15,7 +15,7 @@ use SDL::Config;
 use Test::More;
 
 if ( SDL::Config->has('GL') && SDL::Config->has('GLU') ) {
-               plan ( tests => 3 );
+               plan ( tests => 4 );
 } else {
        plan ( skip_all => 'OpenGL support not compiled' );
 }
@@ -74,3 +74,5 @@ can_ok('main',qw/
        gluDisk
        gluPartialDisk
        gluSphere /);
+
+can_ok('main',qw/glXUseXFont/);

diff --git a/typemap b/typemap
index 410e973..18d0bd5 100644 (file)
--- a/typemap
+++ b/typemap
@@ -65,3 +65,4 @@ Sound_DecoderInfo *   T_PTR
 const Sound_DecoderInfo *      T_PTR
 Sound_Sample *         T_PTR
 Sound_AudioInfo *      T_PTR
+Font                           T_IV