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
|
