$parent->Entry( -validate=>'key',
                -validatecommand=>['entry_validation',$self],
           );
#### snip
sub entry_validation{
  my $self = shift();
  my @args = @_;
  $self->set_changed unless ($args[4]== -1);#triggered on user interaction only
  return 1; #allow changes
}