Help for this page

Select Code to Download

Select or download this

my $minEntry = $right->Entry(
  -text                    => '0',
...
},
##  -invalidcommand       => sub {$_[0] = $_[2] },
)->pack(@pl);