This is MailSpeaker.m in view mode; [Download] [Up]
#import <appkit/appkit.h>
#import "MailSpeaker.h"
#import <mach/mach.h>
#import <mach/message.h>
#import <servers/netname.h>
extern port_t name_server_port;
extern id NXResponsibleDelegate();
@implementation MailSpeaker :Speaker
{}
-(int)openSend
/* */
{
return [self selectorRPC:"openSend"
paramTypes:""];
}
-(int)setTo : (char *) aString
/* */
{
return [self selectorRPC:"setTo:"
paramTypes:"c",
aString];
}
-(int)setSubject : (char *) aString
/* */
{
return [self selectorRPC:"setSubject:"
paramTypes:"c",
aString];
}
-(int)setCc : (char *) aString
/* */
{
return [self selectorRPC:"setCc:"
paramTypes:"c",
aString];
}
-(int)setBody : (char *) aString
/* */
{
return [self selectorRPC:"setBody:"
paramTypes:"c",
aString];
}
-(int)deliver
/* */
{
return [self selectorRPC:"deliver"
paramTypes:""];
}
-(int)openSend : (int *) mailWindowNumPtr
/* */
{
return [self selectorRPC:"openSend:"
paramTypes:"I",
mailWindowNumPtr];
}
-(int)setTo : (char *) aString
inWindow : (int) mailWindowNum
/* */
{
return [self selectorRPC:"setTo:inWindow:"
paramTypes:"ci",
aString,
mailWindowNum];
}
-(int)setSubject : (char *) aString
inWindow : (int) mailWindowNum
/* */
{
return [self selectorRPC:"setSubject:inWindow:"
paramTypes:"ci",
aString,
mailWindowNum];
}
-(int)setCc : (char *) aString
inWindow : (int) mailWindowNum
/* */
{
return [self selectorRPC:"setCc:inWindow:"
paramTypes:"ci",
aString,
mailWindowNum];
}
-(int)setBody : (char *) aString
inWindow : (int) mailWindowNum
/* */
{
return [self selectorRPC:"setBody:inWindow:"
paramTypes:"ci",
aString,
mailWindowNum];
}
-(int)deliver : (int) mailWindowNum
/* */
{
return [self selectorRPC:"deliver:"
paramTypes:"i",
mailWindowNum];
}
@end
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.