my $input = $mw->EntryCheck(
  -textvariable => \$InputText,
  -pattern      => qr~\d~,
)->form;