notclsci.c

Go to the documentation of this file.

/*-----------------------------------------------------------------------------------*/
/* INRIA 2006 */
/* Allan CORNET */
/*-----------------------------------------------------------------------------------*/ 
#include "machine.h" 
/*-----------------------------------------------------------------------------------*/ 
extern int  Scierror __PARAMS((int iv,char *fmt,...));
/*-----------------------------------------------------------------------------------*/ 
int C2F(withtk)(int *rep)
{ 
        *rep =0; 
        return 0;
}
/*-----------------------------------------------------------------------------------*/ 
int CloseTCLsci(void)
{
        return 0;
}
/*-----------------------------------------------------------------------------------*/ 
int GetTclCurrentFigure( void )
{
        return 0;
}
/*-----------------------------------------------------------------------------------*/ 
BOOL Set_TCL_LIBRARY_PATH(char *DefaultPath)
{
        return TRUE;
}
/*-----------------------------------------------------------------------------------*/ 
BOOL Set_TK_LIBRARY_PATH(char *DefaultPath)
{
        return TRUE;
}
/*-----------------------------------------------------------------------------------*/ 
void flushTKEvents(void)
{
}
/*-----------------------------------------------------------------------------------*/ 
int TclEventsLoop(void)
{
        return 0;
}
/*-----------------------------------------------------------------------------------*/ 
int C2F(gw_tclsci)()
{
        Scierror(999,"TCL/TK interface not installed.\r\n");
        return 0;
}
/*-----------------------------------------------------------------------------------*/ 
void initTCLTK(void)
{
}
/*-----------------------------------------------------------------------------------*/ 
int sciDestroyGed( int figureId )
{
        return 1;
}
/*-----------------------------------------------------------------------------------*/ 
int isGedOpenedOn( int figureId )
{
        return FALSE;
}
/*-----------------------------------------------------------------------------------*/ 
int setenvtcl(char *string,char *value)
{
        return TRUE;
}
/*-----------------------------------------------------------------------------------*/ 
void C2F(tksynchro)( int *l)
{
}
/*-----------------------------------------------------------------------------------*/ 
BOOL InitializeTclTk(void)
{
        BOOL bOK=FALSE;
        return bOK;
}
/*-----------------------------------------------------------------------------------*/ 
BOOL TerminateTclTk(void)
{
        return TRUE;
}
/*-----------------------------------------------------------------------------------*/ 
        

---