home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / WINAUX.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  431 b   |  24 lines
  1. /*
  2.     winaux.prg
  3.  
  4.     Copyright (c) 1991 Anton van Straaten
  5.  
  6.     Auxiliary window functions which must not be compiled with win.ch.
  7. */
  8.  
  9. function winRow(w)
  10.     if w == NIL
  11.         w := winCurrent()
  12.     end
  13. return if(w == NIL, row(), row() - (w:top + w:margin))
  14.  
  15.  
  16. function winCol(w)
  17.     if w == NIL
  18.         w := winCurrent()
  19.     end
  20. return if(w == NIL, col(), col() - (w:left + w:margin))
  21.  
  22.  
  23. // eof winaux.prg
  24.