home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Science / Science.zip / fblnk224.zip / error.c < prev    next >
C/C++ Source or Header  |  1999-01-28  |  849b  |  45 lines
  1. /*  error.c for Fitsblink 1.2  */
  2. /* User interface */
  3. #include <stdio.h>
  4. #include <stdlib.h>
  5. #include <ctype.h>
  6. #include <math.h>
  7. #include <string.h>
  8.  
  9. #include <forms.h>
  10. #include <fitsio.h>
  11.  
  12. #ifdef HPUX
  13. #include <macros.h>
  14. #endif
  15.  
  16. #include "formblink.h"
  17. #include "functs.h"
  18. #include "consts.h"
  19.  
  20. extern STATE state;
  21. extern BLINK_FRAME *frame;
  22.  
  23.  
  24. void
  25. show_errors(int errnum, char **errors) 
  26.  
  27. {
  28.   int i;
  29.  
  30.   if (state.error == NULL) {
  31.     state.error = create_form_Error();
  32.   }
  33.   /*  Deactivate all forms */
  34.   fl_deactivate_all_forms();
  35.   /*  Show the form  */
  36.   fl_show_form(state.error->Error, FL_PLACE_FREE_CENTER, FL_FULLBORDER, "");
  37.   for (i = 0; i < errnum; i++) {
  38.     fl_addto_browser(state.error->errorW, errors[i]);
  39.   }
  40.   fl_do_forms();
  41.   fl_clear_browser(state.error->errorW);
  42.   fl_hide_form(state.error->Error);
  43.   fl_activate_all_forms();
  44. }
  45.