[Oberon] SystemV - Viewer Scroll

[Tomas Kral]

On Tue, 19 Mar 2019 17:27:28 +0100
Joerg <joerg.straube at iaeth.ch> wrote:

> backward
> direction":
>   Files.Set(R, Files.Base(R), Files.Pos(R)-1);
>   Files.Read(R, ch);

Possibly this?

[1] roll back No# of lines (to be determined), with the above.

[2] setting org := Files.Pos(R);
 
[3] do usual forward display

  Texts.OpenReader(R, F.text, org); Texts.Read(R, nextCh);
  WHILE ~L.eot & (curY >= botY) DO
    NEW(L0); DisplayLine(F, L0, R, F.X + F.left, curY, 0);
    L.next := L0; L := L0; curY := curY - lsp
  END;

-- 
Tomas Kral <thomas.kral at email.cz>