!7

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

sclass MyParser extends AbstractParser {
  @Override
  public ParseResult parse(RSyntaxDocument doc, String style) {
    print("Parsing");
    var result = new DefaultParseResult(this);
    print(+doc);
    //result.addNotice(new DefaultParserNotice(this, "What?", line, offset, length));
    ret result;
  }
}

p-exp {
  RSyntaxTextAreaWithSearch ta = rSyntaxTextAreaWithSearch();
  ta.menuLessOperation();
  new MyParser parser;
  ta.textArea().addParser(parser);
  
  // You can also call ta.textArea().forceReparsing(parser);
  
  showFrame(ta);
}