view release on metacpan or  search on metacpan

PPresenter/tkTimerLabel.pm  view on Meta::CPAN

# Copyright (C) 2000-2002, Free Software Foundation FSF.

package PPresenter::tkTimerLabel;

use strict;
use Tk::Derived;
use Tk::Label;
use base qw(Tk::Derived Tk::Label);

Construct Tk::Widget 'TimerLabel';

sub Populate
{   my ($w, $args) = @_;

    $w->SUPER::Populate($args);

    $w->ConfigSpecs
    ( -maxValue   => [ qw/PASSIVE maxValue MaxValue/,       300 ]