GedManagement.c File Reference

#include "GedManagement.h"
#include "TCL_Global.h"

Include dependency graph for GedManagement.c:

Go to the source code of this file.

Functions
static Tcl_Interp *	getGedInterpreter (void)
int	sciDestroyGed (int figureId)
int	isGedOpenedOn (int figureId)

---

Function Documentation

static Tcl_Interp * getGedInterpreter

(

void

)

[static]

Definition at line 70 of file GedManagement.c.

References TCLinterp.

Referenced by isGedOpenedOn(), and sciDestroyGed().

{
  return TCLinterp ;
}

Here is the caller graph for this function:

int isGedOpenedOn

(

int

figureId

)

Definition at line 32 of file GedManagement.c.

References FALSE, getGedInterpreter(), NULL, and TRUE.

{
  Tcl_Interp * gedInterp = getGedInterpreter() ;
  if ( gedInterp != NULL )
  {
    /* check is sciGedIsAlive variable exists */
    char * sGedWindowNum = (char * ) Tcl_GetVar( gedInterp, "sciGedIsAlive", TCL_GLOBAL_ONLY ) ;
    if ( sGedWindowNum )
    {
      /* get the number of the window ged modified */
      int iGedWindowNum ;
      sscanf( sGedWindowNum, "%d", &iGedWindowNum ) ;
      /* check if ged is opened on the checked window */
      if ( iGedWindowNum == figureId )
      {
        return TRUE ;
      }
      else
      {
        return FALSE ;
      }
    }
    else
    {
      return FALSE ;
    }
  }
  else
  {
    /* tcl has not been initialized yet */
    return FALSE ;
  }
}

Here is the call graph for this function:

int sciDestroyGed

(

int

figureId

)

Definition at line 14 of file GedManagement.c.

References getGedInterpreter(), and isGedOpenedOn().

{
  Tcl_Interp * gedInterp = getGedInterpreter() ;
  if ( isGedOpenedOn( figureId ) )
  {
    /* try to close the ticks editor */
    Tcl_Eval( gedInterp, "catch { destroy .ticks }" ) ;
    /* try to close the editor */
    Tcl_Eval( gedInterp, "catch { destroy .axes }"  ) ;
    return 0 ;
  }
  else
  {
    return 1 ;
  }
}

Here is the call graph for this function:

---