From bef18bde62e812d9160962e7d3667c22b8aae962 Mon Sep 17 00:00:00 2001
From: mccallum <mccallum@72102866-910b-0410-8b05-ffd578937521>
Date: Mon, 18 Mar 1996 19:41:17 +0000
Subject: [PATCH] (main): Add port to run loop using new scheme.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1190 72102866-910b-0410-8b05-ffd578937521
---
 Testing/tcpport-client.m | 3 ++-
 Testing/tcpport-server.m | 5 +++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/Testing/tcpport-client.m b/Testing/tcpport-client.m
index 9c3a4b98b..85941908b 100644
--- a/Testing/tcpport-client.m
+++ b/Testing/tcpport-client.m
@@ -36,7 +36,8 @@ int main (int argc, char *argv[])
 		initWithObjectFunction: handle_incoming_packet]
 	       autorelease]];
 
-  [in_port addToRunLoop: [RunLoop currentInstance] forMode: nil];
+  [[RunLoop currentInstance] addPort: in_port
+			     forMode: RunLoopDefaultMode];
   
   for (i = 0; i < 10; i++)
     {
diff --git a/Testing/tcpport-server.m b/Testing/tcpport-server.m
index a02fdf8d5..eb1f69a72 100644
--- a/Testing/tcpport-server.m
+++ b/Testing/tcpport-server.m
@@ -76,8 +76,9 @@ int main (int argc, char *argv[])
 	  [[[ObjectFunctionInvocation alloc]
 	     initWithObjectFunction: handle_incoming_packet]
 	    autorelease]];
-  [port addToRunLoop: [RunLoop currentInstance] forMode: nil];
-  [[RunLoop currentInstance] run];
+  [[RunLoop currentInstance] addPort: port
+			     forMode: RunLoopDefaultMode];
+  [RunLoop run];
 #else
   {
     id packet;