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