$entry->configure(-validatecommand => [ \&check, Tkx::Ev('%P'), $entry, ]); [download]
In reply to Re: Tk vs Tkx for -validatecommand by zentara in thread Tk vs Tkx for -validatecommand by shortyfw06