From c7560c1d065c979bdff2ff492a07e1801e7c63d4 Mon Sep 17 00:00:00 2001
From: Andrew McCallum <mccallum@gnu.org>
Date: Tue, 12 Mar 1996 14:50:46 +0000
Subject: [PATCH] ([InPort -init]): Set _packet_invocation. ([InPort
 -setPacketInvocation:]): New method. ([InPort -addToRunLoop:forMode:]): New
 method. ([InPort -removeFromRunLoop:forMode:]): New method.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1106 72102866-910b-0410-8b05-ffd578937521
---
 Source/Port.m | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/Source/Port.m b/Source/Port.m
index c8acbba5e..fc59f9388 100644
--- a/Source/Port.m
+++ b/Source/Port.m
@@ -104,6 +104,13 @@
 
 @implementation InPort
 
+- init
+{
+  [super init];
+  _packet_invocation = nil;
+  return self;
+}
+
 + newForReceivingFromRegisteredName: (id <String>)name
 {
   [self subclassResponsibility:_cmd];
@@ -121,6 +128,21 @@
   return nil;
 }
 
+- (void) setPacketInvocation: (id <Invoking>)invocation
+{
+  _packet_invocation = invocation;
+}
+
+- (void) addToRunLoop: run_loop forMode: (id <String>)mode
+{
+  [self subclassResponsibility:_cmd];
+}
+
+- (void) removeFromRunLoop: run_loop forMode: (id <String>)mode
+{
+  [self subclassResponsibility:_cmd];
+}
+
 @end