From: cascade <cascade@opencascade.com>
Date: Fri, 15 Aug 2008 17:57:14 +0000 (+0000)
Subject: OCC20196 Problem with DRAW commands that use pick as arguments.
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=42bcca6daf777ffad8175b1fffd82b3f9b797fe0;p=occt-wok.git

OCC20196 Problem with DRAW commands that use pick as arguments.
---

diff --git a/src/WOKTclTools/WOKTclTools_Interpretor.cxx b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
index 2857acc..d8b9ff1 100755
--- a/src/WOKTclTools/WOKTclTools_Interpretor.cxx
+++ b/src/WOKTclTools/WOKTclTools_Interpretor.cxx
@@ -555,9 +555,15 @@ void WOKTclTools_Interpretor::Append(const Standard_Real i)
 //function : AppendElement
 //purpose  : 
 //=======================================================================
-void WOKTclTools_Interpretor::AppendElement(const Standard_CString s)
+void WOKTclTools_Interpretor::AppendElement(Standard_CString s)
 {
-  Tcl_AppendElement(myInterp,s);
+#ifdef IRIX
+  //AppendElement is declared as (Tcl_Interp *interp, char *string)
+  //on SGI 32
+  Tcl_AppendElement(myInterp,(char*) s);
+#else
+  Tcl_AppendElement(myInterp, s);
+#endif
 }
 
 //=======================================================================