Changeset 584ad6d in tol

Timestamp:

Mar 13, 2009, 1:15:43 PM (18 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

557faf0

Parents:

7cdaf52

Message:

related to changes in toltcl API

tol::info var {Grammar Name}

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

File:

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

tolbase/lib/byswidget/beditmaster/beditmaster.tcl

@@ -2112 +2112 @@
       puts "Error al ejecutar: $cmdTIC"
       return {}   
-    }    
-    ::tol::tableset create $cmdIC $infoColumns
+    }
+    ::tol::tableset create $cmdIC [ list Set $infoColumns ]
+    Tolcon_Trace "::tol::tableset create $cmdIC [ list Set $infoColumns ]"
   
     # Obtenemos informacion de las foregn keys
@@ -2129 +2130 @@
     }    
     # comprobamos que tenemos valores
-    set nRegFk [lindex [TclGetFromSet Set $infoForeignKeys] 0]
+    set nRegFk [lindex [TclGetVar Set $infoForeignKeys] 0]
     if {[expr $nRegFk > 0]} {
-      ::tol::tableset create $cmdIF $infoForeignKeys
+      ::tol::tableset create $cmdIF [ list Set $infoForeignKeys ]
     }  
 #Tolcon_Trace "EditMasterUtils::InitTable. nRegFk: $nRegFk"