#!/usr/bin/perl
use strict;
use warnings;
use Tk;

my $top = MainWindow->new();
my %entries;

for(1..4){
 $entries{$_}{'value'} ||= 0;
 $entries{$_}{'entry'} = $top->Entry(
     -textvariable => \$entries{$_}{'value'},
     -width        => 5,
     -validate     => 'key',
     -vcmd         => \&validate,
  )->pack;
}

MainLoop;

#have to make sure empty value has numeric context 
sub validate{
  my $val = shift;
  $val ||= 0;
  #get alphas and punctuation out 
  if( $val !~ /^\d+$/ ){ return 0 }
  if (($val >= 0) and ($val <= 100)) {return 1}
    else{ return 0 }
}
[download]

#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Regexp::Common qw/number/;

my $top = MainWindow->new();
$top->geometry('200x200');

my %entries;

for(1..4){
 $entries{$_}{'value'} ||= 0.0;
 $entries{$_}{'entry'} = $top->Entry(
     -textvariable => \$entries{$_}{'value'},
     -width        => 15,
     -validate     => 'key',
     -vcmd         => \&validate,
  )->pack;
}

MainLoop;

#have to make sure empty value has numeric context 
sub validate{
  my $val = shift;
  $val ||= 0.0;
  #get real numbers only 
  #this regex allows 2 decimal points....bad 
#  if( $val !~ /^[\d+\.]+$/ ){ return 0 } 
  if( $val !~  /^$RE{num}{real}$/ ) { return 0 }

  if (($val >= 0.0) and ($val <= 100.0)) {return 1}
    else{ return 0 }
}
[download]

Generally, there is a way to send arguments to Tk callbacks, for instance this example (from Mastering Tk):

foreach my $key ( qw/0 1 2 3 4 5 6 7 8 9/ ) {
    $mw->bind( "<Key-$key>" => [\&key, $key] );
    $mw->bind( "<KP_$key>"  => [\&key, $key] );
}
[download]

The problem is that the Tk::Entry validation callback defines 5 arguments: proposed value, characters being added or deleted, current value, index in the string, and the action type. I don't know how to send it *additional* arguments of my own.

I am also validating on 'focusout', not on 'key'. Once I have verified that the entry is ok, I want to save it into my object.

If I define a separate callback for each Tk::Entry on the GUI, I know which part of my object's hash to update.

My boss wants this finished "yesterday", so for now I'm going with separate callbacks. Voluminous and repetetive, yes, but it works. I will see if I can come up with a short code example to show my problem.

By the way, I tried validating on 'key' and discovered a different problem. If a value changes I want to enable the 'Save' item on my pulldown menu, and I couldn't get that to work.