home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SDDSEXIT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-12-07  |  791 b   |  54 lines
  1. /*
  2.     sddsexit.c
  3.  
  4.     % sed_DoSexits
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.     10/07/88 jdc    Created
  13.  
  14.      3/28/90 jmd    ansi-fied
  15.     12/07/90 pmcm    added AUX messages
  16. */
  17.  
  18. #include "sed.h"
  19.  
  20. void sed_DoSexits(sed_type sed)
  21. {
  22.     int         row, count, fld;
  23.     menu_type     menu;
  24.  
  25.     menu = sed_GetMenu(sed);
  26.  
  27.     if ((count = menu_GetFieldCount(menu)) <= 0) {
  28.         return;
  29.     }
  30.  
  31.     sed_DoAux(sed, SED_PRESEXIT, NULL, NULL);
  32.  
  33.     row = 0;
  34.     while (count > 0) {
  35.         while ((fld = menu_GetGRow(menu, row)) <= 0) {
  36.             row++;
  37.         }
  38.         fld--;
  39.         do {
  40.             sed_DoFieldSexit(sed, fld);
  41.             count--;
  42.  
  43.         } while ((fld = menu_GetFieldRight(menu, fld)) >= 0);
  44.         row++;
  45.     }
  46.  
  47.     sed_DoAux(sed, SED_POSTSEXIT, NULL, NULL);
  48. }
  49.  
  50.  
  51.  
  52.  
  53.  
  54.