diff options
author | joye <joye> | 2013-09-05 19:02:37 (GMT) |
---|---|---|
committer | joye <joye> | 2013-09-05 19:02:37 (GMT) |
commit | c6e0e8f787459f8727b4140a7341dcc5cd6ea1c3 (patch) | |
tree | 3ac07c44792688be100153955f9c086116a2ede0 /src/bltInt.C | |
parent | 5cfdc8fc60e6e2729f7ec6752916edc06b408984 (diff) | |
download | blt-c6e0e8f787459f8727b4140a7341dcc5cd6ea1c3.zip blt-c6e0e8f787459f8727b4140a7341dcc5cd6ea1c3.tar.gz blt-c6e0e8f787459f8727b4140a7341dcc5cd6ea1c3.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'src/bltInt.C')
-rw-r--r-- | src/bltInt.C | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/src/bltInt.C b/src/bltInt.C index a5213ca..616cd3d 100644 --- a/src/bltInt.C +++ b/src/bltInt.C @@ -32,11 +32,7 @@ #include "bltMath.h" #ifndef BLT_LIBRARY -# ifdef WIN32 -# define BLT_LIBRARY "c:/Program Files/Tcl/lib/blt"##BLT_VERSION -# else # define BLT_LIBRARY "unknown" -# endif #endif #if (_TCL_VERSION >= _VERSION(8,5,0)) @@ -129,36 +125,6 @@ SetLibraryPath(Tcl_Interp *interp) Tcl_DStringInit(&dString); Tcl_DStringAppend(&dString, libPath, -1); -#ifdef WIN32 - { - HKEY key; - DWORD result; -# ifndef BLT_REGISTRY_KEY -# define BLT_REGISTRY_KEY "Software\\BLT\\" BLT_VERSION "\\" TCL_VERSION -# endif - result = RegOpenKeyEx( - HKEY_LOCAL_MACHINE, /* Parent key. */ - BLT_REGISTRY_KEY, /* Path to sub-key. */ - 0, /* Reserved. */ - KEY_READ, /* Security access mask. */ - &key); /* Resulting key.*/ - - if (result == ERROR_SUCCESS) { - DWORD size; - - /* Query once to get the size of the string needed */ - result = RegQueryValueEx(key, "BLT_LIBRARY", NULL, NULL, NULL, - &size); - if (result == ERROR_SUCCESS) { - Tcl_DStringSetLength(&dString, size); - /* And again to collect the string. */ - RegQueryValueEx(key, "BLT_LIBRARY", NULL, NULL, - (LPBYTE)Tcl_DStringValue(&dString), &size); - RegCloseKey(key); - } - } - } -#endif /* WIN32 */ value = Tcl_SetVar(interp, "blt_libPath", Tcl_DStringValue(&dString), TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG); Tcl_DStringFree(&dString); |