Changeset 1465 for trunk/packages
- Timestamp:
- May 20, 2009, 3:04:55 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/packages/vizservers/nanovis/FlowCmd.cpp
r1462 r1465 709 709 cmdInfo.objClientData = (ClientData)dataPtr; 710 710 Tcl_SetCommandInfo(interp, "unirect3d", &cmdInfo); 711 if (Tcl_Eval(interp, (const char *)bytes) != TCL_OK) { 711 Tcl_Obj *objPtr; 712 objPtr = Tcl_NewStringObj(buf.bytes(), buf.size()); 713 int result; 714 Tcl_IncrRefCount(objPtr); 715 result = Tcl_GlobalEvalObj(interp, objPtr); 716 Tcl_DecrRefCount(objPtr); 717 if (result != TCL_OK) { 712 718 delete dataPtr; 713 719 return TCL_ERROR; … … 730 736 cmdInfo.objClientData = (ClientData)dataPtr; 731 737 Tcl_SetCommandInfo(interp, "unirect2d", &cmdInfo); 732 if (Tcl_Eval(interp, (const char *)bytes) != TCL_OK) { 738 Tcl_Obj *objPtr; 739 objPtr = Tcl_NewStringObj(buf.bytes(), buf.size()); 740 int result; 741 Tcl_IncrRefCount(objPtr); 742 result = Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT); 743 Tcl_DecrRefCount(objPtr); 744 if (result != TCL_OK) { 733 745 delete dataPtr; 734 746 return TCL_ERROR; … … 821 833 cmdInfo.objClientData = (ClientData)dataPtr; 822 834 Tcl_SetCommandInfo(interp, "unirect3d", &cmdInfo); 823 if (Tcl_Eval(interp, bytes) != TCL_OK) { 835 Tcl_Obj *objPtr; 836 objPtr = Tcl_NewStringObj(buf.bytes(), buf.size()); 837 int result; 838 Tcl_IncrRefCount(objPtr); 839 result = Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT); 840 Tcl_DecrRefCount(objPtr); 841 if (result != TCL_OK) { 824 842 delete dataPtr; 825 843 return TCL_ERROR; … … 842 860 cmdInfo.objClientData = (ClientData)dataPtr; 843 861 Tcl_SetCommandInfo(interp, "unirect2d", &cmdInfo); 844 if (Tcl_Eval(interp, bytes) != TCL_OK) { 862 Tcl_Obj *objPtr; 863 objPtr = Tcl_NewStringObj(buf.bytes(), buf.size()); 864 int result; 865 Tcl_IncrRefCount(objPtr); 866 result = Tcl_EvalObjEx(interp, objPtr, TCL_EVAL_GLOBAL|TCL_EVAL_DIRECT); 867 Tcl_DecrRefCount(objPtr); 868 if (result != TCL_OK) { 845 869 delete dataPtr; 846 870 return TCL_ERROR;
Note: See TracChangeset
for help on using the changeset viewer.