1 files changed, 18 insertions, 18 deletions

diff --git a/PerlQt/tutorials/t12/t12.pl b/PerlQt/tutorials/t12/t12.pl
index 87c50be..e8072ef 100644
--- a/PerlQt/tutorials/t12/t12.pl
+++ b/PerlQt/tutorials/t12/t12.pl
@@ -4,8 +4,8 @@ use blib;
 
 package MyWidget;
 use strict;
-use Qt;
-use Qt::isa qw(Qt::Widget);
+use TQt;
+use TQt::isa qw(TQt::Widget);
 
 use LCDRange;
 use CannonField;
@@ -13,10 +13,10 @@ use CannonField;
 sub NEW {
     shift->SUPER::NEW(@_);
 
-    my $quit = Qt::PushButton("&Quit", this, "quit");
-    $quit->setFont(Qt::Font("Times", 18, &Qt::Font::Bold));
+    my $quit = TQt::PushButton("&Quit", this, "quit");
+    $quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-    Qt::app->connect($quit, SIGNAL('clicked()'), SLOT('quit()'));
+    TQt::app->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()'));
 
     my $angle = LCDRange("ANGLE", this, "angle");
     $angle->setRange(5, 70);
@@ -26,28 +26,28 @@ sub NEW {
 
     my $cannonField = CannonField(this, "cannonField");
 
-    $cannonField->connect($angle, SIGNAL('valueChanged(int)'), SLOT('setAngle(int)'));
-    $angle->connect($cannonField, SIGNAL('angleChanged(int)'), SLOT('setValue(int)'));
+    $cannonField->connect($angle, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('setAngle(int)'));
+    $angle->connect($cannonField, TQT_SIGNAL('angleChanged(int)'), TQT_SLOT('setValue(int)'));
 
-    $cannonField->connect($force, SIGNAL('valueChanged(int)'), SLOT('setForce(int)'));
-    $force->connect($cannonField, SIGNAL('forceChanged(int)'), SLOT('setValue(int)'));
+    $cannonField->connect($force, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('setForce(int)'));
+    $force->connect($cannonField, TQT_SIGNAL('forceChanged(int)'), TQT_SLOT('setValue(int)'));
 
-    my $shoot = Qt::PushButton('&Shoot', this, "shoot");
-    $shoot->setFont(Qt::Font("Times", 18, &Qt::Font::Bold));
+    my $shoot = TQt::PushButton('&Shoot', this, "shoot");
+    $shoot->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-    $cannonField->connect($shoot, SIGNAL('clicked()'), SLOT('shoot()'));
+    $cannonField->connect($shoot, TQT_SIGNAL('clicked()'), TQT_SLOT('shoot()'));
 
-    my $grid = Qt::GridLayout(this, 2, 2, 10);
+    my $grid = TQt::GridLayout(this, 2, 2, 10);
     $grid->addWidget($quit, 0, 0);
     $grid->addWidget($cannonField, 1, 1);
     $grid->setColStretch(1, 10);
 
-    my $leftBox = Qt::VBoxLayout;
+    my $leftBox = TQt::VBoxLayout;
     $grid->addLayout($leftBox, 1, 0);
     $leftBox->addWidget($angle);
     $leftBox->addWidget($force);
 
-    my $topBox = Qt::HBoxLayout;
+    my $topBox = TQt::HBoxLayout;
     $grid->addLayout($topBox, 0, 1);
     $topBox->addWidget($shoot);
     $topBox->addStretch(1);
@@ -58,11 +58,11 @@ sub NEW {
 }
 
 package main;
-use Qt;
+use TQt;
 use MyWidget;
 
-Qt::Application::setColorSpec(&Qt::Application::CustomColor);
-my $a = Qt::Application(\@ARGV);
+TQt::Application::setColorSpec(&TQt::Application::CustomColor);
+my $a = TQt::Application(\@ARGV);
 
 my $w = MyWidget;
 $w->setGeometry(100, 100, 500, 355);