diff options
Diffstat (limited to 'generic/tkZinc.c')
| -rw-r--r-- | generic/tkZinc.c | 6 |
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; - } +} /* |