diff options
Diffstat (limited to 'PerlQt/examples/dclock')
| -rw-r--r-- | PerlQt/examples/dclock/DigitalClock.pm | 12 | ||||
| -rw-r--r-- | PerlQt/examples/dclock/dclock.pl | 6 |
2 files changed, 9 insertions, 9 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); diff --git a/PerlQt/examples/dclock/dclock.pl b/PerlQt/examples/dclock/dclock.pl index f5820fd..57c02bd 100644 --- a/PerlQt/examples/dclock/dclock.pl +++ b/PerlQt/examples/dclock/dclock.pl @@ -1,12 +1,12 @@ #!/usr/bin/perl -w use strict; -use Qt; +use TQt; use DigitalClock; -my $a = Qt::Application(\@ARGV); +my $a = TQt::Application(\@ARGV); my $clock = DigitalClock; $clock->resize(170, 80); $a->setMainWidget($clock); -$clock->setCaption("PerlQt Example - Digital Clock"); +$clock->setCaption("PerlTQt Example - Digital Clock"); $clock->show; exit $a->exec; |