summaryrefslogtreecommitdiffstats
path: root/generic/tkObj.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tkObj.c')
-rw-r--r--generic/tkObj.c11
1 files changed, 9 insertions, 2 deletions
diff --git a/generic/tkObj.c b/generic/tkObj.c
index cdea2ed..dcff758 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
};