1 files changed, 2 insertions, 2 deletions
diff --git a/PerlTQt/tutorials/t5/t5.pl b/PerlTQt/tutorials/t5/t5.pl
index 9990c3e..146070c 100644
--- a/PerlTQt/tutorials/t5/t5.pl
+++ b/PerlTQt/tutorials/t5/t5.pl
@@ -12,7 +12,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 $lcd = TQt::LCDNumber(2, this, "lcd");
 
@@ -20,7 +20,7 @@ sub NEW {
     $slider->setRange(0, 99);
     $slider->setValue(0);
 
-    $lcd->connect($slider, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('display(int)'));
+    $lcd->connect($slider, TQ_SIGNAL('valueChanged(int)'), TQ_SLOT('display(int)'));
 }
 
 package main;