Wx::Event::EVT_CHAR(  $entry, sub{warn"@_"; $_[1]->Skip; });