$e = $mw->Entry(-textvariable => \$var,
   -validate => 'key',
   )->pack;
$e->configure( -validatecommand => sub{validate($e, @_)},);