InitTclTk.h File Reference

#include "TCL_Global.h"

Include dependency graph for InitTclTk.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
void	initTCLTK (void)
int	OpenTCLsci (void)
int	CloseTCLsci (void)

---

Function Documentation

int CloseTCLsci

(

void

)

TODO : comment

Returns:

Definition at line 170 of file InitTclTk.c.

Referenced by C2F(), and TerminateTclTk().

{
        int bOK=0;
        if ( GetWITH_GUI() )
        {
                if (TK_Started)
                {
                        Tcl_DeleteInterp(TCLinterp);
                        TCLinterp=NULL;
                        TKmainWindow=NULL;
                        bOK=1;
                        TK_Started=0;
                }
        }
        return bOK;
}

Here is the caller graph for this function:

void initTCLTK

(

void

)

TODO : comment

Definition at line 32 of file InitTclTk.c.

{
        if ( GetWITH_GUI() )
        {
                if ( OpenTCLsci()==0 ) 
                {
                        TK_Started=1;
                }
                else
                {
                        TK_Started=0;
                }
        }
        else
        {
                TK_Started=0;
        }
}

int OpenTCLsci

(

void

)

TODO : comment

Returns:

Definition at line 51 of file InitTclTk.c.

References DIR, flushTKEvents(), FREE, GetSciPath(), NULL, sciprint(), TCL_ERROR1, TCL_ERROR2, TCL_ERROR3, TCL_ERROR4, TCL_EvalScilabCmd(), TCL_WARNING1, TCL_WARNING2, TCLinterp, TKmainWindow, tmpdir, and XTKsocket.

Referenced by initTCLTK().

{
  char *SciPath=NULL;
  char TkScriptpath[2048];
  char MyCommand[2048];

#ifndef _MSC_VER
  DIR *tmpdir=NULL;
  Display *XTKdisplay;
#endif

  FILE *tmpfile2=NULL;

#ifdef TCL_MAJOR_VERSION
  #ifdef TCL_MINOR_VERSION
    #if TCL_MAJOR_VERSION >= 8
      #if TCL_MINOR_VERSION > 0
         Tcl_FindExecutable(" ");
      #endif
    #endif
  #endif
#endif
  SciPath=GetSciPath();
  
  /* test SCI validity */
  if (SciPath==NULL)
    {
      sciprint(TCL_WARNING1);
      return(1);
    }

#ifdef _MSC_VER
  strcpy(TkScriptpath, SciPath);
  strcat(TkScriptpath, "/modules/tclsci/tcl/TK_Scilab.tcl");

  tmpfile2 = fopen(TkScriptpath,"r");
  if (tmpfile2==NULL) 
    {
      sciprint(TCL_WARNING2);
      return(1);
    }
  else fclose(tmpfile2);
#else
  tmpdir=opendir(SciPath);
  if (tmpdir==NULL) 
    {
      sciprint(TCL_WARNING1);
      return(1);
    }
  else closedir(tmpdir);
  strcpy(TkScriptpath,SciPath);
  strcat(TkScriptpath, "/modules/tclsci/tcl/TK_Scilab.tcl");
  tmpfile2 = fopen(TkScriptpath,"r");
  if (tmpfile2==NULL) 
    {
      sciprint(TCL_WARNING2);
      return(1);
    }
  else fclose(tmpfile2);
#endif /* _MSC_VER */ 
  
  if (TCLinterp == NULL) 
    {
      TCLinterp = Tcl_CreateInterp();
          if ( TCLinterp == NULL )
          {
            Scierror(999,TCL_ERROR1);
                return (1);
          }

      if ( Tcl_Init(TCLinterp) == TCL_ERROR)
          {
                Scierror(999,TCL_ERROR2);
                return (1);
          }

      if ( Tk_Init(TCLinterp) == TCL_ERROR)
          {
                Scierror(999,TCL_ERROR3);
                return (1);
          }

      sprintf(MyCommand, "set SciPath \"%s\";",SciPath); 
      
          if ( Tcl_Eval(TCLinterp,MyCommand) == TCL_ERROR  )
          {
                Scierror(999,TCL_ERROR4,TCLinterp->result);
                return (1);
          }
      
          Tcl_CreateCommand(TCLinterp,"ScilabEval",TCL_EvalScilabCmd,(ClientData)1,NULL);
    }
   
  if (TKmainWindow == NULL)
    {
      TKmainWindow = Tk_MainWindow(TCLinterp);
          #ifndef _MSC_VER
        XTKdisplay=Tk_Display(TKmainWindow);
        XTKsocket = ConnectionNumber(XTKdisplay);
          #endif
      
      Tk_GeometryRequest(TKmainWindow,2,2);

          if ( Tcl_EvalFile(TCLinterp,TkScriptpath) == TCL_ERROR  )
          {
                Scierror(999,TCL_ERROR4,TCLinterp->result);
                return (1);
          }

      flushTKEvents();
    }

  if (SciPath) {FREE(SciPath);SciPath=NULL;}
  return(0);

}

Here is the call graph for this function:

Here is the caller graph for this function:

---