home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / DevTools / eText5 / Source / NewXTeXT / XText0.9beta2 / XText.subproj / ErrorStream.m < prev    next >
Encoding:
Text File  |  1995-07-28  |  409 b   |  24 lines
  1. #import "ErrorStream.h"
  2. #import <appkit/Application.h>
  3. #import <appkit/Panel.h>
  4. #import <stdio.h>
  5.  
  6. @implementation ErrorStream
  7.  
  8. static id default_error_stream = 0;
  9.  
  10. + default
  11. {
  12.     if (!default_error_stream)
  13.         default_error_stream = [[ErrorStream allocFromZone:[NXApp zone]] init];
  14.     return default_error_stream;
  15. }
  16.  
  17. - report: (const STR) msg
  18. {
  19.     NXRunAlertPanel("Error", "%s", 0, 0, 0, msg);
  20.     return self;
  21. }
  22.  
  23. @end
  24.