Модули берутся из активного text-а вместо DevCommanders.par.text. Это чем-то обосновано, или просто небрежность реализации?
Код:
PROCEDURE UnloadList(beg, end: INTEGER; c: TextControllers.Controller);...
PROCEDURE UnloadThis*;
VAR p: DevCommanders.Par; beg, end: INTEGER; c: TextControllers.Controller;
BEGIN
p := DevCommanders.par;
IF p # NIL THEN
DevCommanders.par := NIL;
beg := p.beg; end := p.end;
-----> c := TextControllers.Focus();
IF c # NIL THEN UnloadList(beg, end, c) END
ELSE Dialog.ShowMsg("#Dev:NoTextViewFound")
END
END UnloadThis;