given ($selection) {
when (wxID_YES()) {
print qq[You pressed: "Yes"\n];
}
when (wxID_NO()) {
print qq[You pressed: "No"\n];
}
when (wxID_CANCEL()) {
print qq[You pressed: "Cancel"\n];
}
}
####
#! perl
use v5.14.1;
use strict;
use warnings;
use Wx qw(wxID_YES wxID_NO wxID_CANCEL);
sub ZERO { 0 }
sub ONE { 1 }
{
my $selection = wxID_NO;
print "selection is $selection\n";
print 'wxID_YES is ', wxID_YES(), "\n";
given ($selection)
{
when (ZERO) { print qq[Zero\n] }
when (ONE) { print qq[One\n] }
when (wxID_YES) { print qq[You pressed: "Yes"\n] }
when (wxID_NO) { print qq[You pressed: "No"\n] }
when (wxID_CANCEL) { print qq[You pressed: "Cancel"\n] }
default { print qq[Invalid selection\n] }
}
}
##
##
12:50 >perl 300_SoPW.pl
selection is 5104
wxID_YES is 5103
One