summaryrefslogtreecommitdiffstats
path: root/PerlTQt/tutorials/t11/CannonField.pm
diff options
context:
space:
mode:
authorMichele Calgaro <michele.calgaro@yahoo.it>2024-01-10 10:12:24 +0900
committerMichele Calgaro <michele.calgaro@yahoo.it>2024-01-11 09:56:53 +0900
commit947bc2dba5274c3a87dd0f3dc29972b5a7fde80f (patch)
tree8dece4fa4ebb9fa43f8660095f8084ea580ee2eb /PerlTQt/tutorials/t11/CannonField.pm
parentbb06ec358695c7621148fd6cf0c2af94fd29f799 (diff)
downloadlibtqt-perl-947bc2db.tar.gz
libtqt-perl-947bc2db.zip
Use new TQ_METHOD, TQ_SIGNAL, TQ_SLOT defines
Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it> (cherry picked from commit 301b5380792b7a368488aa485d3bdb3df81e0808)
Diffstat (limited to 'PerlTQt/tutorials/t11/CannonField.pm')
-rw-r--r--PerlTQt/tutorials/t11/CannonField.pm2
1 files changed, 1 insertions, 1 deletions
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)));