[Win32forth-cvs] win32forth/src/lib RegistryWindowPos.f,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12766

Modified Files:
	RegistryWindowPos.f 
Log Message:
Fixed to use Temprect.

Index: RegistryWindowPos.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/RegistryWindowPos.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** RegistryWindowPos.f	14 Feb 2010 17:46:27 -0000	1.3
--- RegistryWindowPos.f	14 Feb 2010 23:26:15 -0000	1.4
***************
*** 24,31 ****
  
  : GetWindowRect ( hWnd -- x y w h )
!                 EraseRect: winRect
!                 winRect.AddrOf swap Call GetWindowRect ?win-error
!                 Left:  wRect Top:    winRect
!                 Right: wRect Bottom: winRect ;
  
  create progreg$ MAX-PATH allot
--- 24,31 ----
  
  : GetWindowRect ( hWnd -- x y w h )
!                 EraseRect: tempRect
!                 tempRect swap Call GetWindowRect ?win-error
!                 Left:  tempRect Top:    tempRect
!                 Right: tempRect Bottom: tempRect ;
  
  create progreg$ MAX-PATH allot