From f2ad321b99d53c2dcb3fe300c05c4b56aeb9d0fe Mon Sep 17 00:00:00 2001
From: vsr <vsr@opencascade.com>
Date: Thu, 17 Mar 2005 14:00:41 +0000
Subject: [PATCH] PAL8376

---
 src/GEOMGUI/GeometryGUI_Swig.cxx | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/src/GEOMGUI/GeometryGUI_Swig.cxx b/src/GEOMGUI/GeometryGUI_Swig.cxx
index ead4659da..662231158 100644
--- a/src/GEOMGUI/GeometryGUI_Swig.cxx
+++ b/src/GEOMGUI/GeometryGUI_Swig.cxx
@@ -50,6 +50,9 @@
 #include <TopoDS_Edge.hxx>
 #include <TopoDS_Face.hxx>
 #include <TopoDS_Iterator.hxx>
+#include <AIS_ListOfInteractive.hxx>
+#include <AIS_ListIteratorOfListOfInteractive.hxx>
+#include <V3d_Viewer.hxx>
 
 #include "SALOME_Event.hxx"
 
@@ -162,7 +165,6 @@ void GEOM_Swig::createAndDisplayGO(const char* Entry)
 	    Handle(GEOM_AISShape) aSh = new GEOM_AISShape(myShape,const_cast<char*>(myName));
 	    aSh->setName(const_cast<char*>(myName));
 	    aSh->setIO(myIO);
-	    
 	    ic->Display(aSh);
 	    ic->AddOrRemoveCurrentObject(aSh,true);
 	  }
@@ -370,7 +372,26 @@ void GEOM_Swig::setColor(const char* theEntry, int red, int green, int blue)
 	myRenderInter->Update();
       }else if(OCCViewer_ViewFrame* aViewFrame = GetFrame<OCCViewer_ViewFrame>(myStudy)){
 	OCCViewer_Viewer3d* v3d = aViewFrame->getViewer();
-	v3d->SetColor(myIO,myParam);
+	Handle(AIS_InteractiveContext) ic = aViewFrame->getViewer()->getAISContext();
+	AIS_ListOfInteractive List;
+	ic->DisplayedObjects(List);
+	AIS_ListIteratorOfListOfInteractive ite(List);
+	for ( ; ite.More(); ite.Next() ) {
+	  Handle(SALOME_InteractiveObject) anObj =
+	    Handle(SALOME_InteractiveObject)::DownCast( ite.Value()->GetOwner() );
+	  if ( !anObj.IsNull() && anObj->hasEntry() && anObj->isSame( myIO ) ) {
+	    Quantity_Color CSFColor = Quantity_Color ( myParam.red()   / 255.,
+						       myParam.green() / 255.,
+						       myParam.blue()  / 255.,
+						       Quantity_TOC_RGB );
+	    ite.Value()->SetColor( CSFColor );
+	    if ( ite.Value()->IsKind( STANDARD_TYPE(GEOM_AISShape) ) )
+              Handle(GEOM_AISShape)::DownCast( ite.Value() )->SetShadingColor( CSFColor );
+	    ite.Value()->Redisplay( Standard_True );
+	    v3d->getViewer3d()->Update();
+	    break;
+	  }
+	}
       }
     }
   };
-- 
2.39.2