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

newt binding updated -- noch

Browse source 
Former-commit-id: 08668e2495
This commit is contained in:
Norayr Chilingarian 2015-02-21 14:23:26 +04:00
parent 3f82522841
commit a93d9cb261
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