fix tcl freeze when an error occured at initialization
[scilab.git] / scilab / modules / core / src / cpp / InitScilab.cpp
index 467aaa1..b711739 100644 (file)
@@ -270,9 +270,10 @@ int StartScilabEngine(ScilabEngineInfo* _pSEI)
     InitializeWindows_tools();
 #endif
 
+    BOOL bRet = TRUE;
     if (_pSEI->iNoJvm == 0) // With JVM
     {
-        InitializeTclTk();
+        bRet = InitializeTclTk();
         InitializeJVM();
         InitializeGUI();
 
@@ -285,6 +286,12 @@ int StartScilabEngine(ScilabEngineInfo* _pSEI)
         Add_Boolean_Constant(L"%gui", true);
     }
 
+    if(bRet == FALSE)
+    {
+        std::wcerr << ConfigVariable::getLastErrorMessage() << std::endl;
+        return 1;
+    }
+
     // Make sure the default locale is applied at startup
     setlocale(LC_NUMERIC, "C");