No comments

diff --git a/src/MS/MS_Client.cdl b/src/MS/MS_Client.cdl
index 42e57897bc62d3ee27a13a0c4641ca88ac9bc31d..fe691245a03e1679f4b1bfdde75e525c56b74112 100755 (executable)
--- 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 2d615e1fbe0850d6525d170619a1e56be8ba9824..b677ad2d10a0361d3ea61709dab4ebf67e773ae1 100755 (executable)
--- 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
+
+
+