!7

delegate AbstractParser, ParseResult, DefaultParseResult,

  DefaultParserNotice

  to org.fife.ui.rsyntaxtextarea.parser.

import org.fife.ui.rsyntaxtextarea.RSyntaxDocument;

sclass MyParser extends AbstractParser {

  @Override

  public ParseResult parse(RSyntaxDocument doc, String style) ctex {

    print("Parsing");

    var result = new DefaultParseResult(this);

    S text = doc.getText(0, doc.getLength());

    print(+text);

    S firstLine = firstLine(text);

    if (l(firstLine) > 1)

      result.addNotice(new DefaultParserNotice(this, "What?", 0, 0, l(firstLine)-1));

    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);

}