From ebfcd163aa95e7184b43ca5cca759845af8a2113 Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Sun, 22 Feb 2015 01:56:44 +0400
Subject: [PATCH] newt wrapper -- noch

Former-commit-id: 8d73a744324aa4375722237828401d3330a8e931
---
 src/test/newt/newt.Mod     |  8 ++++++++
 src/test/newt/newttest.Mod | 16 +++++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/src/test/newt/newt.Mod b/src/test/newt/newt.Mod
index fb598a4c..cd3d95f1 100644
--- a/src/test/newt/newt.Mod
+++ b/src/test/newt/newt.Mod
@@ -67,6 +67,14 @@ BEGIN
    newtResizeScreen(redraw);
 END ResizeScreen;
 
+PROCEDURE -newtRefresh()
+   "newtRefresh()";
+
+PROCEDURE Refresh*();
+BEGIN
+   newtRefresh();
+END Refresh;
+
 PROCEDURE -newtWaitForKey()
    "newtWaitForKey()";
 
diff --git a/src/test/newt/newttest.Mod b/src/test/newt/newttest.Mod
index 73158bb3..c367b72b 100644
--- a/src/test/newt/newttest.Mod
+++ b/src/test/newt/newttest.Mod
@@ -1,6 +1,6 @@
 MODULE newttest;
 
-IMPORT newt, oocIntStr;
+IMPORT newt, oocIntStr, Unix;
 VAR i, j, k : newt.Int32;
 str : ARRAY 32 OF CHAR;
 BEGIN
@@ -15,6 +15,20 @@ str := "x";
 newt.DrawRootText(7, 9, "x");
 oocIntStr.IntToStr(j, str);
 newt.DrawRootText(9, 9, str);
+
+newt.PushHelpLine("");
+newt.Refresh();
+i := Unix.Sleep(1);
+
+newt.PushHelpLine("A help line");
+newt.Refresh();
+i := Unix.Sleep(1);
+
+newt.PopHelpLine();
+newt.Refresh();
+i := Unix.Sleep(1);
+
+
 newt.WaitForKey();
 newt.Delay(30);
 i := newt.Finished();