Changeset 260e967 in tol

Timestamp:

Jan 13, 2010, 3:49:33 PM (17 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

fcfac88

Parents:

ddde017

Message:

traza oculta

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

File:

• tol_pkg/GuiTools/GuiTools.tol (modified) (1 diff)

tol_pkg/GuiTools/GuiTools.tol

@@ -46 +46 @@
     Real If(Card(tcl_eval),True,
     {
-    //WriteLn("LoadTcl _MultiDimSelect.tcl:\n"+MultiDimSelect.tcl+"\n");
+    //WriteLn("TRACE LoadTcl _MultiDimSelect.tcl:\n"+MultiDimSelect.tcl+"\n");
       Text temp = TmpDir+"MultiDimSelect.tcl";
       Text WriteFile(temp, _MultiDimSelect.tcl);
       Set @MultiDimSelect::tcl_eval := 
         Tcl_EvalEx( [[ "source", temp ]] );
-      WriteLn("LoadTcl _tcl_eval:\n"<<@MultiDimSelect::tcl_eval+"\n");
+    //WriteLn("TRACE LoadTcl _tcl_eval:\n"<<@MultiDimSelect::tcl_eval+"\n");
       True
     })