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

my $window = Wx::Frame->new(undef, -1, "Colored Statusbar Text");
my $panel  = Wx::Panel->new($window);
my $button = Wx::Button->new(
		$panel,
		-1,
		"Toggle",			
);

Wx::Event::EVT_BUTTON( 
							$button, 
							-1, 
							\&button_click,
);

my $status = $window->CreateStatusBar(2, wxSB_RAISED);
my $warning = Wx::StaticText->new($status, -1, "Input Error",,[3,8]);
$warning->SetForegroundColour(wxRED);

$window->Show;
my $hit =1;

Wx::SimpleApp->new->MainLoop;

sub button_click {

	$hit++; 	
	

	if ($hit % 2) {
		$status->SetStatusText("", 0);
		$warning->Show;
	} 
	else {
	    $warning->Hide;
		$status->SetStatusText("OK", 0);
	}	
}