sub OnBold {
   my $this = shift;
   my $item = $this->GetItem(1);
   my $f = Wx::Font->new(12, -1, wxNORMAL, wxBOLD, 0, 'times new roman');
   say "In OnBold, \$this= $this, \$item = $item, \$f= $f";
   $item->SetFont($f);
   $this->SetItem($item);
} #1	end sub OnBold