Adding ncurses refresh & some initialization code

diff --git a/src/ADPAR.PAS b/src/ADPAR.PAS
index bf4d65b02a1c5a7b9a0103ef2d5f853e000eb51f..7d0967b6f9900859c049993297ce0d868304048c 100644 (file)
--- a/src/ADPAR.PAS
+++ b/src/ADPAR.PAS
@@ -78,6 +78,14 @@ procedure init_windows;
   lang:=upcase(GetEnvironmentVariable('LANG'));  \r
   UTF8Scr:= (Pos('.UTF-8', lang) > 0) or (Pos('.UTF8', lang) > 0);\r
   { Check min req col & rows}\r
+  if nCols(stdscr) < 80 then begin\r
+   writeln('You must have 80 character columns');\r
+   Halt;\r
+  end;\r
+  if nRows(stdscr) < 25 then begin\r
+   writeln('You must have 25 character rows');\r
+   Halt;\r
+  end;\r
   {writeln(nCols(stdscr),nRows(stdscr));}\r
  end;\r
 \r
@@ -1305,8 +1313,11 @@ procedure Title;
   until keypressed;\r
   CFlag:=ReadKey;\r
 {$IFDEF UNIX}\r
-  nSetActiveWin(stdscr);\r
+  nStop;\r
   nDelWindow(win);\r
+  nSetActiveWin(stdscr);\r
+  clrscr;\r
+  nStart;\r
 {$ENDIF}\r
   if Color then textmode(C80)else textmode(BW80);\r
  end; { Title }\r
@@ -1326,6 +1337,9 @@ procedure Init1;
     if(CFlag<>^h)then Identity:=Identity+upcase(CFlag)\r
     else delete(Identity,length(Identity),2);\r
    gotoxy(1,11);Cn(' '+Identity+' ');\r
+{$IFDEF UNIX}\r
+   nRefresh(stdscr);\r
+{$ENDIF}\r
 {sound(50);delay(50);nosound;}\r
    for x:=1 to 50 do sounddelayed(50,1); nosound;\r
   until CFlag=chr(13);\r
@@ -1875,4 +1889,3 @@ procedure Say(What1,What2:Str29);
  begin SF; writeln('The ',What1,' is already ',What2,'.') end;\r
 \r
 {******************* END OF PARSER AND MISC. PROCEDURES *********************}\r
-\1a\r