gala_clients/DIS_group/src/GroupApp.cxx
//
// Notify the user of an error encountered by the interpreter:
//
Notify the user of an error encountered by the interpreter.
Notify the user of an error encountered by the interpreter .
void GroupApp::NotifyTclError()
{
  Initialize(GroupApp::NotifyTclError);
  char *err = Tcl_GetVar(interpreter_instance->interp, "errorInfo", TCL_GLOBAL_ONLY);
  dis_message(NULL, MSG_ERROR, "M_SETS_TCLERR", err);
}
void GroupApp :: NotifyTclError ( ) { Initialize ( GroupApp :: NotifyTclError ) ; char * err = Tcl_GetVar ( interpreter_instance -> interp , " " , TCL_GLOBAL_ONLY ) ; dis_message ( NULL , MSG_ERROR , " " , err ) ; }
Notify the user of an error encountered by the interpreter:
Notify the user of an error encountered by the interpreter :