[Win32forth-cvs] win32forth/src/lib task.f,1.17,1.18

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

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

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

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** task.f	29 Oct 2008 23:24:29 -0000	1.17
--- task.f	1 Jan 2009 18:36:50 -0000	1.18
***************
*** 264,267 ****
--- 264,268 ----
  make-lock pointer-lock                  \ to make allocating pointers thread safe
  make-lock dyn-lock                      \ to make new$ thread safe
+ make-lock gdi-lock                      \ to make linking gdi objects thread safe
  
  : _memlock         ( -- )  mem-lock       lock   ;   \ for overriding defered lock memory word
***************
*** 277,280 ****
--- 278,283 ----
  : _dynlock         ( -- )  dyn-lock       lock   ;
  : _dynunlock       ( -- )  dyn-lock       unlock ;
+ : _gdilock         ( -- )  gdi-lock       lock   ;
+ : _gdiunlock       ( -- )  gdi-lock       unlock ;
  
  
***************
*** 291,295 ****
                 ['] _pointerunlock   is (pointerunlock)
                 ['] _dynlock         is (dynlock)
!                ['] _dynunlock       is (dynunlock) ;
  
  init-system-locks
--- 294,300 ----
                 ['] _pointerunlock   is (pointerunlock)
                 ['] _dynlock         is (dynlock)
!                ['] _dynunlock       is (dynunlock)
!                ['] _gdilock         is (gdilock)
!                ['] _gdiunlock       is (gdiunlock) ;
  
  init-system-locks