diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 20:33:47 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-04-02 20:33:47 (GMT) |
commit | 2cf64c85fc09764112c6d2daa54f22c9b2c3b549 (patch) | |
tree | bad71bde8042ba33f09184ff350278a959a23290 /generic/tkScrollbar.c | |
parent | 40b76dbd4f4479294a9cd461da0400e31734ac2b (diff) | |
parent | 6d61d799f483c98a1e0aeb624fa001a7fce24af0 (diff) | |
download | tk-2cf64c85fc09764112c6d2daa54f22c9b2c3b549.zip tk-2cf64c85fc09764112c6d2daa54f22c9b2c3b549.tar.gz tk-2cf64c85fc09764112c6d2daa54f22c9b2c3b549.tar.bz2 |
Merge trunk
Diffstat (limited to 'generic/tkScrollbar.c')
-rw-r--r-- | generic/tkScrollbar.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkScrollbar.c b/generic/tkScrollbar.c index f88b37b..02daafb 100644 --- a/generic/tkScrollbar.c +++ b/generic/tkScrollbar.c @@ -381,10 +381,10 @@ ScrollbarWidgetObjCmd( } #ifndef TK_NO_DEPRECATED if (scrollPtr->flags & OLD_STYLE_COMMANDS) { - resObjs[0] = Tcl_NewIntObj(scrollPtr->totalUnits); - resObjs[1] = Tcl_NewIntObj(scrollPtr->windowUnits); - resObjs[2] = Tcl_NewIntObj(scrollPtr->firstUnit); - resObjs[3] = Tcl_NewIntObj(scrollPtr->lastUnit); + resObjs[0] = Tcl_NewWideIntObj(scrollPtr->totalUnits); + resObjs[1] = Tcl_NewWideIntObj(scrollPtr->windowUnits); + resObjs[2] = Tcl_NewWideIntObj(scrollPtr->firstUnit); + resObjs[3] = Tcl_NewWideIntObj(scrollPtr->lastUnit); Tcl_SetObjResult(interp, Tcl_NewListObj(4, resObjs)); break; } |