From 4e997a9c6e25689dca65a2ec573a599699ef8170 Mon Sep 17 00:00:00 2001 From: Timothy Pearson Date: Sun, 1 Jan 2012 18:24:37 -0600 Subject: Initial TQt conversion --- PerlQt/examples/opengl/box/GLBox.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'PerlQt/examples/opengl/box/GLBox.pm') diff --git a/PerlQt/examples/opengl/box/GLBox.pm b/PerlQt/examples/opengl/box/GLBox.pm index dd6ceb9..1c6ceb8 100644 --- a/PerlQt/examples/opengl/box/GLBox.pm +++ b/PerlQt/examples/opengl/box/GLBox.pm @@ -4,13 +4,13 @@ use OpenGL qw(:all); use strict; -use Qt; -use Qt::isa qw(Qt::GLWidget); -use Qt::slots +use TQt; +use TQt::isa qw(TQt::GLWidget); +use TQt::slots setXRotation => ['int'], setYRotation => ['int'], setZRotation => ['int']; -use Qt::attributes qw( +use TQt::attributes qw( xRot yRot zRot @@ -75,7 +75,7 @@ sub makeObject glLineWidth( 2.0 ); - glBegin( GL_QUADS ); + glBegin( GL_TQUADS ); 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_QUADS ); + glBegin( GL_TQUADS ); 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_QUAD_STRIP ); + glBegin( GL_TQUAD_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