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
|
