home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1995 August / NEBULA.mdf / SourceCode / Puppeteer1.1 / Source / CyberPost.psw < prev    next >
Encoding:
Text File  |  1994-03-23  |  561 b   |  26 lines
  1. /*
  2.  * Puppeteer 1.1
  3.  *
  4.  * Copyright (c) 1994 Primitive Software Ltd.  All rights reserved.
  5.  *
  6.  * Author: Dave Griffiths <dave@prim.demon.co.uk>
  7.  */
  8.  
  9. defineps myCurrentWindowLevel(int win; |int *level)
  10.     win currentwindowlevel level
  11. endps
  12.  
  13. defineps myCurrentOwner(int win; |int *context)
  14.     win currentowner context
  15. endps
  16.  
  17. defineps myPid(int ctxt; |int *pid)
  18.     ctxt 0 /currentContextData winexec pid
  19. endps
  20.  
  21. // Return bounds of current window
  22. defineps myCurrentWindowBounds(int win; |float *x; float *y;
  23.                 float *w; float *h)
  24.     win currentwindowbounds h w y x
  25. endps
  26.