home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / BOBGTANC.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  806 b   |  38 lines
  1. /*
  2.     bobgtanc.c  5/15/89
  3.  
  4.     % bob_GetAncestor
  5.  
  6.     OWL 1.2
  7.     Copyright (c) 1989 by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      8/12/89 jmd    removed call to sed_GetBob
  13.  
  14.     12/20/89 jmd    converted to bob_GetAncestor, moved to OWL
  15.      1/04/90 jmd    changed to use bob_GetOwner
  16.      3/28/90 jmd    ansi-fied
  17. */
  18.  
  19. #include "oakhead.h"
  20. #include "disppriv.h"
  21. /* -------------------------------------------------------------------------- */
  22.  
  23. win_type bob_GetAncestor(bob_type bob)
  24. /*
  25.     Returns the bob's ultimate owner (which could be the bob itself if the bob
  26.     is unowned).
  27. */
  28. {    
  29.     bob_type next;
  30.  
  31.     while ((next = bob_GetParent(bob)) != NULL) {
  32.         bob = next;
  33.     }
  34.     return(bob);
  35. }
  36. /* -------------------------------------------------------------------------- */
  37.  
  38.