diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-10-25 21:06:25 (GMT) |
| commit | 0d5336db012f45753abace489f18f0ca299c6961 (patch) | |
| tree | b1bf3280a9046df99226158978502eeb26f5b0a3 /generic/tkObj.c | |
| parent | e97381a6d921de403516d5b761539a450f4af83c (diff) | |
| parent | 1320b8a2a9c1269a345d44d673a7a35707fbbe9c (diff) | |
| download | tk-core-tip-626.zip tk-core-tip-626.tar.gz tk-core-tip-626.tar.bz2 | |
Merge 9.0core-tip-626
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) { |