Validator for TextCtrl

[Erik Colson]

Ehlo,

I've used Wx::Perl::TextValidator to limit accepted keypresses in
TextCtrl. This has been enough for controls till now but as I'm moving
to a broader user base I need to filter with more intelligence.

Now I need to check that the user enters data to correspond to this
regex: (M|O|(NC?)|(\d+)). So at every moment the string in the control
must match this regex. What would be the recommended way to code this ?
Can this be done with a Validator ?

Following is working by intercepting the EVT_TEXT event on the control:
(Ugly code, but working and explaining what I wish for...)

  EVT_TEXT (
      $self->gridInStock, $control, sub {
          my ($self, $event) = @_ ;
          my $curValue = $control->GetValue() ;
          $curValue = uc($curValue) ;
          if ( $curValue =~ m/(M|O|(NC?)|(\d+))/ ) {
              $curValue = $1 ;
          } else {
              $curValue = "" ;
          } ;
          my $curPos = List::Util::max( $control->GetInsertionPoint(),
                                        length($curValue) ) ;
          $control->ChangeValue("$curValue") ;
          $control->SetInsertionPoint($curPos) ;
      })

Thanks for help!

-- 
erik colson
ecocode.net