From 4e997a9c6e25689dca65a2ec573a599699ef8170 Mon Sep 17 00:00:00 2001
From: Timothy Pearson <kb9vqf@pearsoncomputing.net>
Date: Sun, 1 Jan 2012 18:24:37 -0600
Subject: Initial TQt conversion

---
 PerlQt/examples/dclock/DigitalClock.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'PerlQt/examples/dclock/DigitalClock.pm')

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);
-- 
cgit v1.2.3