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