Changeset c6181a1 in tol

Timestamp:

Mar 16, 2016, 11:30:04 AM (11 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

15c8a64

Parents:

6688079

Message:

fixes #1916, no se estaban rellenado las variables argc y argv de tcl

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

File:

• tolbase/generic/tolbase.c (modified) (2 diffs)

tolbase/generic/tolbase.c

@@ -103 +103 @@
 #endif
 
+  g_argc = argc;
+  g_argv = argv;
 #ifndef WIN32
     const char * version = TOLVersion();
 #endif
-    Tk_Main(argc, argv, TK_LOCAL_APPINIT);
+    Tk_Main( 1, argv, TK_LOCAL_APPINIT);
     return 0;                   /* Needed only to prevent compiler warning. */
 }
@@ -166 +168 @@
      */
 
+    SetupArgv( interp );
 #if defined(WIN32)
-    SetupArgv( interp );
     Tcl_VarEval( interp, "lappend", " auto_path", " [file join",
                  " [file dir [file dir ", Tcl_GetNameOfExecutable(),