From: Kartik Thakore <thakore.kartik@gmail.com>
Date: Sun, 2 Aug 2009 14:37:33 +0000 (-0400)
Subject: Updated OpenGL subs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=faad43be293c8de28169e2ee12ab99a881c50bf4;p=sdlgit%2FSDL_perl.git

Updated OpenGL subs
---

diff --git a/src/OpenGL.xs b/src/OpenGL.xs
index def391c..d027d10 100644
--- 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
--- 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
--- 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