Changeset 5e5a20f in tol for tolbase

Timestamp:

Nov 11, 2010, 10:48:15 AM (16 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

00230fc

Parents:

5462c44

Message:

updating to changes in [tol::info variable ...]

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

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (1 diff)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -42 +42 @@
   set name $seed
   while {[string equal $end 0]} {
-    if [catch {::tol::info variable $gra $name}] {
+    if [catch {::tol::info variable [ list $gra $name ]}] {
       set end 1
     } else {