home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / FLDGETB.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  582 b   |  31 lines
  1. /*
  2.     fldgetb.c
  3.  
  4.     % field_GetBox
  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.      4/30/89 jmd    Added macros
  13.      3/28/90 jmd    ansi-fied
  14. */                    
  15.  
  16. #include "field.h"
  17.  
  18. boolean field_GetBox(field_type field, ocbox *boxp)
  19. /*
  20.     Put the field's coords into a box.
  21.     Returns FALSE if the field is sizeless.
  22. */
  23. {
  24.     boxp->botrow = boxp->toprow    = field_GetRow(field);
  25.     boxp->leftcol = field_GetCol(field);
  26.     boxp->rightcol = field_GetLastCol(field);
  27.  
  28.     return(boxp->rightcol >= boxp->leftcol);
  29. }
  30.  
  31.