synchronized with original

BlackBox/Po/Files/System.Mod.txt

@@ -1,4 +1,4 @@
-MODULE System; (*JG 3.10.90 / NW 12.10.93 / NW 28.11.2015*)
+MODULE System; (*JG 3.10.90 / NW 12.10.93 / NW 20.6.2016*)
   IMPORT SYSTEM, Kernel, FileDir, Files, Modules,
     Input, Display, Viewers, Fonts, Texts, Oberon, MenuViewers, TextFrames;
 
@@ -86,11 +86,11 @@ MODULE System; (*JG 3.10.90 / NW 12.10.93 / NW 28.11.2015*)
     END
   END Open;
 
-  PROCEDURE Clear*;  (*used to clear Log*)
+  PROCEDURE Clear*;  (*clear Log*)
     VAR T: Texts.Text; F: Display.Frame; buf: Texts.Buffer;
   BEGIN F := Oberon.Par.frame;
     IF (F # NIL) & (F.next IS TextFrames.Frame) & (F = Oberon.Par.vwr.dsc) THEN
-      T := F.next(TextFrames.Frame).text; Texts.Delete(T, 0, T.len, buf)
+      NEW(buf); Texts.OpenBuf(buf); T := F.next(TextFrames.Frame).text; Texts.Delete(T, 0, T.len, buf)
     END
   END Clear;
 

BlackBox/Po/Files/TextFrames.Mod.txt

@@ -1,4 +1,4 @@
-MODULE TextFrames; (*JG 8.10.90 / NW 10.5.2013 / 16.11.2015*)
+MODULE TextFrames; (*JG 8.10.90 / NW 10.5.2013 / 1.6.20165*)
   IMPORT Modules, Input, Display, Viewers, Fonts, Texts, Oberon, MenuViewers;
 
   CONST replace* = 0; insert* = 1; delete* = 2; unmark* = 3; (*message id*)
@@ -171,10 +171,10 @@ MODULE TextFrames; (*JG 8.10.90 / NW 10.5.2013 / 16.11.2015*)
     IF F.left >= barW THEN
       Display.ReplConst(Display.white, F.X + barW - 1, newY, 1, F.Y - newY, Display.invert)
     END;
-    F.H := F.H + F.Y - newY; F.Y := newY;
+    botY := F.Y + F.bot + dsr; F.H := F.H + F.Y - newY; F.Y := newY;
     IF F.trailer.next = F.trailer THEN Validate(F.text, F.org) END;
     L := F.trailer; org := F.org; curY := F.Y + F.H - F.top - asr;
-    WHILE L.next # F.trailer DO
+    WHILE (L.next # F.trailer) & (curY >= botY) DO
       L := L.next; org := org + L.len; curY := curY - lsp
     END;
     botY := F.Y + F.bot + dsr;