Initial TQt conversion

1 files changed, 6 insertions, 6 deletions

diff --git a/PerlQt/examples/dclock/DigitalClock.pm b/PerlQt/examples/dclock/DigitalClock.pm
index 4611272..2d25428 100644
--- a/PerlQt/examples/dclock/DigitalClock.pm
+++ b/PerlQt/examples/dclock/DigitalClock.pm
@@ -1,11 +1,11 @@
 package DigitalClock;
 use strict;
-use Qt;
-use Qt::isa qw(Qt::LCDNumber);
-use Qt::slots
+use TQt;
+use TQt::isa qw(TQt::LCDNumber);
+use TQt::slots
 	stopDate => [],
 	showTime => [];
-use Qt::attributes qw(
+use TQt::attributes qw(
 	showingColon
 	normalTimer
 	showDateTimer
@@ -56,7 +56,7 @@ sub mousePressEvent {
 
 sub showDate {
     return if showDateTimer != -1;		# already showing date
-    my $date = Qt::Date::currentDate();
+    my $date = TQt::Date::currentDate();
     my $s = sprintf("%2d %2d", $date->month, $date->day);
     display($s);				# sets the LCD number/text
     showDateTimer = startTimer(2000);		# keep this state for 2 secs
@@ -78,7 +78,7 @@ sub stopDate {
 
 sub showTime {
     showingColon = !showingColon;
-    my $s = substr(Qt::Time::currentTime()->toString, 0, 5);
+    my $s = substr(TQt::Time::currentTime()->toString, 0, 5);
     $s =~ s/^0/ /;
     $s =~ s/:/ / unless showingColon;
     display($s);