home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / WINDUMP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-09-05  |  1.6 KB  |  69 lines
  1. /*
  2.     windump.c    8/16/88
  3.  
  4.     % Window list dumper.
  5.  
  6.     OWL 1.2
  7.     Copyright (c) 1988, 1989 by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      9/02/88 Ted     Changed for window list names.
  13.      9/12/88 jmd    Added in and out data to objects
  14.  
  15.      3/28/90 jmd    ansi-fied
  16.      9/05/90 jmd    now uses wmgr_unemployedhead macro
  17. */
  18.  
  19. #include "oakhead.h"
  20. #include "disppriv.h"
  21. /* -------------------------------------------------------------------------- */
  22.  
  23. void win_Dump(char *msg)
  24. /*
  25.     Dump the current window lists to stdout.
  26. */
  27. {
  28.     win_type win;
  29.     int id;
  30.  
  31.     printf("-------------------------------------------------------------------------\n");
  32.     printf("Windump: %s\n", msg);
  33.  
  34.     printf("Employed list.......\n");
  35.     for (win = wmgr_employedhead();
  36.          win != NULL;
  37.          win = win_GetBelow(win)) {
  38.  
  39.         /* get window class id */
  40.         id = obj_GetId(win);
  41.  
  42.         printf("win %p, above: %p, below: %p, id: %2d, %s \n", 
  43.                 (VOID *) win, 
  44.                 (VOID *) win_GetAbove(win), 
  45.                 (VOID *) win_GetBelow(win),
  46.                 id, 
  47.                 (win_IsEmployed(win)) ? "employed  " : "unemployed");
  48.     }
  49.  
  50.     printf("\nUnEmployed list.......\n");
  51.     for (win = wmgr_unemployedhead();
  52.          win != NULL;
  53.          win = win_GetBelow(win)) {
  54.  
  55.         /* get window class id */
  56.         id = obj_GetId(win);
  57.  
  58.         printf("win %p, above: %p, below: %p, id: %2d, %s\n", 
  59.                 (VOID *) win, 
  60.                 (VOID *) win_GetAbove(win),
  61.                 (VOID *) win_GetBelow(win),
  62.                 id, 
  63.                 (win_IsEmployed(win)) ? "employed  " : "unemployed");
  64.     }
  65.     printf("\n");
  66. }
  67. /* -------------------------------------------------------------------------- */
  68.  
  69.