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();