[Win32forth-cvs] win32forth/src REGISTRY.F,1.7,1.8

[Dirk B. <db...@us...>]

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

Modified Files:
	REGISTRY.F 
Log Message:
Changed PROGREG-INIT to reset the values "regBaseKey" and "regAccessMask", too.

Index: REGISTRY.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/REGISTRY.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** REGISTRY.F	29 Aug 2005 15:56:27 -0000	1.7
--- REGISTRY.F	25 Sep 2005 06:17:54 -0000	1.8
***************
*** 11,20 ****
  \ 2003/09/08 dbu removed the registry entries 'Directory' and 'Version'
  \ Sonntag, Dezember 26 2004 dbu mostly rewritten
! \ Dienstag, Mai 24 2005 dbu 
  \   - Changed to work with Rod's RegistrySupport.f
! \   - fixed a bug in (RegQueryValue)      
  \   - removed the deprecated words .REGISTRY and RE-REGISTER
  \   - Expanded TAB's into spaces
! \ Mittwoch, Mai 25 2005 dbu 
  \   - Some more changes to work with Rod's RegistrySupport.f
  
--- 11,20 ----
  \ 2003/09/08 dbu removed the registry entries 'Directory' and 'Version'
  \ Sonntag, Dezember 26 2004 dbu mostly rewritten
! \ Dienstag, Mai 24 2005 dbu
  \   - Changed to work with Rod's RegistrySupport.f
! \   - fixed a bug in (RegQueryValue)
  \   - removed the deprecated words .REGISTRY and RE-REGISTER
  \   - Expanded TAB's into spaces
! \ Mittwoch, Mai 25 2005 dbu
  \   - Some more changes to work with Rod's RegistrySupport.f
  
***************
*** 50,54 ****
                  0 to Class
                  0 to Disposition
!                 
                  &OF Disposition         \ disposition value buffer
                  &OF hkResult            \ key handle
--- 50,54 ----
                  0 to Class
                  0 to Disposition
! 
                  &OF Disposition         \ disposition value buffer
                  &OF hkResult            \ key handle
***************
*** 60,64 ****
                  lpSubKey                \ subkey name
                  hKey                    \ handle to open key
!                 
                  call RegCreateKeyEx ERROR_SUCCESS =
                  if hkResult else INVALID_HANDLE_VALUE then ;
--- 60,64 ----
                  lpSubKey                \ subkey name
                  hKey                    \ handle to open key
! 
                  call RegCreateKeyEx ERROR_SUCCESS =
                  if hkResult else INVALID_HANDLE_VALUE then ;
***************
*** 91,94 ****
--- 91,97 ----
  create ProgReg MAXSTRING allot
  
+ HKEY_CURRENT_USER value regBaseKey
+ KEY_ALL_ACCESS    value regAccessMask
+ 
  : PROGREG-SET-BASE-PATH ( -- )
                  s" Win32Forth " ProgReg place
***************
*** 97,108 ****
  
  : PROGREG-INIT  ( -- )
!                 PROGREG-SET-BASE-PATH s" Win32For\" ProgReg +place ;
  
  initialization-chain chain-add PROGREG-INIT
  PROGREG-INIT
  
- HKEY_CURRENT_USER value regBaseKey
- KEY_ALL_ACCESS    value regAccessMask
- 
  INTERNAL
  
--- 100,111 ----
  
  : PROGREG-INIT  ( -- )
!                 PROGREG-SET-BASE-PATH s" Win32For\" ProgReg +place
! 		HKEY_CURRENT_USER to regBaseKey
! 		KEY_ALL_ACCESS    to regAccessMask
! 		;
  
  initialization-chain chain-add PROGREG-INIT
  PROGREG-INIT
  
  INTERNAL