From: Jason Self Date: Fri, 21 Nov 2014 15:25:23 +0000 (-0800) Subject: Check for mandatory terminal window size and fail if it's not X-Git-Url: https://jxself.org/git/?p=supernova.git;a=commitdiff_plain;h=refs%2Fheads%2Fmaster Check for mandatory terminal window size and fail if it's not --- diff --git a/src/ADPAR.PAS b/src/ADPAR.PAS index 7d0967b..00f8b56 100644 --- a/src/ADPAR.PAS +++ b/src/ADPAR.PAS @@ -78,11 +78,11 @@ procedure init_windows; lang:=upcase(GetEnvironmentVariable('LANG')); UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0); { Check min req col & rows} - if nCols(stdscr) < 80 then begin + if nCols(stdscr) <> 80 then begin writeln('You must have 80 character columns'); Halt; end; - if nRows(stdscr) < 25 then begin + if nRows(stdscr) <> 25 then begin writeln('You must have 25 character rows'); Halt; end;