From 47905a2600650da2fd342b73e03ab5cb4aada4be Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 23 Mar 2004 08:24:45 +0000
Subject: Fix a problem with the scrollbar protocol (Y scrollbar bug).

---
 generic/tkZinc.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

(limited to 'generic/tkZinc.c')

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;
-  }
+}
 
 
 /*
-- 
cgit v1.1