From 6b7a99ee2c89f0ba590552e2cfa50cffa0947fd9 Mon Sep 17 00:00:00 2001
From: apo <apo@opencascade.com>
Date: Fri, 7 Dec 2007 08:02:56 +0000
Subject: [PATCH] Integration of development done in the
 MERGE_MULTIPR_EVOLUTION CVS branch

---
 src/MULTIPRGUI/MULTIPR_GUI.cxx | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/src/MULTIPRGUI/MULTIPR_GUI.cxx b/src/MULTIPRGUI/MULTIPR_GUI.cxx
index 8475e1d..466a8da 100644
--- a/src/MULTIPRGUI/MULTIPR_GUI.cxx
+++ b/src/MULTIPRGUI/MULTIPR_GUI.cxx
@@ -374,6 +374,20 @@ bool MULTIPR_GUI::activateModule(SUIT_Study* theStudy)
       aStudyDS = _CAST(Study,aStudy)->GetStudy();
     aGen->SetCurrentStudy(aStudyDS);
 
+    // Init mMULTIPRObj
+    _PTR(SComponent) aSComp = aStudy->FindComponent(name());
+    if (aSComp) {
+      _PTR(ChildIterator) it (aStudy->NewChildIterator(aSComp));
+      if (it->More()) {
+        _PTR(SObject) aSObj = it->Value();
+        string anIOR = aSObj->GetIOR();
+        if (!anIOR.empty()) {
+          CORBA::Object_var anObj = getApp()->orb()->string_to_object(anIOR.c_str());
+          mMULTIPRObj = MULTIPR_ORB::MULTIPR_Obj::_narrow(anObj);
+        }
+      }
+    }
+
     return bOk;
 }
 
-- 
2.39.2