From: cas <cas@opencascade.com>
Date: Wed, 24 Nov 1999 18:03:07 +0000 (+0000)
Subject: No comments
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=aceb2132d64e3d3baa458f2a79fbe05dc7a4d49a;p=occt-wok.git

No comments
---

diff --git a/src/MS/MS_Client.cdl b/src/MS/MS_Client.cdl
index 42e5789..fe69124 100755
--- a/src/MS/MS_Client.cdl
+++ b/src/MS/MS_Client.cdl
@@ -36,10 +36,15 @@ is
 		 CompleteMap         : in out MapOfHAsciiString from WOKTools;
 	     	 IncompleteMap       : in out MapOfHAsciiString from WOKTools;
 		 SemiCompleteMap     : in out MapOfHAsciiString from WOKTools);
+
+    Use ( me : mutable; aClient : HAsciiString from TCollection );
+
+    Uses ( me ) returns mutable HSequenceOfHAsciiString from TColStd;
 		 
 fields
     myInterfaces  : HSequenceOfHAsciiString from TColStd;
     myMethods     : HSequenceOfHAsciiString from TColStd;
+    myUses        : HSequenceOfHAsciiString from TColStd;
 
 end Client from MS;
 
diff --git a/src/MS/MS_Client.cxx b/src/MS/MS_Client.cxx
index 2d615e1..b677ad2 100755
--- a/src/MS/MS_Client.cxx
+++ b/src/MS/MS_Client.cxx
@@ -7,6 +7,7 @@ MS_Client::MS_Client(const Handle(TCollection_HAsciiString)& aClient) : MS_Globa
 {
   myInterfaces = new TColStd_HSequenceOfHAsciiString;
   myMethods    = new TColStd_HSequenceOfHAsciiString;
+  myUses       = new TColStd_HSequenceOfHAsciiString;
 }
 
 void MS_Client::Interface(const Handle(TCollection_HAsciiString)& anInter)
@@ -67,3 +68,18 @@ void MS_Client::ComputeTypes(const Handle(MS_HSequenceOfExternMet)& SeqOfExternM
     }
   }
 }
+
+void MS_Client :: Use (  const Handle( TCollection_HAsciiString )& aClient  ) {
+
+ myUses -> Append ( aClient );
+
+}  // end MS_Client :: Use
+
+Handle( TColStd_HSequenceOfHAsciiString ) MS_Client :: Uses () const {
+
+ return myUses;
+
+}  // end MS_Client :: Uses
+
+
+