Changeset 5930b07 in tol

Timestamp:

Oct 31, 2008, 12:07:06 PM (18 years ago)

Author:

Liván Ramírez Dorta <livanr68@…>

Branches:

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

Children:

47cbb8f

Parents:

fd65ddb

Message:

Fixing error in function TclInfoRef

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

File:

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

tolbase/lib/byswidget/bfunctions/bftoltcl.tcl

@@ -124 +124 @@
 #/////////////////////////////////////////////////////////////////////////////
   # eval
-  set cmd "::tol::info variable {Set $obj $args}"
-  #puts "cmd: $cmd"
+  set cmd "::tol::info variable {$obj $args}"
+  puts "cmd: $cmd"
   if {![catch {set lst [eval $cmd]}]} {
     set lstNam [list GRAMMAR NAME CONTENT PATH DESC ISFILE\