Select Code to Download

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

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

given ($selection) {
            when ($_ == wxID_YES)      {$self->Wx::LogStatus ("You pre
+ssed:  \"Yes\" ")}
            when ($_ == wxID_NO)      {$self->Wx::LogStatus ("You pres
+sed:  \"No\" ")}
            when ($_ == wxID_CANCEL)  {$self->Wx::LogStatus ("You pres
+sed:  \"Cancel\" ")}            
    }

my $yes = wxID_YES;
when ($yes)   {....}