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;