diff options
author | sebres <sebres@users.sourceforge.net> | 2017-01-09 19:33:23 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2017-01-09 19:33:23 (GMT) |
commit | de7fe4dd0fea3795e66e91109721ce68c5d7005b (patch) | |
tree | 0ce9b4d40dd76edb9f796ca286463c3c36d03f51 /library/reg/pkgIndex.tcl | |
parent | d05b600d32d4e5a5bf8c06244a5fc1a0368ff87c (diff) | |
download | tcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.zip tcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.tar.gz tcl-de7fe4dd0fea3795e66e91109721ce68c5d7005b.tar.bz2 |
[win] load win-registry library also in development environment (uninstalled)
Diffstat (limited to 'library/reg/pkgIndex.tcl')
-rwxr-xr-x | library/reg/pkgIndex.tcl | 12 |
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] + } } |