diff options
Diffstat (limited to 'generic/tkbltGraphOp.C')
-rw-r--r-- | generic/tkbltGraphOp.C | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkbltGraphOp.C b/generic/tkbltGraphOp.C index 9d4f45b..6588d64 100644 --- a/generic/tkbltGraphOp.C +++ b/generic/tkbltGraphOp.C @@ -294,8 +294,8 @@ static int TransformOp(ClientData clientData, Tcl_Interp* interp, int objc, Point2d point = graphPtr->map2D(x, y, xAxis, yAxis); Tcl_Obj* listObjPtr = Tcl_NewListObj(0, (Tcl_Obj **)NULL); - Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj(point.x)); - Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj(point.y)); + Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj((int)point.x)); + Tcl_ListObjAppendElement(interp, listObjPtr, Tcl_NewIntObj((int)point.y)); Tcl_SetObjResult(interp, listObjPtr); return TCL_OK; |