$entry->configure(-validatecommand => [
        \&check, Tkx::Ev('%P'), $entry,
    ]);