home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / WINLIST.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  3.5 KB  |  128 lines
  1. /*
  2.     winlist.c    1/20/88
  3.  
  4.     % Window list management functions
  5.     by Ted.
  6.  
  7.     Note: these functions do not explicitly protect themselves for reentrancy
  8.     because we assume they will only be called from functions which already do.
  9.  
  10.     OWL 1.2
  11.     Copyright (c) 1988, by Oakland Group, Inc.
  12.     ALL RIGHTS RESERVED.
  13.  
  14.     Revision History:
  15.     -----------------
  16.      3/10/88 Ted    rewrote for the window function/data pointer concept.
  17.                     All 'iwind's removed to higher level text-window objects
  18.      3/22/88 Ted     Installed linked windows handling.
  19.      5/02/88 Ted     Added list head window concept.
  20.      8/15/88 jmd    added arg to dwmgr_CreateWin
  21.     10/31/88 Ted:    Removed linked windows handling.
  22.      4/12/89 ted    Made ListClose unlink windows because of complications
  23.                      arising when a parent closes its children in shutting down.
  24.      8/12/89 jdc    added win_Close trickery in wmgr_ListClose
  25.  
  26.     11/29/89 jmd    added local variables to simplify macro expansion
  27.      3/28/90 jmd    ansi-fied
  28.      6/22/90 ted    added "void" to no-parameter function per ansii.
  29. */
  30.  
  31. #include "oakhead.h"
  32. #include "disppriv.h"
  33.  
  34. OSTATIC void OWLPRIV linkin(win_type listtop, win_type topwin, win_type botwin);
  35.  
  36. /* -------------------------------------------------------------------------- */
  37.  
  38. win_type OWLPRIV wmgr_ListOpen(void)
  39. /*
  40.     Open a window list by opening a list head window.
  41. */
  42. {
  43.     winopendata_struct wod;
  44.     opbox zbox;
  45.  
  46.     zbox.xmin = zbox.xmax = zbox.ymin = zbox.ymax = 0;
  47.     wod.boxp = &zbox;
  48.     wod.font = NULL;
  49.     wod.list = NULL;
  50.  
  51.     return(win_OpenRaw(npwin_Class, &wod));
  52. }
  53. /* -------------------------------------------------------------------------- */
  54.  
  55. void OWLPRIV wmgr_ListClose(win_type listtop)
  56. /*
  57.     Close a window list by closing all windows in it, including the list head.
  58. */
  59. {
  60.     win_type twin;
  61.  
  62.     for (twin = win_GetBelow(listtop); twin != NULL; twin = win_GetBelow(listtop)) {
  63.         win_setemployed(twin, FALSE);    /* trick win_Close */
  64.         win_Close(twin);
  65.     }
  66.     obj_Close(listtop);
  67. }
  68. /* -------------------------------------------------------------------------- */
  69.  
  70. void OWLPRIV win_ListAdd(win_type listtop, win_type win)
  71. /*
  72.     Adds 'win' to list below 'listtop'.
  73.     'win' must be unattached.
  74. */
  75. {
  76.     if (listtop == NULL) return;    /* Error */
  77.     if (win == NULL) return;        /* Error */
  78.     if (win_GetAbove(win) != NULL) return;    /* Error - 'win' must be fresh */
  79.  
  80.     linkin(listtop, win, win);
  81. }
  82. /* -------------------------------------------------------------------------- */
  83.  
  84. void OWLPRIV win_ListRemove(win_type win)
  85. /*
  86.     Removes 'win' from list.
  87. */
  88. {
  89.     win_type above, below;
  90.  
  91.     if (win == NULL) return;            /* Error */
  92.     if (win_GetAbove(win) == NULL) return;        /* Error - can't remove list head */
  93.  
  94.     above = win_GetAbove(win);
  95.     below = win_GetBelow(win);
  96.     win_GetBelow(above) = below;
  97.  
  98.     if (below != NULL) {
  99.         win_GetAbove(below) = above;
  100.     }
  101.  
  102.     win_GetAbove(win) = NULL;
  103.     win_GetBelow(win) = NULL;
  104. }
  105. /* -------------------------------------------------------------------------- */
  106.  
  107. static void OWLPRIV linkin(win_type listtop, win_type topwin, win_type botwin)
  108. /*
  109.     Link windows between and including topwin and botwin into list below listtop.
  110.     No error checking provided - for local use only.
  111. */
  112. {
  113.     win_type above, below;
  114.  
  115.     win_GetAbove(topwin) = listtop;
  116.     win_GetBelow(botwin) = win_GetBelow(listtop);
  117.  
  118.     above = win_GetAbove(topwin);
  119.     win_GetBelow(above) = topwin;
  120.  
  121.     if (win_GetBelow(botwin) != NULL) {
  122.         below = win_GetBelow(botwin);
  123.         win_GetAbove(below) = botwin;
  124.     }
  125. }
  126. /* -------------------------------------------------------------------------- */
  127.  
  128.