Select Code to Download

sub is_arrayref (_) { ref(shift) eq 'ARRAY' }

...
  when ([wxID_NO])     { $self->Wx::LogStatus('You pressed: "No"'    )
+ }
  when ([wxID_CANCEL]) { $self->Wx::LogStatus('You pressed: "Cancel"')
+ }
}