home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / goat006.zip / SRC.ZIP / goatsrc / SubProcs / centerwindow < prev    next >
Text File  |  2001-05-27  |  256b  |  10 lines
  1. /* center the window */
  2. xy=VpWindow(window,'GETSCREENSIZE')
  3. PARSE VAR xy x y
  4. xsizeysize=VpWindow(window,'GETSIZE')
  5. PARSE VAR xsizeysize xsize ysize
  6. movex=x/2-(xsize/2)
  7. movey=y/2-(ysize/2)
  8. CALL VpWindow window,'SETPOS', movex, movey, xsize, ysize
  9.  
  10.