home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / TEDPAST.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  694 b   |  46 lines
  1. /*
  2.     tedpast.c
  3.  
  4.     % ted_Past
  5.  
  6.     free cursor movement method
  7.  
  8.     C-scape 3.2
  9.     Copyright (c) 1988 by Oakland Group, Inc.
  10.     ALL RIGHTS RESERVED.
  11.  
  12.     Revision History:
  13.     -----------------
  14.      6/17/88 jdc    created
  15.      3/24/89 jmd    added sed_ macros
  16.  
  17.      3/28/90 jmd    ansi-fied
  18. */
  19.  
  20. #include "ted.h"
  21.  
  22. boolean ted_Past(sed_type sed, int row, int col)
  23. /* 
  24.     lets the cursor move past the end of lines 
  25. */
  26. {
  27.     int lrow, lcol;
  28.  
  29.     row = (row < 0) ? 0 : row;
  30.     col = (col < 0) ? 0 : col;
  31.  
  32.     ted_GetPosition(sed, &lrow, &lcol);
  33.  
  34.     if (lrow == row && lcol == col) {
  35.         return(FALSE);
  36.     }
  37.  
  38.     tb_FindPosition(sed_GetTextbuf(sed), row, col);
  39.     ted_SetCursor(sed, row, col);
  40.  
  41.     return(TRUE);
  42. }
  43.  
  44.  
  45.  
  46.