home *** CD-ROM | disk | FTP | other *** search
/ Nebula 1994 June / NEBULA_SE.ISO / SourceCode / Cookbook / 40.SpeakerListener / ToWebster.m < prev   
Encoding:
Text File  |  1993-01-19  |  837 b   |  39 lines
  1.  
  2. /* Generated by Interface Builder */
  3.  
  4. #import "ToWebster.h"
  5. #import <sys/port.h>
  6. #import <appkit/Control.h>
  7. #import <appkit/Speaker.h>
  8. #import <appkit/Listener.h>
  9. #import <appkit/Panel.h>
  10. #import <appkit/Application.h>
  11.  
  12. @implementation ToWebster
  13.  
  14.  
  15. - define: sender {
  16.     int    speakerResult;
  17.     int    websterResult;
  18.     port_t    websterPort;
  19.  
  20.     // [[sender window] orderOut:self];
  21.     websterPort = NXPortFromName("Webster", NULL);
  22.     
  23.     if (websterPort == PORT_NULL)  {
  24.         NXRunAlertPanel("Define...", "Port was not found, %s.\n", "OK", 0, 0, NXUserName());
  25.         return self;
  26.     }
  27.     
  28.     [[NXApp appSpeaker] setSendPort: websterPort];
  29.     
  30.     speakerResult = [[NXApp appSpeaker] openFile: [sender stringValue] ok: &websterResult];
  31.     
  32.     if (speakerResult != 0) {
  33.         NXRunAlertPanel("Define...", "Message failed, %s.\n", "OK", 0, 0, NXUserName());
  34.     }
  35.     return self;
  36. }
  37.  
  38. @end
  39.