view release on metacpan or  search on metacpan

lib/ActivityBar.pm  view on Meta::CPAN

package Tk::ActivityBar;

use vars qw($VERSION);
$VERSION = '0.01';

use strict;

use base qw(Tk::Derived Tk::ProgressBar);
Construct Tk::Widget 'ActivityBar';


### OVERRIDING FUNCTIONS

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

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