ncrt.pp 1.5 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. Unit nCrt;
  2. {---------------------------------------------------------------------------
  3. CncWare
  4. (c) Copyright 1999-2000
  5. Portions copyright the FreePascal Team
  6. ---------------------------------------------------------------------------
  7. Filename..: ncrt.pp
  8. Programmer: Ken J. Wright, [email protected]
  9. Date......: 03/01/99
  10. Purpose - A crt replacement using ncurses.
  11. -------------------------------<< REVISIONS >>--------------------------------
  12. Ver | Date | Prog| Description
  13. -------+----------+-----+-----------------------------------------------------
  14. 1.00 | 03/01/99 | kjw | Initial Release.
  15. ------------------------------------------------------------------------------
  16. 2.00 | 12/13/99 | kjw | nCrt is now a drop-in replacement for the standard
  17. | FPC crt unit. All the previous OOP features have
  18. | been moved to a new unit, oCrt (object crt).
  19. | See ocrt.pp & ncrt.inc for a complete revision
  20. | history.
  21. ------------------------------------------------------------------------------
  22. }
  23. Interface
  24. Uses linux,ncurses;
  25. {$i ncrt.inc}
  26. Begin
  27. { initialize ncurses }
  28. If StartCurses(ActiveWn) Then
  29. { defaults, crtassign, etc. }
  30. nInit
  31. Else
  32. CursesFailed;
  33. End. { of Unit nCrt }
  34. {
  35. $Log$
  36. Revision 1.3 2000-08-29 05:51:09 michael
  37. + Merged changes and additions from fixbranch
  38. Revision 1.2 2000/07/13 11:33:27 michael
  39. + removed logs
  40. }