home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / FNIPAGE.C < prev    next >
C/C++ Source or Header  |  1990-12-12  |  1KB  |  56 lines
  1. /*
  2.     fnipage.c
  3.  
  4.     % inter_page
  5.  
  6.     This function is used by the standard field functions to facilitate
  7.     movement between pages.
  8.  
  9.     Handling the inter_page movement in one place save code space and
  10.     makes it easy to modify the inter_page behavior.  Simply replace
  11.     inter_page with a new function that performs as desired.
  12.  
  13.     C-scape 3.2
  14.     Copyright (c) 1986 - 1990 by Oakland Group, Inc.
  15.     ALL RIGHTS RESERVED.
  16.  
  17.     Revision History:
  18.     -----------------
  19.      3/28/90 jmd    ansi-fied
  20.      8/01/90 jdc    now goes to the first and last fields if it can't page.
  21.     12/11/90 pmcm    now doesn't do that
  22.     12/12/90 jmd    removed unnedded variables
  23. */
  24.  
  25. #include <stdio.h>
  26. #include "cscape.h"
  27. #include "scancode.h"
  28.  
  29. boolean inter_page(sed_type sed, int scancode)
  30. /*
  31.     effects:    Handles movement between pages.
  32.                     PGUP    goes to the previous page.
  33.                     PGDN    goes to the next page.
  34.  
  35.                 goes to the first and last fields if it can't page.
  36.  
  37.     returns:    TRUE if intercepted a key, FALSE otherwise.
  38. */
  39. {
  40.     switch (scancode) {
  41.     case PGUP:
  42.         sed_PageUp(sed);
  43.         return(TRUE);
  44.  
  45.     case PGDN:
  46.         sed_PageDown(sed);
  47.         return(TRUE);
  48.  
  49.     default:
  50.         break;
  51.     }
  52.     return(FALSE);
  53. }
  54.  
  55.  
  56.