use base qw(Wx::ProgressDialog);    

sub new {
    my $class  = shift;
    my $max    = shift || 10;
    my $vars   = (wxPD_CAN_ABORT| wxPD_APP_MODAL|wxPD_ELAPSED_TIME| wxPD_ESTIMATED_TIME| wxPD_REMAINING_TIME);
    my $this   = $class->SUPER::new("xp6 progres ($max)", "the progress ($max)", $max, undef, $vars);

    $this->Show(1);
    return $this;
}