use switch;
switch ($selection) {
			case wxID_YES	  {$self->Wx::LogStatus ("You pressed:  \"Yes\" ")}
			case wxID_NO	  {$self->Wx::LogStatus ("You pressed:  \"No\" ")}
			case wxID_CANCEL  {$self->Wx::LogStatus ("You pressed:  \"Cancel\" ")}			
	}