Initial TQt conversion

1 files changed, 3 insertions, 3 deletions

diff --git a/PerlQt/examples/aclock/aclock.pl b/PerlQt/examples/aclock/aclock.pl
index ff59ec1..b4ae659 100644
--- a/PerlQt/examples/aclock/aclock.pl
+++ b/PerlQt/examples/aclock/aclock.pl
@@ -1,13 +1,13 @@
 #!/usr/bin/perl -w
 use strict;
-use Qt;
+use TQt;
 use AnalogClock;
 
-my $a = Qt::Application(\@ARGV);
+my $a = TQt::Application(\@ARGV);
 my $clock = AnalogClock;
 $clock->setAutoMask(1) if @ARGV and $ARGV[0] eq '-transparent';
 $clock->resize(100, 100);
 $a->setMainWidget($clock);
-$clock->setCaption("PerlQt example - Analog Clock");
+$clock->setCaption("PerlTQt example - Analog Clock");
 $clock->show;
 exit $a->exec;