Initial TQt conversion

2 files changed, 30 insertions, 30 deletions

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 );
diff --git a/PerlQt/examples/opengl/box/glbox b/PerlQt/examples/opengl/box/glbox
index 613a274..fed74a3 100644
--- a/PerlQt/examples/opengl/box/glbox
+++ b/PerlQt/examples/opengl/box/glbox
@@ -3,9 +3,9 @@ package GLObjectWindow;
 
 use strict;
 
-use Qt;
-use Qt::isa qw(Qt::Widget);          
-use Qt::attributes qw(
+use TQt;
+use TQt::isa qw(TQt::Widget);          
+use TQt::attributes qw(
     file
     frame
     menu
@@ -22,50 +22,50 @@ sub NEW
     shift->SUPER::NEW(@_);
 
     # Create a menu
-    file = Qt::PopupMenu( this );
-    file->insertItem( "Exit",  Qt::app(), SLOT 'quit()', Qt::KeySequence(int &CTRL + &Key_Q ));
+    file = TQt::PopupMenu( this );
+    file->insertItem( "Exit",  TQt::app(), TQT_SLOT 'quit()', TQt::KeySequence(int &CTRL + &Key_Q ));
 
     # Create a menu bar
-    menu = Qt::MenuBar( this );
-    menu->setSeparator( &Qt::MenuBar::InWindowsStyle );
+    menu = TQt::MenuBar( this );
+    menu->setSeparator( &TQt::MenuBar::InWindowsStyle );
     menu->insertItem("&File", file );
 
     # Create a nice frame to put around the OpenGL widget
-    frame = Qt::Frame( this, "frame" );
-    frame->setFrameStyle( &Qt::Frame::Sunken | &Qt::Frame::Panel );
+    frame = TQt::Frame( this, "frame" );
+    frame->setFrameStyle( &TQt::Frame::Sunken | &TQt::Frame::Panel );
     frame->setLineWidth( 2 );
 
     # Create our OpenGL widget
     box = GLBox( frame, "glbox");
 
     # Create the three sliders; one for each rotation axis
-    xpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "xsl" );
-    xpos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( xpos, SIGNAL 'valueChanged(int)', box, SLOT 'setXRotation(int)' );
+    xpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "xsl" );
+    xpos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( xpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setXRotation(int)' );
 
-    ypos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "ysl" );
-    ypos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( ypos, SIGNAL 'valueChanged(int)', box, SLOT 'setYRotation(int)' );
+    ypos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "ysl" );
+    ypos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( ypos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setYRotation(int)' );
 
-    zpos = Qt::Slider ( 0, 360, 60, 0, &Qt::Slider::Vertical, this, "zsl" );
-    zpos->setTickmarks( &Qt::Slider::Left );
-    Qt::Object::connect( zpos, SIGNAL 'valueChanged(int)', box, SLOT 'setZRotation(int)' );
+    zpos = TQt::Slider ( 0, 360, 60, 0, &TQt::Slider::Vertical, this, "zsl" );
+    zpos->setTickmarks( &TQt::Slider::Left );
+    TQt::Object::connect( zpos, TQT_SIGNAL 'valueChanged(int)', box, TQT_SLOT 'setZRotation(int)' );
 
 
     # Now that we have all the widgets, put them into a nice layout
 
     # Put the sliders on top of each other
-    my $vlayout = Qt::VBoxLayout( 20, "vlayout");
+    my $vlayout = TQt::VBoxLayout( 20, "vlayout");
     $vlayout->addWidget( xpos );
     $vlayout->addWidget( ypos );
     $vlayout->addWidget( zpos );
 
     # Put the GL widget inside the frame
-    my $flayout = Qt::HBoxLayout( frame, 2, 2, "flayout");
+    my $flayout = TQt::HBoxLayout( frame, 2, 2, "flayout");
     $flayout->addWidget( box, 1 );
 
     # Top level layout, puts the sliders to the left of the frame/GL widget
-    my $hlayout = Qt::HBoxLayout( this, 20, 20, "hlayout");
+    my $hlayout = TQt::HBoxLayout( this, 20, 20, "hlayout");
     $hlayout->setMenuBar( menu );
     $hlayout->addLayout( $vlayout );
     $hlayout->addWidget( frame, 1 );
@@ -75,10 +75,10 @@ sub NEW
 
 package main;
 
-use Qt;
+use TQt;
 use GLObjectWindow;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 
 my $w = GLObjectWindow;
 $w->resize(350,350);