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

Timestamp:

Oct 19, 2008, 5:56:30 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

ce06505

Parents:

6d7779d

Message:

merging from NameBlock/VMatrix branch

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

File:

• tolbase/lib/toltk/init_toltk.tcl (modified) (3 diffs)

tolbase/lib/toltk/init_toltk.tcl

@@ -67 +67 @@
   package require -exact BLT 2.4
   package require tclodbc
-  package require -exact Toltcl 1.1.7
+  if {[info exist ::env(USE_TOLTCL)]} {
+    puts "requested to load Toltcl from $::env(USE_TOLTCL)"
+    load $::env(USE_TOLTCL)
+  } else {
+    package require -exact Toltcl 1.1.7
+  }
   package require rmtps_client
   package require byswidget
@@ -205 +210 @@
 }
 
-
 if {[info exist ::env(DEBUG_TOLTCL)] && $::env(DEBUG_TOLTCL) eq "yes"} {
   set tt_debug "d"  
@@ -309 +313 @@
 # Evalute the client TOL code to expose rmtps_client functionality
 #
-::rmtps_client::define_TOLAPI
+::rmtps_client::define_TOLAPI