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

newt binding updated -- noch

Browse source
This commit is contained in:
Norayr Chilingarian 2015-02-21 14:23:26 +04:00
parent 034808deb8
commit 08668e2495
2 changed files with 45 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2,6 +2,36 @@ MODULE newt;
IMPORT SYSTEM;
CONST
NEWTvCOLORSETvROOT *= 2;
NEWTvCOLORSETvBORDER *= 3;
NEWTvCOLORSETvWINDOW*= 4;
NEWTvCOLORSETvSHADOW*= 5;
NEWTvCOLORSETvTITLE*= 6;
NEWTvCOLORSETvBUTTON*= 7;
NEWTvCOLORSETvACTBUTTON*= 8;
NEWTvCOLORSETvCHECKBOX*= 9;
NEWTvCOLORSETvACTCHECKBOX*= 10;
NEWTvCOLORSETvENTRY*= 11;
NEWTvCOLORSETvLABEL*= 12;
NEWTvCOLORSETvLISTBOX*= 13;
NEWTvCOLORSETvACTLISTBOX*= 14;
NEWTvCOLORSETvTEXTBOX*= 15;
NEWTvCOLORSETvACTTEXTBOX*= 16;
NEWTvCOLORSETvHELPLINE*= 17;
NEWTvCOLORSETvROOTTEXT*= 18;
NEWTvCOLORSETvEMPTYSCALE*= 19;
NEWTvCOLORSETvFULLSCALE*= 20;
NEWTvCOLORSETvDISENTRY*= 21;
NEWTvCOLORSETvCOMPACTBUTTON*= 22;
NEWTvCOLORSETvACTSELLISTBOX*= 23;
NEWTvCOLORSETvSELLISTBOX*= 24;
NEWTvARGvLAST*= -100000;
NEWTvARGvAPPEND*= -1;
TYPE Int32* = INTEGER;
Int64* = LONGINT;
@ -35,6 +65,12 @@ PROCEDURE -PushHelpLine*(VAR text: ARRAY OF CHAR)
PROCEDURE -PopHelpLine*()
"newtPopHelpLine()";
PROCEDURE -Bell*()
"newtBell()";
PROCEDURE -GetScreenSize*(VAR cols, rows: Int32)
"newtGetScreenSize(cols, rows)";
BEGIN

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

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