Changeset 7cdaf52 in tol

Timestamp:

Mar 13, 2009, 1:10:53 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

584ad6d

Parents:

3d69c4d

Message:

related to change in toltcl API

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

File:

• tolbase/lib/byswidget/bfunctions/bftoltcl.tcl (modified) (2 diffs)

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -302 +302 @@
 
   ::tol::console eval $str
-  set result [lindex [::tol::info var $type $name] 0]
+  set result [lindex [::tol::info var [ list $type $name ] ] 2]
   ::tol::console stack release $name
   return $result
@@ -418 +418 @@
 #/////////////////////////////////////////////////////////////////////////////
   # eval
-  if {![catch {set lst [::tol::info variable $gra]}]} {
-    return [expr [lsearch $lst $obj] >= 0 ? 1 : 0]
-  }
-  # error
-  return 0
+  expr { ! [ catch { tol::info var [ list $gra $obj ] } ] }
 }