* new version (2.07) of ncrt and associated files committed

packages/ncurses/ncrt.inc

@@ -32,6 +32,10 @@
   2.06 | 01/11/00 | kjw | 1) Oops! 2.04 change went back to stdscr vs. ActiveWn.
                         | Keypressed works correctly with windows again.
                         | 2) ClrEol works correctly now with color.
+  2.07 | 01/31/00 | kjw | 1) Added NCRT_VERSION constants.
+                        | 2) Added prev_textattr to detect a change in
+                        | TextAttr value so current color gets updated.
+                        | 3) See ocrt.pp
 ------------------------------------------------------------------------------
 }
 
@@ -59,6 +63,11 @@ Procedure Window(x,y,x1,y1 : integer);
 
 Const
 
+   NCRT_VERSION_MAJOR = 2;
+   NCRT_VERSION_MINOR = 7;
+   NCRT_VERSION_PATCH = 0;
+   NCRT_VERSION = '2.07.00';
+
  { CRT modes }
    BW40          = 0;            { 40x25 B/W on Color Adapter }
    CO40          = 1;            { 40x25 Color on Color Adapter }
@@ -165,6 +174,7 @@ Var
    MaxRows,                           { set at startup to terminal values }
    MaxCols : longint;                 { for columns and rows }
    tios : TermIOS;                    { saves the term settings at startup }
+   prev_textattr : integer;           { detect change in TextAttr }
 
 {==========================================================================
    This code chunk is from the FPC source tree in rtl/inc/textrec.inc.
@@ -335,6 +345,7 @@ End;
 Procedure nWinColor(win : pWindow; att : integer);
 Begin
    wattr_set(win,CursesAtts(att));
+   prev_textattr := att;
 End;
 
 { clear the specified window }
@@ -523,6 +534,8 @@ End;
 { write a string to a window at the current cursor position }
 Procedure nWrite(win : pWindow; s : string);
 Begin
+   If TextAttr <> prev_textattr Then
+      nWinColor(win,TextAttr);
    waddstr(win,StrPCopy(ps,s));
    If doRefresh Then wrefresh(win);
 End;
@@ -742,6 +755,7 @@ End;
 function  Keypressed : boolean;
 var
    l : longint;
+   fd : fdSet;
 Begin
    Keypressed := FALSE;
    nodelay(ActiveWn,bool(TRUE));

packages/ncurses/ncrt.pp

@@ -24,6 +24,7 @@ Unit nCrt;
   2.04 | 01/04/00 | kjw | See ncrt.inc
   2.05 | 01/06/00 | kjw | See ncrt.inc, ocrt.pp
   2.06 | 01/11/00 | kjw | See ncrt.inc.
+  2.07 | 01/31/00 | kjw | See ncrt.inc, ocrt.pp
 ------------------------------------------------------------------------------
 }
 Interface

packages/ncurses/ocrt.pp

@@ -63,6 +63,9 @@ Unit oCrt;
                         | 3) nSEdit was not handling tec.firsttime correctly
                         | when a tec.special was processed.
   2.06 | 01/11/00 | kjw | See ncrt.inc.
+  2.07 | 01/31/00 | kjw | 1) See ncrt.inc.
+                        | 2) Added getcolor, getframecolor, getheadercolor
+                        | methods to tnWindow.
 ------------------------------------------------------------------------------
 }
 Interface
@@ -176,6 +179,9 @@ Type
           Function GetHeader : string;
          Procedure PutHeader(hdr : string; hcolor : integer; hpos : tnJustify);
          Procedure SetColor(att : integer);
+          Function GetColor : integer;
+          Function GetFrameColor : integer;
+          Function GetHeaderColor : integer;
          Procedure PutFrame(att : integer);
          Procedure Move(x,y : integer);
          Procedure Scroll(ln : integer; dir : tnUpDown);
@@ -433,6 +439,24 @@ Begin
    If visible Then wrefresh(wn);
 End;
 
+{ get the writeable window color }
+Function tnWindow.GetColor : integer;
+Begin
+   GetColor := wincolor;
+End;
+
+{ get the frame color }
+Function tnWindow.GetFrameColor : integer;
+Begin
+   GetFrameColor := framecolor;
+End;
+
+{ get the header color }
+Function tnWindow.GetHeaderColor : integer;
+Begin
+   GetHeaderColor := hdrcolor;
+End;
+
 { frame an un-framed window, or update the frame color of a framed window }
 Procedure tnWindow.PutFrame(att : integer);
 Var