Merge pull request #7 from Ripjetski6502/dev

bugfix for WClr height

Author: MADRAFi

src/a8defines.pas

@@ -14,7 +14,7 @@ interface
 
 const
     // Version
-    LIB_VERSION = '1.2.0';
+    LIB_VERSION = '1.2.1';
 
     // Window Record and Memory Alloc
     WRECSZ = 10;

src/a8defwin.pas

@@ -27,7 +27,7 @@     td_wnpos = record
         vX, vY: Byte;
     end;
 
-    TStringArray = array[0..0] of string;
+    TStringArray = array[0..0] of String[40];
 
 implementation
 

src/a8libmenu.pas

@@ -132,7 +132,7 @@ function WMenu(bN, x, y, bO, bI, bS, bC: Byte; pS: TStringArray): Byte;
         Move(@tmpStr[1], @cL[1], Length(cL));
 
         if bO = GHORZ then
-            WPrint(bN, pos + bL - 1, y,  WOFF, cL)
+            WPrint(bN, pos + bL - 1, y, WOFF, cL)
         else
             WPrint(bN, x, y + bL - 1, WOFF, cL);
     end;

src/a8libwin.pas

@@ -35,8 +35,8 @@ function WClose(bN: Byte): Byte;
 function WStat(bN: Byte): Byte;
 function WPos(bN, x, y: Byte): Byte;
 function WPut(bN: Byte; x: Char): Byte;
-function WPrint(bN, x, y, bI: Byte; pS: string): Byte;
-function WOrn(bN, bT, bL: Byte; pS: string): Byte;
+function WPrint(bN, x, y, bI: Byte; pS: string[38]): Byte;
+function WOrn(bN, bT, bL: Byte; pS: string[38]): Byte;
 function WDiv(bN, y, bD: Byte): Byte;
 function WClr(bN: Byte): Byte;
 
@@ -364,7 +364,7 @@ function WPut(bN: Byte; x: Char): Byte;
 //           >100 on error
 // Notes...: Test will automatically be inverse if window is inverse.
 // --------------------------------------------------
-function WPrint(bN, x, y, bI: Byte; pS: string): Byte;
+function WPrint(bN, x, y, bI: Byte; pS: string[38]): Byte;
 var
     bL, tmp: Byte;
     cS: Word;
@@ -440,7 +440,7 @@ function WPrint(bN, x, y, bI: Byte; pS: string): Byte;
 //           >100 on error
 // Notes...: Max 36 for frame and bookends
 // --------------------------------------------------
-function WOrn(bN, bT, bL: Byte; pS: string): Byte;
+function WOrn(bN, bT, bL: Byte; pS: string[38]): Byte;
 var
     bS: Byte;
     cS: Word;