diff options
| author | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2017-07-21 09:20:28 (GMT) |
|---|---|---|
| committer | Adrián Medraño Calvo <adrian@medranocalvo.com> | 2017-07-21 11:40:48 (GMT) |
| commit | f14d9dc7c790f40e897bf4f3afaacdde6509adac (patch) | |
| tree | 9decc8ccfb18a38a94568feea8c9dc66e4ff6fd2 /generic/tkbltGraphOp.C | |
| parent | 095e27e5a9b983b7a20ea6bc4b9f4989ddb9a160 (diff) | |
| download | blt-f14d9dc7c790f40e897bf4f3afaacdde6509adac.zip blt-f14d9dc7c790f40e897bf4f3afaacdde6509adac.tar.gz blt-f14d9dc7c790f40e897bf4f3afaacdde6509adac.tar.bz2 | |
Enforce explicit downcasting of numeric values
As part of the change, upgrade tkblt internal structures from
short/float to int/double, as those are artifacts of the legacy code
relying on X. Downcast to short at the latest stage: when interfacing
with X.
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; |