given ($selection) {
  when ([wxID_YES])    { $self->Wx::LogStatus('You pressed: "Yes"'   ) }
  when ([wxID_NO])     { $self->Wx::LogStatus('You pressed: "No"'    ) }
  when ([wxID_CANCEL]) { $self->Wx::LogStatus('You pressed: "Cancel"') }
}