Changeset a0c0aaf8 in tol for tolbase/lib/toltk/init_toltk.tcl

Timestamp:

Feb 16, 2012, 6:29:44 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

abb5e8c

Parents:

6d7c032

Message:

refs #1409, now trunk is 3.2

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4152 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_31)]} {
-    puts "requested to load Toltcl from $::env(USE_TOLTCL_31)"
-    load $::env(USE_TOLTCL_31)
+  if {[info exist ::env(USE_TOLTCL_32)]} {
+    puts "requested to load Toltcl from $::env(USE_TOLTCL_32)"
+    load $::env(USE_TOLTCL_32)
   } else {
-    package require Toltcl 3.1
+    package require Toltcl 3.2
   }
   package require rmtps_client