| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- Unit nCrt;
- {---------------------------------------------------------------------------
- CncWare
- (c) Copyright 1999-2000
- Portions copyright the FreePascal Team
- ---------------------------------------------------------------------------
- Filename..: ncrt.pp
- Programmer: Ken J. Wright, [email protected]
- Date......: 03/01/99
- Purpose - A crt replacement using ncurses.
- -------------------------------<< REVISIONS >>--------------------------------
- Ver | Date | Prog| Description
- -------+----------+-----+-----------------------------------------------------
- 1.00 | 03/01/99 | kjw | Initial Release.
- ------------------------------------------------------------------------------
- 2.00 | 12/13/99 | kjw | nCrt is now a drop-in replacement for the standard
- | FPC crt unit. All the previous OOP features have
- | been moved to a new unit, oCrt (object crt).
- | See ocrt.pp & ncrt.inc for a complete revision
- | history.
- ------------------------------------------------------------------------------
- }
- Interface
- Uses
- {$ifdef Unix}
- {$ifdef ver1_0}
- linux,
- {$else}
- baseunix,
- termio,
- {$endif}
- {$endif}
- ncurses,
- dos; {dos needed for TextRec}
- {$i ncrt.inc}
- Begin
- { initialize ncurses }
- If StartCurses(ActiveWn) Then
- { defaults, crtassign, etc. }
- nInit
- Else
- CursesFailed;
- End. { of Unit nCrt }
- {
- $Log$
- Revision 1.6 2004-09-22 13:45:48 armin
- * removed redefinition of TextRec, included Dos-Unit for TextRec
- Revision 1.5 2003/11/19 17:11:40 marco
- * termio unit
- Revision 1.4 2003/09/27 12:19:20 peter
- * fixed for unix
- Revision 1.3 2002/09/07 15:43:01 peter
- * old logs removed and tabs fixed
- Revision 1.2 2002/05/31 11:54:33 marco
- * Renamefest for 1.0, many 1.1.x spots patched also.
- Revision 1.1 2002/01/29 17:55:17 peter
- * splitted to base and extra
- }
|
