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

brought sources in sync with current library state.

Browse source
This commit is contained in:
Norayr Chilingarian 2018-04-10 23:29:14 +04:00
parent c43644ffeb
commit 4bbacbaaa4
2 changed files with 43 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,11 @@
MODULE newttest; MODULE newttest;
IMPORT newt, oocIntStr, Unix; IMPORT newt, oocIntStr, Platform;
VAR i, j, k : newt.Int32;
CONST delayTime = 1000;
VAR
i, j, k : newt.Int32;
str : ARRAY 32 OF CHAR; str : ARRAY 32 OF CHAR;
ch : CHAR; ch : CHAR;
fo, co : newt.Component; fo, co : newt.Component;
@ -20,15 +24,15 @@ newt.DrawRootText(9, 9, str);
newt.PushHelpLine(""); newt.PushHelpLine("");
newt.Refresh(); newt.Refresh();
i := Unix.Sleep(1); Platform.Delay(delayTime);
newt.PushHelpLine("A help line"); newt.PushHelpLine("A help line");
newt.Refresh(); newt.Refresh();
i := Unix.Sleep(1); Platform.Delay(delayTime);
newt.PopHelpLine(); newt.PopHelpLine();
newt.Refresh(); newt.Refresh();
i := Unix.Sleep(1); Platform.Delay(delayTime);
REPEAT REPEAT
ch := newt.GetKey(); ch := newt.GetKey();

4
src/test/newt/newttest2.Mod
View file

@ -1,6 +1,6 @@
MODULE newttest2; MODULE newttest2;
IMPORT newt, oocIntStr, Unix; IMPORT newt, oocIntStr;
VAR i, j, k : newt.Int32; VAR i, j, k : newt.Int32;
str : ARRAY 32 OF CHAR; str : ARRAY 32 OF CHAR;
form, b1, b2, comp: newt.Component; form, b1, b2, comp: newt.Component;
@ -20,7 +20,7 @@ newt.FormAddComponent(form, b1);
newt.FormAddComponent(form, b2); newt.FormAddComponent(form, b2);
comp := newt.RunForm(form); comp := newt.RunForm(form);
newt.WaitForKey(); newt.WaitForKey();
newt.Delay(30); newt.Delay(3000);
newt.FormDestroy(form); newt.FormDestroy(form);
i := newt.Finished(); i := newt.Finished();
END newttest2. END newttest2.