!7

sclass ShowErrorLine extends DynTextArea {
  transient L<S> lastOne;
  
  void start {
    dm_requireModule("#1016638/LineAtMouse");
    doEvery(1.0, r updateMe);
  }
  
  void update {
    O mod = dm_moduleOfType("#1016638/LineAtMouse");
    S text = castCall(mod, 'getText);
    if (empty(text)) ret;
    L<S> l = regexpFirstGroups([[\(m(\d+)\.java:(\d+)\)]], text);
    //print("Have groups: " + l);
    if (empty(l) || eq(lastOne, l)) ret;
    lastOne = l;
    S progID = fsI(first(l));
    int line = parseInt(second(l));
    
    setModuleName("Error line " + progID + " : " + line);
    
    setText(getServerTranspiledWithoutLibs(progID));
    textAreaGoToRow(textArea, line);
  }
}