vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +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

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

@ -1,46 +1,50 @@
MODULE newttest;
IMPORT newt, oocIntStr, Unix;
VAR i, j, k : newt.Int32;
str : ARRAY 32 OF CHAR;
ch : CHAR;
fo, co : newt.Component;
IMPORT newt, oocIntStr, Platform;
CONST delayTime = 1000;
VAR
i, j, k : newt.Int32;
str : ARRAY 32 OF CHAR;
ch : CHAR;
fo, co : newt.Component;
BEGIN
i := newt.Init();
newt.Cls();
str := "hello world!";
newt.DrawRootText(5, 7, str);
newt.GetScreenSize(i, j);
oocIntStr.IntToStr(i, str);
newt.DrawRootText(5, 9, str);
str := "x";
newt.DrawRootText(7, 9, "x");
oocIntStr.IntToStr(j, str);
newt.DrawRootText(9, 9, str);
i := newt.Init();
newt.Cls();
str := "hello world!";
newt.DrawRootText(5, 7, str);
newt.GetScreenSize(i, j);
oocIntStr.IntToStr(i, str);
newt.DrawRootText(5, 9, str);
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("");
newt.Refresh();
Platform.Delay(delayTime);
newt.PushHelpLine("A help line");
newt.Refresh();
i := Unix.Sleep(1);
newt.PushHelpLine("A help line");
newt.Refresh();
Platform.Delay(delayTime);
newt.PopHelpLine();
newt.Refresh();
i := Unix.Sleep(1);
newt.PopHelpLine();
newt.Refresh();
Platform.Delay(delayTime);
REPEAT
ch := newt.GetKey();
str[0] := ch;
str[1] := 0X;
newt.DrawRootText(5, 5, str);
newt.PushHelpLine(str);
newt.Refresh;
UNTIL ch = ' ';
REPEAT
ch := newt.GetKey();
str[0] := ch;
str[1] := 0X;
newt.DrawRootText(5, 5, str);
newt.PushHelpLine(str);
newt.Refresh;
UNTIL ch = ' ';
(*
newt.WaitForKey();
newt.Delay(30);*)
i := newt.Finished();
(*
newt.WaitForKey();
newt.Delay(30);*)
i := newt.Finished();
END newttest.

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

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