From 42bcca6daf777ffad8175b1fffd82b3f9b797fe0 Mon Sep 17 00:00:00 2001 From: cascade Date: Fri, 15 Aug 2008 17:57:14 +0000 Subject: [PATCH] OCC20196 Problem with DRAW commands that use pick as arguments. --- src/WOKTclTools/WOKTclTools_Interpretor.cxx | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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 } //======================================================================= -- 2.39.5