Changeset 820bb4e in tol

Timestamp:

Dec 21, 2016, 11:31:36 AM (10 years ago)

Author:

Pedro Gea <pgea@…>

Branches:

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

Children:

935c832

Parents:

91585e2

Message:

Refs #1933
Se revisa [7378].

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

Files:

• tol/stdlib/_init_stdlib.tol (modified) (1 diff)
• tolbase/lib/toltk/init_toltk.tcl (modified) (1 diff)

tol/stdlib/_init_stdlib.tol

@@ -125 +125 @@
 // TolPackage Client initialization
 //////////////////////////////////////////////////////////////////////////////
-Real If(OSName=="WINDOWS", {
-  // Se cambia el directorio actual al bin de TOL para evitar errores
-  // en la carga de libcurl-4.dll al llamar a tolbase64 desde un archivo BATCH
-  Set Tcl_Eval("cd {"<<TOLSH_PATH<<"}");
-1});
 Real TolPackage::Client::Initialize(0);
 

tolbase/lib/toltk/init_toltk.tcl

@@ -86 +86 @@
   #En un futuro cambiar
   package require bfunctions
+  #@ Se incorpora aquí para evitar errores localizando la libcurl-4.dll
+  #@ cuando la carga se pospone y se hace en el marco de un proyecto: project
+  package require TclCurl
 }