diff options
| -rw-r--r-- | library/dde/pkgIndex.tcl | 6 | ||||
| -rw-r--r-- | library/dde1.1/pkgIndex.tcl | 6 | ||||
| -rwxr-xr-x | library/reg/pkgIndex.tcl | 8 | ||||
| -rwxr-xr-x | library/reg1.0/pkgIndex.tcl | 8 |
4 files changed, 24 insertions, 4 deletions
diff --git a/library/dde/pkgIndex.tcl b/library/dde/pkgIndex.tcl index b953f17..17f09e9 100644 --- a/library/dde/pkgIndex.tcl +++ b/library/dde/pkgIndex.tcl @@ -1 +1,5 @@ -package ifneeded dde 1.1 "load [list [file join $dir tcldde83.dll]] dde"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83d.dll] dde]
+} else {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83.dll] dde]
+}
diff --git a/library/dde1.1/pkgIndex.tcl b/library/dde1.1/pkgIndex.tcl index b953f17..17f09e9 100644 --- a/library/dde1.1/pkgIndex.tcl +++ b/library/dde1.1/pkgIndex.tcl @@ -1 +1,5 @@ -package ifneeded dde 1.1 "load [list [file join $dir tcldde83.dll]] dde"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83d.dll] dde]
+} else {
+ package ifneeded dde 1.1 [list load [file join $dir tcldde83.dll] dde]
+}
diff --git a/library/reg/pkgIndex.tcl b/library/reg/pkgIndex.tcl index 7f34997..5c2218c 100755 --- a/library/reg/pkgIndex.tcl +++ b/library/reg/pkgIndex.tcl @@ -1 +1,7 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg83.dll]] registry"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83d.dll] registry]
+} else {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83.dll] registry]
+}
diff --git a/library/reg1.0/pkgIndex.tcl b/library/reg1.0/pkgIndex.tcl index 7f34997..5c2218c 100755 --- a/library/reg1.0/pkgIndex.tcl +++ b/library/reg1.0/pkgIndex.tcl @@ -1 +1,7 @@ -package ifneeded registry 1.0 "load [list [file join $dir tclreg83.dll]] registry"
+if {[info exists tcl_platform(debug)]} {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83d.dll] registry]
+} else {
+ package ifneeded registry 1.0 \
+ [list load [file join $dir tclreg83.dll] registry]
+}
|