diff options
| author | lecoanet | 2004-03-23 08:24:45 +0000 |
|---|---|---|
| committer | lecoanet | 2004-03-23 08:24:45 +0000 |
| commit | 47905a2600650da2fd342b73e03ab5cb4aada4be (patch) | |
| tree | 35f512fe711d07d0627ce0e3b7533a7b00ef32e5 /generic/tkZinc.c | |
| parent | 50d14214169c405aa823640e604885a259b4c0b4 (diff) | |
| download | tkzinc-47905a2600650da2fd342b73e03ab5cb4aada4be.zip tkzinc-47905a2600650da2fd342b73e03ab5cb4aada4be.tar.gz tkzinc-47905a2600650da2fd342b73e03ab5cb4aada4be.tar.bz2 tkzinc-47905a2600650da2fd342b73e03ab5cb4aada4be.tar.xz | |
Fix a problem with the scrollbar protocol (Y scrollbar bug).
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; - } +} /* |