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 2857acc724e2d18f4b89945ea3581387730d9761..d8b9ff12aed135e5e874f0262d303accf58439e4 100755 (executable)
--- 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
 }
 
 //=======================================================================