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\" ")}			
	}