diff options
Diffstat (limited to 'generic/tkFont.c')
| -rw-r--r-- | generic/tkFont.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tkFont.c b/generic/tkFont.c index 9a70a65..7b6a759 100644 --- a/generic/tkFont.c +++ b/generic/tkFont.c @@ -3501,7 +3501,11 @@ GetAttributeInfoObj( break; case FONT_SIZE: - valuePtr = Tcl_NewDoubleObj(faPtr->size); + if (faPtr->size >= 0.0) { + valuePtr = Tcl_NewIntObj((int)(faPtr->size + 0.5)); + } else { + valuePtr = Tcl_NewIntObj(-(int)(-faPtr->size + 0.5)); + } break; case FONT_WEIGHT: |