sub new
{
    my ($class) = @_;
    my $this = [];
    bless ($this, $class);
    
    $this->[PARENT] = undef;    
    $this->[PROGRESS] = 0;
    
    return $this;
}

##</code><code>##

sub new
{
    my ($class) = @_;
    my $this = {};
    bless ($this, $class);
    
    $this->{PARENT} = undef;    
    $this->{PROGRESS} = 0;
    
    return $this;
}