OCC19308 FIP #24.6 Make consistent Standard_CString and Standard_ExtString definition.

diff --git a/src/WOKTCL/WOKTCL_Interpretor.cxx b/src/WOKTCL/WOKTCL_Interpretor.cxx
index 31c43cdf7d9ff17bb988287a4ed7d429565176bd..649c41784c9ffd2d0c66d6b7e8c8760c8a191da1 100755 (executable)
--- a/src/WOKTCL/WOKTCL_Interpretor.cxx
+++ b/src/WOKTCL/WOKTCL_Interpretor.cxx
@@ -57,12 +57,16 @@ void WOKTCL_Interpretor::Add(const Standard_CString Command,
                             const Standard_CString Group)
 {
   CData* C = new CData(Function,this);
-   
-  Tcl_CreateCommand(Interp(), Command, DefaultCommand, (ClientData) C, DefaultCommandDelete);
+  Standard_PCharacter pCommand, pHelp, pGroup;
+  //
+  pCommand=(Standard_PCharacter)Command;
+  pHelp=(Standard_PCharacter)Help;
+  pGroup=(Standard_PCharacter)Group;
+  Tcl_CreateCommand(Interp(), pCommand, DefaultCommand, (ClientData) C, DefaultCommandDelete);
   
   // add the help
-  Tcl_SetVar2(Interp(),"WOKTCL_Helps", Command,Help,TCL_GLOBAL_ONLY);
-  Tcl_SetVar2(Interp(),"WOKTCL_Groups",Group,Command,
+  Tcl_SetVar2(Interp(),"WOKTCL_Helps", pCommand,pHelp,TCL_GLOBAL_ONLY);
+  Tcl_SetVar2(Interp(),"WOKTCL_Groups",pGroup,pCommand,
              TCL_GLOBAL_ONLY|TCL_APPEND_VALUE|TCL_LIST_ELEMENT);
 }