home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / WINSCROL.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  2.7 KB  |  113 lines
  1. /*
  2.     winscrol.c    10/30/88
  3.  
  4.     % functions scroll a window on the display.
  5.  
  6.     Consolidated from other files.
  7.     Ted.
  8.  
  9.     OWL 1.2
  10.     Copyright (c) 1988, by Oakland Group, Inc.
  11.     ALL RIGHTS RESERVED.
  12.  
  13.     Revision History:
  14.     -----------------
  15.      3/28/90 jmd    ansi-fied
  16. */
  17. /* -------------------------------------------------------------------------- */
  18. #include "oakhead.h"
  19. #include "disppriv.h"
  20.  
  21. /* -------------------------------------------------------------------------- */
  22.  
  23. void win_ScrollPix(win_type win, opcoord nx, opcoord ny)
  24. /*
  25.     Scrolls all unobscured parts of win. Scrolls win cursor position too.
  26. */
  27. {
  28.     opoint tpn;
  29.     boolean cursin;
  30.     opbox cursbox;
  31.     boolean wasshown;
  32.  
  33.     /*
  34.      * Update curspos first to ensure that painting portion can paint it in the
  35.      * right place. Hide it to make sure it will be shown or in case it's a text
  36.      * cursor that got scrolled out of the window, and show it in case it's a
  37.      * text cursor and was in the scrolled region.
  38.      */
  39.  
  40.     /* If the cursor is in the window getting exposed, save and restore it */
  41.     win_GetCursorPixBox(win, &cursbox);
  42.     cursin = (win_clipbox(win, &cursbox) != 0);
  43.  
  44.     if (cursin) {
  45.         disp_Cache();
  46.         wasshown = win_HideCursor(win);
  47.     }
  48.     win_setcursx(win, win_GetCursx(win) - nx);
  49.     win_setcursy(win, win_GetCursy(win) - ny);
  50.     tpn.x = nx; tpn.y = ny;
  51.     win_Expose(win, WINM_SCROLL, (VOID *) &tpn, WINM_SHADOW, NULL);
  52.  
  53.     if (cursin) {
  54.         if (wasshown) {
  55.             win_ShowCursor(win);
  56.         }
  57.         disp_Flush();
  58.     }
  59. }
  60. /* -------------------------------------------------------------------------- */
  61.  
  62. void win_ScrollPixBox(win_type win, opbox *boxp, opcoord nx, opcoord ny)
  63. /*
  64.     Scrolls all unobscured parts of win in relbox.
  65.     Does not scroll win cursor position.
  66. */
  67. {
  68.     opoint tpn;
  69.     boolean cursin;
  70.     opbox cursbox;
  71.     boolean wasshown;
  72.  
  73.     /* If the cursor is in the box getting exposed, save and restore it */
  74.     win_GetCursorPixBox(win, &cursbox);
  75.     cursin = (opbox_clipbox(boxp, &cursbox) != 0);
  76.  
  77.     if (cursin) {
  78.         disp_Cache();
  79.         wasshown = win_HideCursor(win);
  80.     }
  81.     tpn.x = nx; tpn.y = ny;
  82.     win_ExposePixBox(win, boxp, WINM_SCROLL, (VOID *) &tpn, WINM_SHADOW, NULL);
  83.  
  84.     if (cursin) {
  85.         if (wasshown) {
  86.             win_ShowCursor(win);
  87.         }
  88.         disp_Flush();
  89.     }
  90. }
  91. /* -------------------------------------------------------------------------- */
  92.  
  93. void win_ScrollBox(win_type win, ocbox *cboxp, int nrows, int ncols)
  94. {
  95.     opbox box;        /* display coords */
  96.  
  97.     if (win == NULL) {
  98.         return;
  99.     }
  100.  
  101.     ocbox_pixcoords(cboxp, win_GetFont(win), &box);
  102.  
  103.     /* Quit if box is not in window */
  104.     if (!win_clipbox(win, &box)) {
  105.         return;
  106.     }
  107.  
  108.     win_ScrollPixBox(win, &box, ncols * win_GetFontWidth(win),
  109.                              nrows * win_GetFontHeight(win));
  110. }
  111. /* -------------------------------------------------------------------------- */
  112.  
  113.