From d84f35f4056f3175f0a7e2a16e7a00b2276206be Mon Sep 17 00:00:00 2001
From: Darrell Anderson <humanreadable@yahoo.com>
Date: Sat, 4 May 2013 23:52:45 -0500
Subject: Fix inadvertent renaming.

---
 PerlTQt/examples/opengl/box/GLBox.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'PerlTQt/examples/opengl/box/GLBox.pm')

diff --git a/PerlTQt/examples/opengl/box/GLBox.pm b/PerlTQt/examples/opengl/box/GLBox.pm
index 1c6ceb8..99eae9c 100644
--- a/PerlTQt/examples/opengl/box/GLBox.pm
+++ b/PerlTQt/examples/opengl/box/GLBox.pm
@@ -75,7 +75,7 @@ sub makeObject
 
     glLineWidth( 2.0 );
 
-    glBegin( GL_TQUADS );
+    glBegin( GL_QUADS );
     glVertex3f(  1.0,  0.5, -0.4 );
     glVertex3f(  1.0, -0.5, -0.4 );
     glVertex3f( -1.0, -0.5, -0.4 );
@@ -84,7 +84,7 @@ sub makeObject
 
     qglColor( &blue );
 
-    glBegin( GL_TQUADS );
+    glBegin( GL_QUADS );
     glVertex3f(  1.0,  0.5, 0.4 );
     glVertex3f(  1.0, -0.5, 0.4 );
     glVertex3f( -1.0, -0.5, 0.4 );
@@ -93,7 +93,7 @@ sub makeObject
 
     qglColor( &darkRed );
 
-    glBegin( GL_TQUAD_STRIP );
+    glBegin( GL_QUAD_STRIP );
     glVertex3f(  1.0,  0.5, -0.4 );   glVertex3f(  1.0,  0.5, 0.4 );
     glVertex3f(  1.0, -0.5, -0.4 );   glVertex3f(  1.0, -0.5, 0.4 );
     qglColor( &yellow );
-- 
cgit v1.2.3