!7

delegate AbstractParser, ParseResult, DefaultParseResult
  to org.fife.ui.rsyntaxtextarea.parser.

sclass MyParser extends AbstractParser {
  @Override
  public ParseResult parse(RSyntaxDocument doc, String style) {
    ret new DefaultParseResult(this);
  }
}

p-exp {
  RSyntaxTextAreaWithSearch ta = rSyntaxTextAreaWithSearch();
  ta.menuLessOperation();
  new MyParser parser;
  ta.textArea().addParser(parser);
  showFrame(ta);
}