home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / SPCEMBTD.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-10-05  |  1.1 KB  |  65 lines
  1. /*
  2.     spcembtd.c      12/14/88
  3.  
  4.     % spc_EmbedTed
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.     11/13/89 jmd    added non-DOS scancodes
  13.  
  14.      3/28/90 jmd    ansi-fied
  15.  
  16.     10/05/90 pmcm    removed CTRL_U, CTRL_D aliases for CTRL_PGUP, CTRL_PGDN
  17.                     (CTRL_PGUP CTRL_PGDN avail. as meta keys on non-DOS systems)
  18. */
  19.  
  20. #include <stdio.h>
  21. #include <ctype.h>
  22.  
  23. #include "cscape.h"
  24. #include "scancode.h"
  25.  
  26. /* special function for embedded teds */
  27.  
  28. boolean spc_EmbedTed(sed_type sed, int scancode)
  29. /*
  30.     effects:    untraps editing keys from spc_Embed
  31.     returns:    whatever spc_Embed returns
  32. */
  33. {
  34.     switch (scancode) {
  35.  
  36.     case UP:
  37.     case DOWN:
  38.     case TAB:
  39.     case SHFT_TAB:
  40.     case ENTER:
  41.         /* don't let spc_Embed catch these keys */
  42.         return(FALSE);
  43.  
  44.     case CTRL_PGUP:
  45.         /* move upward in embeding sed */
  46.         sed_SetBaton(sed, BOB_UP);
  47.         sed_ToggleExit(sed);
  48.         return(TRUE);
  49.         
  50.     case CTRL_PGDN:    
  51.         /* move downward in embeding sed */
  52.         sed_SetBaton(sed, BOB_DOWN);
  53.         sed_ToggleExit(sed);
  54.         return(TRUE);
  55.  
  56.     default:
  57.         break;
  58.     }
  59.     return(spc_Embed(sed, scancode));
  60. }
  61.  
  62.  
  63.  
  64.  
  65.