[Oberon] SystemV - Viewer Scroll

Joerg joerg.straube at iaeth.ch
Tue Mar 19 17:27:28 CET 2019


With the following command you can read "one character in backward
  Files.Set(R, Files.Base(R), Files.Pos(R)-1);
  Files.Read(R, ch);


-----Original Message-----
From: Oberon <oberon-bounces at lists.inf.ethz.ch> On Behalf Of Tomas Kral
Sent: Tuesday, March 19, 2019 5:07 PM
To: oberon at lists.inf.ethz.ch
Subject: Re: [Oberon] SystemV - Viewer Scroll

On Tue, 19 Mar 2019 13:23:08 +0100
Joerg <joerg.straube at iaeth.ch> wrote:

> Forward scrolling:

Taken from `Show' proc, this is forward reading in single chars from `Texts'

  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

> Backward scrolling:
Backward reading by single a char does not seem possible, or does it?

Tomas Kral <thomas.kral at email.cz>
Oberon at lists.inf.ethz.ch mailing list for ETH Oberon and related systems

More information about the Oberon mailing list