1 files changed, 26 insertions, 0 deletions
diff --git a/comm/OLD/Service.cc b/comm/OLD/Service.cc
index be28b60..df14025 100644
--- a/comm/OLD/Service.cc
+++ b/comm/OLD/Service.cc
@@ -192,6 +192,32 @@ UchService :: PutBackEvent (UchMessage* ev)
 }
 
 
+/*?class UchEventMsg
+\typ{UchEventMsg} is the base class for event messages to be used with
+\typ{UchService}s. The difference between an \typ{UchEventMsg} and a
+\typ{UchMessage} lies in the function \fun{Activate}: event messages
+add themselves to the event queue.
+?*/
+
+/*?nodoc?*/
+UchEventMsg :: UchEventMsg ()
+{
+}
+
+/*?nodoc?*/
+UchEventMsg :: ~UchEventMsg ()
+{
+}
+
+/*?nodoc?*/
+bool
+UchEventMsg :: Activate (UchMsgStream& s, bool)
+{
+	UchService* svc = (UchService*) &s;
+	svc->PutEvent (this);
+	return true;
+}
+
 /*?class UchGenMsg
 This is a sample derived class of \typ{UchEventMsg}.
 It defines events that contain a pointer to a \typ{UchMessage}.