!7

sclass ShowErrorLine extends DynTextArea {
  void update {
    O mod = dm_moduleOfType("#1016638/LineAtMouse");
    S text = castCall(mod, 'getText);
    if (empty(text)) ret;
    L<S> l = regexpFirstGroups([[\(m(\d+):(\d+)\)]], text);
    if (empty(l)) ret;
    S progID = fsI(first(l)), line = second(l);
    
    setModuleName("Error line " + progID + " : " + line);
    
    S text = getServerTranspiledWithoutLibs(progID);
    textAreaGoToRow(textArea, line);
  });
}