projects
/
supernova.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d365459
)
Adding ncurses refresh & some initialization code
author
Jason Self
<j@jxself.org>
Thu, 20 Nov 2014 20:49:17 +0000
(12:49 -0800)
committer
Jason Self
<j@jxself.org>
Thu, 20 Nov 2014 20:49:17 +0000
(12:49 -0800)
src/ADPAR.PAS
patch
|
blob
|
history
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
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
{writeln(nCols(stdscr),nRows(stdscr));}
\r
end;
\r
\r
@@
-1305,8
+1313,11
@@
procedure Title;
until keypressed;
\r
CFlag:=ReadKey;
\r
{$IFDEF UNIX}
\r
until keypressed;
\r
CFlag:=ReadKey;
\r
{$IFDEF UNIX}
\r
- nS
etActiveWin(stdscr)
;
\r
+ nS
top
;
\r
nDelWindow(win);
\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
{$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
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
{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
begin SF; writeln('The ',What1,' is already ',What2,'.') end;
\r
\r
{******************* END OF PARSER AND MISC. PROCEDURES *********************}
\r
-
\1a
\r