sub OnBold {
   my $this = shift;
   my $f = $this->{listControl}->GetItemFont(0);
   $f->SetWeight(wxBOLD);
   $this->SetItemFont(0, $f);
} #1	end sub OnBold
sub OnRed {
   my $this = shift;
   $this->{listControl}->SetItemTextColour(0, wxRED);
} #1	end sub OnRed