/***************************************************************************************/
/*                                                                                     */
/*  SCS editor Version 2                                                               */
/*  File : ErrorsInterface.pkg                                                         */
/*  Version : 19 Juillet 2000                                                          */
/*  Errors complements                                                                 */
/*                                                                                     */
/***************************************************************************************/

/* complement to Errors API */

fun ERRORS_SetCallbacks( errors, add )=
  set errors.ERRORSreflex = add;
  0;;

fun ERRORS_AddError( level, id, content )=
  /* Check if error log popup window must be shown */
  let (PARAMS_GetI SCSparameters "INTERFACE_IS_POPUPERRORLOG") -> display in
  if (display!=0 && scsgui.SCSGUIwindowManager!=nil) then (GUI_Show POPUPWIN_ERRORLOG; 0) else 0;

  let SCSDATA_GetErrors -> errors in
    ERRORS_Add errors level id content ;;