From 997433a8e894564f7ac11ffe04ea6e5434b8e148 Mon Sep 17 00:00:00 2001 From: redman Date: Tue, 11 May 1999 20:47:57 +0000 Subject: Fix loading of dde and reg to load with info nameofexecutable. --- library/dde1.0/pkgIndex.tcl | 2 +- library/reg/pkgIndex.tcl | 2 +- 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" -- cgit v0.12