tksynchro.h File Reference

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

Go to the source code of this file.

Functions
void C2F()	tksynchro (int *l)

---

Function Documentation

void C2F() tksynchro

(

int *

l

)

TODO : comment

Parameters:

l

Definition at line 10 of file tksynchro.c.

References l, NULL, str, TCLinterp, and TK_Started.

{
  char str[128];

  if (TK_Started) 
  {
    int RET;

    if(TCLinterp != NULL)
        {
      RET = Tcl_Eval(TCLinterp,"set isscipadinterp [interp exists scipad]");
      if (RET==TCL_ERROR)
          {
                Scierror(999,"Error : tksynchro %s \r\n",TCLinterp->result);
      }
      if(strcmp((char*) Tcl_GetVar(TCLinterp,"isscipadinterp", TCL_GLOBAL_ONLY),"1")==0)
          {
                sprintf(str,"scipad eval {set sciprompt %d}",*l);
                RET=Tcl_Eval(TCLinterp,str);
          
                if (RET==TCL_ERROR)
            {
              Scierror(999,"Error : tksynchro %s \r\n",TCLinterp->result);
            }
          }
    }
  }
}

---