home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / adaada.zip / ADAADA.ZIP / SRC / CW_ADA / CW_ATTR.ADA < prev    next >
Text File  |  1994-10-12  |  2KB  |  71 lines
  1. -- Copyright (c) 1994 ARINC Research Corporation
  2. -- From material copyright (c) 1991, 1992 Premia Corporation
  3. --
  4. -- This material may be reproduced by or for the US Government pursuant 
  5. -- to the copyright license under DFAR Clause 252.227-7013 (1988)
  6. --
  7. -- Developed for US Air Force under contract no. F41608-90-D-0544-0005
  8. --
  9. -- MODIFICATIONS
  10. --   94/06 - J. Neuse, SD/OSE/EA  - Initial code
  11. --   94/10 - O. Sluder, SD/OSE/EA - Cleanup
  12.  
  13. with CW_TYPES;
  14.  
  15. -- *************
  16. -- *           *
  17. -- *  CW_ATTR  *  SPEC
  18. -- *           *
  19. -- *************
  20.  
  21. package CW_ATTR is
  22.  
  23.   -- The following pragmas are required by the Meridian OpenAda for
  24.   -- Windows 2.0 compiler in the package spec and body of code to be
  25.   -- included in a DLL, or an application calling the DLL will 
  26.   -- general protection fault
  27.   pragma SUPPRESS (elaboration_check);
  28.   pragma SUPPRESS (storage_check);
  29.  
  30.   -- .....................
  31.   -- .                   .
  32.   -- .  AttrFindVisible  .  SPEC
  33.   -- .                   .
  34.   -- .....................
  35.  
  36.   function AttrFindVisible (visAttr  : in INTEGER;
  37.                             forward  : in BOOLEAN;
  38.                             matching : in BOOLEAN) return BOOLEAN;
  39.  
  40.   -- ..................
  41.   -- .                .
  42.   -- .  AttrSetColor  .  SPEC
  43.   -- .                .
  44.   -- ..................
  45.  
  46.   procedure AttrSetColor (fline : in long_integer;
  47.                           lline : in long_integer;
  48.                           fcol  : in long_integer;
  49.                           lcol  : in long_integer;
  50.                           color : in integer);
  51.  
  52.   -- ....................
  53.   -- .                  .
  54.   -- .  AttrSetVisible  .  SPEC
  55.   -- .                  .
  56.   -- ....................
  57.  
  58.   procedure AttrSetVisible (first   : in CW_TYPES.DWORD;
  59.                             last    : in W_TYPES.DWORD;
  60.                             visAttr : in INTEGER);
  61.  
  62.   -- ..........
  63.   -- .        .
  64.   -- .  Grep  .  SPEC
  65.   -- .        .
  66.   -- ..........
  67.  
  68.   function Grep (str : in string) return LONG_INTEGER;
  69.  
  70. end CW_ATTR;
  71.