[Win32forth-cvs] win32forth/src Primutil.f,1.45,1.46

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

Update of /cvsroot/win32forth/win32forth/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv22866

Modified Files:
	Primutil.f 
Log Message:
Made Gdi objects thread safe and added code to free resources when disposing of dynamic objects.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -d -r1.45 -r1.46
*** Primutil.f	27 Dec 2008 16:06:49 -0000	1.45
--- Primutil.f	1 Jan 2009 18:36:50 -0000	1.46
***************
*** 1015,1018 ****
--- 1015,1020 ----
  defer (dynlock)
  defer (dynunlock)
+ defer (gdilock)
+ defer (gdiunlock)
  
  : init-system-locks-off ( -- )
***************
*** 1030,1033 ****
--- 1032,1037 ----
       ['] noop is (dynlock)
       ['] noop is (dynunlock)
+      ['] noop is (gdilock)
+      ['] noop is (gdiunlock)
  ;