EVT_BUTTON ($self,  $btnBold, sub { $self->OnBold });
EVT_BUTTON ($self, $btnRed, sub { $self->OnRed });

##</code><code>##

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

##</code><code>##

Can't locate object method "GetItemFont" via package "Wx::ListCtrl" at Set item font post.pl line 59
   MyFrame::OnBold('MyFrame=HASH(0x2662734)') called at Set item font post.pl line 31
   MyFrame::__ANON__('MyFrame=HASH(0x2662734)', 'Wx::CommandEvent=SCALAR(0x2aef33c)') called at Set item font post.pl line 78
   eval {...} called at Set item font post.pl line 78