view release on metacpan or  search on metacpan

Tk/MonitorBar.pm  view on Meta::CPAN

package Tk::MonitorBar;

use Tk;
use Tk::ProgressBar;
use Carp;
use strict;

use base qw(Tk::Derived Tk::ProgressBar);

Construct Tk::Widget 'MonitorBar';

sub _arrange {
    my $c = shift;

    my $checker = Tk::Exists($c);

    unless ($checker)
    {