model_server/gala/src/view.cxx
// GetInterpVariable - Returns TCL value of the given variable.
Returns TCL value of the given variable.
Returns TCL value of the given variable .
vchar* View::GetInterpVariable (vchar* variable)
{
vchar *  value = NULL;
    if (variable)
        value = (vchar *) Tcl_GetVar(interp(), (char *) variable,
                                      TCL_GLOBAL_ONLY);
    return value;
}
vchar * View :: GetInterpVariable ( vchar * variable ) { vchar * value = NULL ; if ( variable ) value = ( vchar * ) Tcl_GetVar ( interp ( ) , ( char * ) variable , TCL_GLOBAL_ONLY ) ; return value ; }
GetInterpVariable - Returns TCL value of the given variable.
GetInterpVariable - Returns TCL value of the given variable .