/usr/local/CPAN/TiVo-HME/time.pm

• package time
  • init
  • handle_event
• EOF

package time;

use 5.008;
use strict;
use warnings;

use TiVo::HME::Application;

our @ISA = qw(TiVo::HME::Application);

our $VERSION = '1.0';

sub init {
	my($self, $context) = @_;

    my $root = $self->get_root_view;
    $root->visible(1);

    $root->set_resource($T_RESOURCE->color(0xff, 0xff, 0xff, 0xff));

    $self->{time}->[0] = $T_VIEW->new(
        x => 0, y => 0, width => $root->width, height => 280,
        visible => 1)->add;

    $self->{time}->[1] = $T_VIEW->new(
        x => 0, y => 0, width => $root->width, height => 280,
        visible => 1)->add;

    my $anim = $T_RESOURCE->animation(750);
    my $font = $T_RESOURCE->font('default', 46, $T_CONST->FONT_BOLD);
    my $black = $T_RESOURCE->color(0x0, 0x0, 0x0, 0xff);

    my $n = 0;
    while (1) {
        $self->{time}->[$n]->transparency(1, $anim);

        # switch views
        $n = ($n + 1) % 2;

        my $text = $T_RESOURCE->text($font, $black, scalar(localtime));

        $self->{time}->[$n]->set_resource($text, $T_CONST->HALIGN_CENTER);
        $self->{time}->[$n]->transparency(0, $anim);

        sleep(1);

    }
}

# listen for 'special' event
sub handle_event {
	my($self, $resource, $key_action, $key_code, $key_rawcode) = @_;

}

1;