From 40c159cd686fa1822b243248459ec3cee69b786a Mon Sep 17 00:00:00 2001 From: cascade Date: Thu, 8 May 2008 17:11:10 +0000 Subject: [PATCH] OCC19308 FIP #24.6 Make consistent Standard_CString and Standard_ExtString definition. --- src/WOKTCL/WOKTCL_Interpretor.cxx | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/src/WOKTCL/WOKTCL_Interpretor.cxx b/src/WOKTCL/WOKTCL_Interpretor.cxx index 31c43cd..649c417 100755 --- 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); } -- 2.39.5