Пример #1
0
/*--------------------------------------------------------------------------*/
BOOL InitializeTclTk(void)
{
    if ( getScilabMode() != SCILAB_NWNI )
    {
        setTkStarted(TRUE);
        if ( OpenTCLsci() != 0 )
        {
            setTkStarted(FALSE);
        }
    }
    return isTkStarted();
}
Пример #2
0
/*--------------------------------------------------------------------------*/
BOOL CloseTCLsci(void)
{
    if ( getScilabMode() != SCILAB_NWNI )
    {
        if (isTkStarted())
        {
            setTkStarted(FALSE);
            __WaitThreadDie(TclThread);
            deleteTclInterp();
            TKmainWindow = NULL;
            return TRUE;
        }
    }
    return FALSE;
}