Help for this page

Select Code to Download


  1. or download this
    given ($selection) {
        when (wxID_YES()) {
    ...
            print qq[You pressed: "Cancel"\n];
        }
    }
    
  2. or download this
    #! perl
    use v5.14.1;
    ...
            default            { print qq[Invalid selection\n]     }
        }
    }
    
  3. or download this
    12:50 >perl 300_SoPW.pl
    selection is 5104
    wxID_YES is 5103
    One