my $minEntry = $right->Entry(
  -text                    => '0',
  -width                   => 3,
  -validate                => 'key',
  -validatecommand         => sub {
    $proposedtext = shift;
    length($proposedtext) <= 1;
},
##  -invalidcommand       => sub {$_[0] = $_[2] },
)->pack(@pl);