model_server/gala/src/controlObjects.cxx
// SetInterpVariable - Sets the TCL variable to the given value.
Sets the TCL variable to the given value.
Sets the TCL variable to the given value .
void gdWidget::SetInterpVariable (const vchar* variable, const vchar* value)
{
    if (variable && value) 
	{
		char * tclVar = (char *) vcharExportAlloc(vcharScribeSystemExport(variable));
        char * tclValue =  (char *) vcharExportAlloc(vcharScribeSystemExport(value));
		Tcl_SetVar(interp(), tclVar, tclValue, TCL_GLOBAL_ONLY);
        vcharExportFree(tclVar);
        vcharExportFree(tclValue);
    }
}
void gdWidget :: SetInterpVariable ( const vchar * variable , const vchar * value ) { if ( variable && value ) { char * tclVar = ( char * ) vcharExportAlloc ( vcharScribeSystemExport ( variable ) ) ; char * tclValue = ( char * ) vcharExportAlloc ( vcharScribeSystemExport ( value ) ) ; Tcl_SetVar ( interp ( ) , tclVar , tclValue , TCL_GLOBAL_ONLY ) ; vcharExportFree ( tclVar ) ; vcharExportFree ( tclValue ) ; } }
SetInterpVariable - Sets the TCL variable to the given value.
SetInterpVariable - Sets the TCL variable to the given value .