Initial TQt conversion

1 files changed, 11 insertions, 11 deletions

diff --git a/PerlQt/tutorials/t14/LCDRange.pm b/PerlQt/tutorials/t14/LCDRange.pm
index b08827e..1647e85 100644
--- a/PerlQt/tutorials/t14/LCDRange.pm
+++ b/PerlQt/tutorials/t14/LCDRange.pm
@@ -1,14 +1,14 @@
 package LCDRange;
 use strict;
-use Qt;
-use Qt::isa qw(Qt::Widget);
-use Qt::slots 
+use TQt;
+use TQt::isa qw(TQt::Widget);
+use TQt::slots 
 	setValue => ['int'],
 	setRange => ['int', 'int'],
 	setText => ['const char*'];
-use Qt::signals
+use TQt::signals
 	valueChanged => ['int'];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	slider
 	label
 );
@@ -25,21 +25,21 @@ sub NEW {
 
 
 sub init {
-    my $lcd = Qt::LCDNumber(2, this, "lcd");
+    my $lcd = TQt::LCDNumber(2, this, "lcd");
 
-    slider = Qt::Slider(&Horizontal, this, "slider");
+    slider = TQt::Slider(&Horizontal, this, "slider");
     slider->setRange(0, 99);
     slider->setValue(0);
 
-    label = Qt::Label(" ", this, "label");
+    label = TQt::Label(" ", this, "label");
     label->setAlignment(&AlignCenter);
 
-    $lcd->connect(slider, SIGNAL('valueChanged(int)'), SLOT('display(int)'));
-    this->connect(slider, SIGNAL('valueChanged(int)'), SIGNAL('valueChanged(int)'));
+    $lcd->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SLOT('display(int)'));
+    this->connect(slider, TQT_SIGNAL('valueChanged(int)'), TQT_SIGNAL('valueChanged(int)'));
 
     setFocusProxy(slider);
 
-    my $l = Qt::VBoxLayout(this);
+    my $l = TQt::VBoxLayout(this);
     $l->addWidget($lcd, 1);
     $l->addWidget(slider);
     $l->addWidget(label);