[Win32forth-cvs] win32forth/src Primutil.f,1.13,1.14 Window.f,1.13,1.14

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

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16545/win32forth/src

Modified Files:
	Primutil.f Window.f 
Log Message:
gah: Added locking to unique class name generation for thread safety.

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Window.f	14 May 2006 09:54:12 -0000	1.13
--- Window.f	20 May 2006 12:02:06 -0000	1.14
***************
*** 286,293 ****
  \ the Start: method is called no default class name will be set.
                  WindowClassName c@ 0=
!                 if   s" w32fWindow-" WindowClassName place
                       ClassNameID (.) WindowClassName +place
                       WindowClassName +null
                       1 +to ClassNameID
                  then
  \ cr ." The WindowClassName is: " WindowClassName count type
--- 286,295 ----
  \ the Start: method is called no default class name will be set.
                  WindowClassName c@ 0=
!                 if   (classnamelock)
!                      s" w32fWindow-" WindowClassName place
                       ClassNameID (.) WindowClassName +place
                       WindowClassName +null
                       1 +to ClassNameID
+                      (classnameunlock)
                  then
  \ cr ." The WindowClassName is: " WindowClassName count type

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Primutil.f	20 Oct 2005 15:07:18 -0000	1.13
--- Primutil.f	20 May 2006 12:02:06 -0000	1.14
***************
*** 869,876 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! defer (controllock)   ' noop is (controllock)
! defer (controlunlock) ' noop is (controlunlock)
! defer (dialoglock)    ' noop is (dialoglock)
! defer (dialogunlock)  ' noop is (dialogunlock)
  
  \s
--- 869,878 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! defer (controllock)     ' noop is (controllock)
! defer (controlunlock)   ' noop is (controlunlock)
! defer (dialoglock)      ' noop is (dialoglock)
! defer (dialogunlock)    ' noop is (dialogunlock)
! defer (classnamelock)   ' noop is (classnamelock)
! defer (classnameunlock) ' noop is (classnameunlock)
  
  \s