Select Code to Download

#! /usr/bin/perl
use warnings;
...

    return 1;
} # ValidateCmd

Perl-Version: 5.008003
Tk-Version: 800.024
...
Error: Too big: 4
ARGS: [4] [] [3] [-1] [-1]
Error: Too big: 4

Perl-Version: 5.008008
Tk-Version: 804.027
...
ARGS: [3] [] [2] [-1] [6]
ARGS: [4] [] [3] [-1] [6]
Error: Too big: 4

The validateCommand will turn itself off by setting validate to none
when an error occurs, for example when the validateCommand or
invalidCommand encounters an error in its script while evaluating, or
validateCommand does not return a valid boolean value.