home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / CSSRC / TEDCURS.C < prev    next >
C/C++ Source or Header  |  1990-10-29  |  948b  |  54 lines
  1. /*
  2.     tedcurs.c
  3.  
  4.     % ted_GetCursor, ted_GotoCursor
  5.  
  6.     C-scape 3.2
  7.     Copyright (c) 1988, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      3/24/89 jmd    added sed_ macros
  13.      5/23/89 jdc    made tb_setcursor menu_setcursor
  14.      8/04/89 jdc    played with tb->set_cursor
  15.  
  16.      3/28/90 jmd    ansi-fied
  17.     10/28/90 jdc    fixed boolean/int ret conflict
  18. */
  19.  
  20. #include "ted.h"
  21.  
  22. long ted_GetCursor(sed_type sed)
  23. {
  24.     return((sed_GetTextbuf(sed))->cursor);
  25. }
  26.  
  27. boolean ted_GotoCursor(sed_type sed, long cursor)
  28. /*
  29.     moves the cursor through the text
  30. */
  31. {
  32.     tb_type tb;
  33.      int row, col;
  34.     boolean ret = TRUE;
  35.  
  36.     tb = sed_GetTextbuf(sed);
  37.  
  38.     tb->cursor = cursor;
  39.     if (menu_setcursor(sed_GetMenu(sed)) == TRUE) {
  40.         row = tb_GetRow(tb);
  41.         col = tb_GetCol(tb);
  42.     }
  43.     else {
  44.         ret = FALSE;
  45.         row = tb_GetRow(tb) + 1;
  46.         col = 0;
  47.     }
  48.  
  49.     tb->xcol = sed_GetTcol(sed);
  50.     ted_GotoPosition(sed, row, col);
  51.  
  52.     return(ret);
  53. }
  54.