added oocRandomNumbers, updated newt wrapper with GetKey function. -- noch

This commit is contained in:
Norayr Chilingarian 2015-03-12 00:24:11 +04:00
parent 0aecdbd935
commit ab5d3f734e
14 changed files with 108 additions and 6 deletions

View file

@ -98,6 +98,16 @@ BEGIN
newtWaitForKey
END WaitForKey;
PROCEDURE -newtGetKey(): Int32
"newtGetKey()";
PROCEDURE GetKey*(): CHAR;
VAR i : Int32;
BEGIN
i:= newtGetKey();
RETURN CHR(SHORT(i));
END GetKey;
PROCEDURE -newtClearKeyBuffer()
"newtClearKeyBuffer()";