diff options
| author | redman <redman> | 1999-05-11 20:47:57 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-05-11 20:47:57 (GMT) |
| commit | 997433a8e894564f7ac11ffe04ea6e5434b8e148 (patch) | |
| tree | 4d6c6890554bc4c7ae6acf60d75e9f6c48410ad7 | |
| parent | 7e5fa22b2798227ac6c6f48a3f0d6f767f658c14 (diff) | |
| download | tcl-997433a8e894564f7ac11ffe04ea6e5434b8e148.zip tcl-997433a8e894564f7ac11ffe04ea6e5434b8e148.tar.gz tcl-997433a8e894564f7ac11ffe04ea6e5434b8e148.tar.bz2 | |
Fix loading of dde and reg to load with info nameofexecutable.
| -rwxr-xr-x | library/dde1.0/pkgIndex.tcl | 2 | ||||
| -rwxr-xr-x | library/reg/pkgIndex.tcl | 2 | ||||
| -rwxr-xr-x | library/reg1.0/pkgIndex.tcl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/library/dde1.0/pkgIndex.tcl b/library/dde1.0/pkgIndex.tcl index 6277759..075a0e8 100755 --- a/library/dde1.0/pkgIndex.tcl +++ b/library/dde1.0/pkgIndex.tcl @@ -1 +1 @@ -package ifneeded dde 1.0 "load [list [file join $dir tcldde81.dll]] dde"
+package ifneeded dde 1.0 "load [list [file join [file dirname [info nameofexecutable]] tcldde81.dll]] dde"
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index a018073..8886737 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1 +1 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg81.dll]] registry"
+package ifneeded registry 1.0 "load [list [file join [file dirname [info nameofexecutable]] tclreg81.dll]] registry"
diff --git a/library/reg1.0/pkgIndex.tcl b/library/reg1.0/pkgIndex.tcl index a018073..8886737 100755 --- a/library/reg1.0/pkgIndex.tcl +++ b/library/reg1.0/pkgIndex.tcl @@ -1 +1 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg81.dll]] registry"
+package ifneeded registry 1.0 "load [list [file join [file dirname [info nameofexecutable]] tclreg81.dll]] registry"
|