/usr/local/CPAN/Qt/DigitalClock.pm

• package DigitalClock
  • NEW
  • showTime
• EOF

package DigitalClock;

use strict;
use warnings;

use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::LCDNumber );
use QtCore4::slots
    showTime => [];

# [0]

# [0]
sub NEW {
    my ( $class, $parent ) = @_;
    $class->SUPER::NEW( $parent );
    this->setSegmentStyle(Qt::LCDNumber::Filled());

    my $timer = Qt::Timer(this);
    this->connect($timer, SIGNAL 'timeout()', this, SLOT 'showTime()');
    $timer->start(1000);

    this->showTime();

    this->setWindowTitle(this->tr('Digital Clock'));
    this->resize(150, 60);
}
# [0]

# [1]
sub showTime {
# [1] //! [2]
    my $time = Qt::Time::currentTime();
    my $text;
    if (($time->second() % 2) == 0) {
        $text = $time->toString('hh mm');
    }
    else {
        $text = $time->toString('hh:mm');
    }
    this->display($text);
}
# [2]

1;