vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 07:32:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

newt wrapper -- noch

Browse source 
Former-commit-id: 8d73a74432
This commit is contained in:
Norayr Chilingarian 2015-02-22 01:56:44 +04:00
parent 566b2dd4f7
commit ebfcd163aa
2 changed files with 23 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/test/newt/newt.Mod
View file

@ -67,6 +67,14 @@ BEGIN
newtResizeScreen(redraw); newtResizeScreen(redraw);
END ResizeScreen; END ResizeScreen;
PROCEDURE -newtRefresh()
"newtRefresh()";
PROCEDURE Refresh*();
BEGIN
newtRefresh();
END Refresh;
PROCEDURE -newtWaitForKey() PROCEDURE -newtWaitForKey()
"newtWaitForKey()"; "newtWaitForKey()";

16
src/test/newt/newttest.Mod
View file

@ -1,6 +1,6 @@
MODULE newttest; MODULE newttest;
IMPORT newt, oocIntStr; IMPORT newt, oocIntStr, Unix;
VAR i, j, k : newt.Int32; VAR i, j, k : newt.Int32;
str : ARRAY 32 OF CHAR; str : ARRAY 32 OF CHAR;
BEGIN BEGIN
@ -15,6 +15,20 @@ str := "x";
newt.DrawRootText(7, 9, "x"); newt.DrawRootText(7, 9, "x");
oocIntStr.IntToStr(j, str); oocIntStr.IntToStr(j, str);
newt.DrawRootText(9, 9, 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.WaitForKey();
newt.Delay(30); newt.Delay(30);
i := newt.Finished(); i := newt.Finished();