aboutsummaryrefslogtreecommitdiff
path: root/generic
diff options
context:
space:
mode:
Diffstat (limited to 'generic')
-rw-r--r--generic/tkZinc.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index e87d8f9..8cd188d 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -2470,7 +2470,7 @@ UpdateScrollbars(ZnWInfo *wi)
#ifdef PTK
ZnReal first, last;
ScrollFractions(y_origin, y_origin + height, scroll_yo, scroll_yc, &first, &last);
- result = LangDoCallback(interp, y_scroll_cmd, 0, 1, " %g %g", fractions);
+ result = LangDoCallback(interp, y_scroll_cmd, 0, 1, " %g %g", first, last);
#else
fractions = ScrollFractions(y_origin, y_origin + height, scroll_yo, scroll_yc);
result = Tcl_VarEval(interp, y_scroll_cmd, " ", Tcl_GetString(fractions), NULL);
@@ -6144,8 +6144,6 @@ Configure(Tcl_Interp *interp,/* Used for error reporting. */
SET(wi->flags, ZN_UPDATE_SCROLLBARS);
}
- return TCL_OK;
-
if (CONFIG_PROBE(FOLLOW_POINTER_SPEC)) {
if (wi->follow_pointer) {
/* Flag has just been turned on, process
@@ -6166,7 +6164,7 @@ Configure(Tcl_Interp *interp,/* Used for error reporting. */
}
return TCL_OK;
- }
+}
/*