home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / BOBGTOWN.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-03-28  |  975 b   |  40 lines
  1. /*
  2.     bobgtown.c        
  3.  
  4.     % bob_GetOwner
  5.  
  6.     OWL 1.2
  7.     Copyright (c) 1989, by Oakland Group, Inc.
  8.     ALL RIGHTS RESERVED.
  9.  
  10.     Revision History:
  11.     -----------------
  12.      8/08/89 jmd     made a separate file
  13.      8/21/89 jmd     fixed GP fault bug
  14.  
  15.     12/20/89 jmd    removed assumption that owner is a sed, moved to OWL
  16.      3/28/90 jmd    ansi-fied
  17. */
  18.  
  19. #include "oakhead.h"
  20. #include "disppriv.h"
  21. /* -------------------------------------------------------------------------- */
  22.  
  23. win_type bob_GetOwner(bob_type bob, int *childnop)
  24. /*
  25.     Returns the window to which the bob is attached.
  26.     Places the child (field) number to which the bob is attached in 
  27.     childnop, returns NULL if the bob is not attached to anything.
  28. */
  29. {
  30.     win_type win = NULL;
  31.  
  32.     /* Get the parent win */
  33.     if (bob != NULL && ((win = bob_GetParent(bob)) != NULL)) {
  34.         win_Do(win, WINM_GETCHILDNO, bob, childnop);
  35.     }
  36.     return(win);
  37. }
  38. /* -------------------------------------------------------------------------- */
  39.  
  40.