Select Code to Download

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

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

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=SCAL
+AR(0x2aef33c)') called at Set item font post.pl line 78
   eval {...} called at Set item font post.pl line 78