summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorsebres <sebres@users.sourceforge.net>2017-01-09 19:33:23 (GMT)
committersebres <sebres@users.sourceforge.net>2017-01-09 19:33:23 (GMT)
commitde7fe4dd0fea3795e66e91109721ce68c5d7005b (patch)
tree0ce9b4d40dd76edb9f796ca286463c3c36d03f51 /library
parentd05b600d32d4e5a5bf8c06244a5fc1a0368ff87c (diff)
downloadtcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.zip
tcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.tar.gz
tcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.tar.bz2
[win] load win-registry library also in development environment (uninstalled)
Diffstat (limited to 'library')
-rwxr-xr-xlibrary/reg/pkgIndex.tcl12
1 files changed, 11 insertions, 1 deletions
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl
index b1fe234..ab022ab 100755
--- a/library/reg/pkgIndex.tcl
+++ b/library/reg/pkgIndex.tcl
@@ -1,9 +1,19 @@
if {([info commands ::tcl::pkgconfig] eq "")
- || ([info sharedlibextension] ne ".dll")} return
+ || ([info sharedlibextension] ne ".dll")} return
if {[::tcl::pkgconfig get debug]} {
+ if {[info exists [file join $dir tclreg13g.dll]]} {
package ifneeded registry 1.3.2 \
[list load [file join $dir tclreg13g.dll] registry]
+ } else {
+ package ifneeded registry 1.3.2 \
+ [list load tclreg13g registry]
+ }
} else {
+ if {[info exists [file join $dir tclreg13.dll]]} {
package ifneeded registry 1.3.2 \
[list load [file join $dir tclreg13.dll] registry]
+ } else {
+ package ifneeded registry 1.3.2 \
+ [list load tclreg13 registry]
+ }
}