/*--------------------------------------------------------------------------*/ BOOL InitializeTclTk(void) { if ( getScilabMode() != SCILAB_NWNI ) { setTkStarted(TRUE); if ( OpenTCLsci() != 0 ) { setTkStarted(FALSE); } } return isTkStarted(); }
/*--------------------------------------------------------------------------*/ BOOL CloseTCLsci(void) { if ( getScilabMode() != SCILAB_NWNI ) { if (isTkStarted()) { setTkStarted(FALSE); __WaitThreadDie(TclThread); deleteTclInterp(); TKmainWindow = NULL; return TRUE; } } return FALSE; }