(main): Minor fixes.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1141 72102866-910b-0410-8b05-ffd578937521
This commit is contained in:
mccallum 1996-03-13 02:42:35 +00:00
parent a427d53618
commit 75875297ec

View file

@ -31,7 +31,7 @@ int main (int argc, char *argv[])
in_port = [TcpInPort newForReceiving]; in_port = [TcpInPort newForReceiving];
[in_port setPacketInvocation: [in_port setReceivedPacketInvocation:
[[[ObjectFunctionInvocation alloc] [[[ObjectFunctionInvocation alloc]
initWithObjectFunction: handle_incoming_packet] initWithObjectFunction: handle_incoming_packet]
autorelease]]; autorelease]];
@ -40,10 +40,10 @@ int main (int argc, char *argv[])
for (i = 0; i < 10; i++) for (i = 0; i < 10; i++)
{ {
packet = [[TcpPacket alloc] initForSendingWithCapacity: 100 packet = [[TcpOutPacket alloc] initForSendingWithCapacity: 100
replyPort: in_port]; replyInPort: in_port];
[packet writeFormat: @"Here is message number %d", i]; [packet writeFormat: @"Here is message number %d", i];
[out_port sendPacket: packet withTimeout: 20 * 1000]; [out_port sendPacket: packet];
[packet release]; [packet release];
[RunLoop runUntilDate: [NSDate dateWithTimeIntervalSinceNow: 1.0]]; [RunLoop runUntilDate: [NSDate dateWithTimeIntervalSinceNow: 1.0]];