home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / FLDCLS.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  565 b   |  33 lines
  1. /*
  2.     fldcls.c
  3.  
  4.     % field_Close
  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/28/90 jmd    ansi-fied
  13. */                    
  14.  
  15. #include "field.h"
  16.  
  17.  
  18. void field_Close(field_type field)
  19. /*
  20.  *    effects:    Closes the field and releases storage.
  21.  */
  22. {
  23.     cs_Assert(field_Ok(field), CS_FLD_C_FLD, 0);
  24.  
  25.     /* close the field's bob */
  26.     if (field_GetBob(field) != NULL) {
  27.         obj_Close(field_GetBob(field));
  28.     }
  29.  
  30.     /* relear storage used by the field */
  31.     ofree(CSA_FIELD, (VOID *) field);
  32. }
  33.