home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDGTFCLR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  844 b   |  44 lines
  1. /*
  2.     sdgtfclr.c
  3.  
  4.     % sed_GetFieldColors
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1986, 1987, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      3/24/89 jmd    added sed_ macros
  13.      4/13/89 jmd    added sed_GetField macro
  14.  
  15.      3/28/90 jmd    ansi-fied
  16. */
  17.  
  18. #include "sed.h"
  19.  
  20. void sed_GetFieldColors(sed_type sed, int fieldno, byte *reg, byte *sel)
  21. /*
  22.     Get the regular and select colors for a field.
  23.     If the field is UnMarked get the colors for the sed.
  24. */
  25. {
  26.     field_type field;
  27.  
  28.     cs_Assert(sed_Ok(sed), CS_SD_GFC_SED, 0);
  29.     cs_Assert(reg != NULL && sel != NULL, CS_SD_GFC_PTR, 0);
  30.  
  31.     field = sed_GetField(sed, fieldno);
  32.  
  33.     if (field_GetMarked(field)) {
  34.         *reg = field_GetRegAttr(field);
  35.         *sel = field_GetSelAttr(field);
  36.     }
  37.     else {
  38.         *reg = sed_GetRegAttr(sed);
  39.         *sel = sed_GetSelAttr(sed);
  40.     }
  41. }
  42.  
  43.  
  44.