diff options
Diffstat (limited to 'generic/tkObj.c')
| -rw-r--r-- | generic/tkObj.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/generic/tkObj.c b/generic/tkObj.c index cdea2ed..a91e460 100644 --- a/generic/tkObj.c +++ b/generic/tkObj.c @@ -108,10 +108,17 @@ static const TkObjType pixelObjType = { DupPixelInternalRep, /* dupIntRepProc */ NULL, /* updateStringProc */ NULL, /* setFromAnyProc */ - TCL_OBJTYPE_V0}, + TCL_OBJTYPE_V1(TkLengthOne)}, 0 }; +Tcl_Size +TkLengthOne( + TCL_UNUSED(Tcl_Obj *)) +{ + return 1; +} + /* * The following structure defines the implementation of the "pixel" Tcl * object, used for measuring distances. The pixel object remembers its @@ -124,7 +131,7 @@ static const TkObjType mmObjType = { DupMMInternalRep, /* dupIntRepProc */ UpdateStringOfMM, /* updateStringProc */ NULL, /* setFromAnyProc */ - TCL_OBJTYPE_V0}, + TCL_OBJTYPE_V1(TkLengthOne)}, 0 }; @@ -248,7 +255,7 @@ GetPixelsFromObjEx( double d; PixelRep *pixelPtr; static const double bias[] = { - 1.0, 10.0, 25.4, 0.35278 /*25.4 / 72.0*/ + 1.0, 10.0, 25.4, 0.35277777777777775 /*25.4 / 72.0*/ }; if (objPtr->typePtr != &pixelObjType.objType) { @@ -606,7 +613,7 @@ Tk_GetMMFromObj( double d; MMRep *mmPtr; static const double bias[] = { - 10.0, 25.4, 1.0, 0.35278 /*25.4 / 72.0*/ + 10.0, 25.4, 1.0, 0.35277777777777775 /*25.4 / 72.0*/ }; if (objPtr->typePtr != &mmObjType.objType) { |