Select Code to Download

my $status = Wx::StatusBar->new($parent,wxSB_RAISED);
$status->SetForegroundColour(wxRED);
my $warning = Wx::StaticText->new ($status, wxID_ANY,"Input Error!");

$warning->Destroy();
$status->SetStatusText("OK",0);

use strict; use warnings;
use Wx ':everything';
...
}

use strict; use warnings;
use Wx ':everything';
...
    }    
}