Select Code to Download

  
$parent->Entry( -validate=>'key',
                -validatecommand=>['entry_validation',$self],
...
  $self->set_changed unless ($args[4]== -1);#triggered on user interac
+tion only
  return 1; #allow changes
}