home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDDECCHR.C < prev    next >
C/C++ Source or Header  |  1990-03-28  |  1KB  |  50 lines
  1. /*
  2.     sddecchr.c
  3.  
  4.     % sed_DecChar
  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.     11/05/86 jmd    converted to boolean
  13.     11/18/87 jmd     changed names of some low-level funcs    
  14.      4/11/88 jmd    added scrollable field handling
  15.  
  16.      3/24/89 jmd    added sed_ macros
  17.      3/28/90 jmd    ansi-fied
  18. */
  19.  
  20. #include "sed.h"
  21.  
  22. boolean sed_DecChar(sed_type sed)
  23. /*
  24.     modifies:   same.
  25.     effects:    goes to the previous character in the field.  doesn't
  26.                 wrap around to other fields.
  27. */
  28. {
  29.     int i;
  30.  
  31.     cs_Assert(sed_Ok(sed), CS_SD_DC_SED, 0);
  32.  
  33.     if (sed_GetRecordPos(sed) ==  NO_WRITEABLES) {
  34.         return(FALSE);
  35.     }
  36.     else {
  37.         i = menu_GetPrevFieldPos(sed_GetMenu(sed), sed_GetFieldNo(sed), sed_GetRecordPos(sed));
  38.         if (i == AT_END) {
  39.             return(FALSE);
  40.         }      
  41.         else {
  42.             if (sd_goto_char(sed, i)) {
  43.                 /* field scrolled, repaint it */
  44.                 sd_refresh_field(sed, sed_GetFieldNo(sed));
  45.             }
  46.         }    
  47.     }
  48.     return(TRUE);
  49. }
  50.