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 | 6aed9a663094ff9d4bd540007174aff66479b0c2 (patch) | |
| tree | 0ce9b4d40dd76edb9f796ca286463c3c36d03f51 | |
| parent | 704f3a5483fa3c45aaf38ddf4a83ac4d4f6c7733 (diff) | |
| download | tcl-6aed9a663094ff9d4bd540007174aff66479b0c2.zip tcl-6aed9a663094ff9d4bd540007174aff66479b0c2.tar.gz tcl-6aed9a663094ff9d4bd540007174aff66479b0c2.tar.bz2 | |
[win] load win-registry library also in development environment (uninstalled)
| -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] + } } |