Большое спасибо, вроде удалось. Я сделал константуclearSeqOnSave = FALSE;если кому-то нравилось старое поведение, то можно тут установить TRUE

Пришлось добавить ещё w.seq.SetDirty(TRUE) в Undo и Redo

## Код:
```
PROCEDURE Undo*;
      VAR w: Windows.Window;
   BEGIN
      w := Windows.dir.Focus(Controllers.frontPath);
      IF w # NIL THEN w.seq.Undo; w.seq.SetDirty(TRUE) END
   END Undo;

   PROCEDURE Redo*;
      VAR w: Windows.Window;
   BEGIN
      w := Windows.dir.Focus(Controllers.frontPath);
      IF w # NIL THEN w.seq.Redo; w.seq.SetDirty(TRUE) END
   END Redo;
```
