Changeset ab6d232 in tol

Timestamp:

Feb 13, 2012, 5:10:11 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

8d687fe

Parents:

9d2a70c

Message:

#refs 1404, USE_TOLTCL_31 environment variable to load a specific toltcl shared lib, it is useful when debugging

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4125 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/init_toltk.tcl (modified) (1 diff)

tolbase/lib/toltk/init_toltk.tcl

@@ -73 +73 @@
   package require autoscroll 1.1
   package require tclodbc
-  if {[info exist ::env(USE_TOLTCL)]} {
-    puts "requested to load Toltcl from $::env(USE_TOLTCL)"
-    load $::env(USE_TOLTCL)
+  if {[info exist ::env(USE_TOLTCL_31)]} {
+    puts "requested to load Toltcl from $::env(USE_TOLTCL_31)"
+    load $::env(USE_TOLTCL_31)
   } else {
     package require Toltcl 3.1