From 6fb9ca899aab545ff77c69e9fc34493d41a0ccd5 Mon Sep 17 00:00:00 2001
From: vsr <vsr@opencascade.com>
Date: Tue, 1 Feb 2005 08:04:29 +0000
Subject: [PATCH] PAL7832: Ignore 'Interface Applicative' component and it's
 children in the UseCase browser.

---
 src/SALOMEGUI/QAD_ObjectBrowser.cxx | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/SALOMEGUI/QAD_ObjectBrowser.cxx b/src/SALOMEGUI/QAD_ObjectBrowser.cxx
index 8dbcba9f0..e97f591ed 100644
--- a/src/SALOMEGUI/QAD_ObjectBrowser.cxx
+++ b/src/SALOMEGUI/QAD_ObjectBrowser.cxx
@@ -1052,6 +1052,15 @@ void QAD_ObjectBrowser::UpdateUCItem( SALOMEDS::SObject_var UCObject, QAD_Object
   if ( myStudy->_is_nil() || !UCItem ) 
     return;
 
+  // --- VSR: 01/02/05 --- start
+  // skip all 'Interface Applicative' objects
+  SALOMEDS::SComponent_var SCO = UCObject->GetFatherComponent();
+  CORBA::String_var aCorbaString = SCO->ComponentDataType();
+  QString dataType = aCorbaString.in();
+  if ( dataType.compare("Interface Applicative") == 0 )
+    return;
+  // --- VSR: 01/02/05 --- finish
+
   /* Creating SObjects item */
   SALOMEDS::SObject_var                      RefSO;
   SALOMEDS::GenericAttribute_var             anAttr;
-- 
2.39.2