From 301b5380792b7a368488aa485d3bdb3df81e0808 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Wed, 10 Jan 2024 10:12:24 +0900
Subject: Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
---
 PerlTQt/tutorials/t11/CannonField.pm |  2 +-
 PerlTQt/tutorials/t11/LCDRange.pm    |  4 ++--
 PerlTQt/tutorials/t11/t11.pl         | 12 ++++++------
 3 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'PerlTQt/tutorials/t11')

diff --git a/PerlTQt/tutorials/t11/CannonField.pm b/PerlTQt/tutorials/t11/CannonField.pm
index 0806f66..a419bf4 100644
--- a/PerlTQt/tutorials/t11/CannonField.pm
+++ b/PerlTQt/tutorials/t11/CannonField.pm
@@ -31,7 +31,7 @@ sub NEW {
     f = 0;
     timerCount = 0;
     autoShootTimer = TQt::Timer(this, "movement handler");
-    this->connect(autoShootTimer, TQT_SIGNAL('timeout()'), TQT_SLOT('moveShot()'));
+    this->connect(autoShootTimer, TQ_SIGNAL('timeout()'), TQ_SLOT('moveShot()'));
     shoot_ang = 0;
     shoot_f = 0;
     setPalette(TQt::Palette(TQt::Color(250, 250, 200)));
diff --git a/PerlTQt/tutorials/t11/LCDRange.pm b/PerlTQt/tutorials/t11/LCDRange.pm
index ab63af0..dc2c465 100644
--- a/PerlTQt/tutorials/t11/LCDRange.pm
+++ b/PerlTQt/tutorials/t11/LCDRange.pm
@@ -19,8 +19,8 @@ sub NEW {
     slider = TQt::Slider(&Horizontal, this, "slider");
     slider->setRange(0, 99);
     slider->setValue(0);
-    $lcd->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('display(int)'));
-    this->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SIGNAL('valueChanged(int)'));
+    $lcd->connect(slider, TQ_SIGNAL('valueChanged(int)'), TQ_SLOT('display(int)'));
+    this->connect(slider, TQ_SIGNAL('valueChanged(int)'), TQ_SIGNAL('valueChanged(int)'));
 
     setFocusProxy(slider);
 }
diff --git a/PerlTQt/tutorials/t11/t11.pl b/PerlTQt/tutorials/t11/t11.pl
index d493b1e..5d75c60 100644
--- a/PerlTQt/tutorials/t11/t11.pl
+++ b/PerlTQt/tutorials/t11/t11.pl
@@ -16,7 +16,7 @@ sub NEW {
     my $quit = TQt::PushButton("&Quit", this, "quit");
     $quit->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-    TQt::app->connect($quit, TQT_SIGNAL('clicked()'), TQT_SLOT('quit()'));
+    TQt::app->connect($quit, TQ_SIGNAL('clicked()'), TQ_SLOT('quit()'));
 
     my $angle = LCDRange(this, "angle");
     $angle->setRange(5, 70);
@@ -26,16 +26,16 @@ sub NEW {
 
     my $cannonField = CannonField(this, "cannonField");
 
-    $cannonField->connect($angle, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('setAngle(int)'));
-    $angle->connect($cannonField, TQT_SIGNAL('angleChanged(int)'), TQT_SLOT('setValue(int)'));
+    $cannonField->connect($angle, TQ_SIGNAL('valueChanged(int)'), TQ_SLOT('setAngle(int)'));
+    $angle->connect($cannonField, TQ_SIGNAL('angleChanged(int)'), TQ_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)'));
+    $cannonField->connect($force, TQ_SIGNAL('valueChanged(int)'), TQ_SLOT('setForce(int)'));
+    $force->connect($cannonField, TQ_SIGNAL('forceChanged(int)'), TQ_SLOT('setValue(int)'));
 
     my $shoot = TQt::PushButton('&Shoot', this, "shoot");
     $shoot->setFont(TQt::Font("Times", 18, &TQt::Font::Bold));
 
-    $cannonField->connect($shoot, TQT_SIGNAL('clicked()'), TQT_SLOT('shoot()'));
+    $cannonField->connect($shoot, TQ_SIGNAL('clicked()'), TQ_SLOT('shoot()'));
 
     my $grid = TQt::GridLayout(this, 2, 2, 10);
     $grid->addWidget($quit, 0, 0);
-- 
cgit v1.2.3