From c2f8cec766967673fe59f30c8bd3cf2d5d011250 Mon Sep 17 00:00:00 2001
From: nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 7 Oct 2004 14:50:59 +0000
Subject: [PATCH] * ext/tk/lib/tk/scrollbar.rb: When 'set' operation, a
 scrollbar cannot   propagate view port information from the source widget
 (that calls   'set') to other assigned widgets.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@7013 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog                  |  6 ++++++
 ext/tk/lib/tk/scrollbar.rb | 13 +++++++++++--
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index cf39d9df8c..6196e2d7f8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Oct  7 23:47:57 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
+
+	* ext/tk/lib/tk/scrollbar.rb: When 'set' operation, a scrollbar
+	  cannot propagate view port information from the source widget
+	  (that calls 'set') to other assigned widgets. 
+
 Thu Oct  7 17:36:25 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk.rb: When CHILDKILLED and so on, Tk.errorCode returns
diff --git a/ext/tk/lib/tk/scrollbar.rb b/ext/tk/lib/tk/scrollbar.rb
index 98b0247207..c6591a1270 100644
--- a/ext/tk/lib/tk/scrollbar.rb
+++ b/ext/tk/lib/tk/scrollbar.rb
@@ -29,6 +29,15 @@ class TkScrollbar<TkWindow
   end
   private :create_self
 
+  def propagate_set(src_win, first, last)
+    self.set(first, last)
+    if self.orient == 'horizontal'
+      @assigned.each{|w| w.xview('moveto', first) if w != src_win}
+    else # 'vertical'
+      @assigned.each{|w| w.yview('moveto', first) if w != src_win}
+    end
+  end
+
   def assign(*wins)
     begin
       self.command(@scroll_proc) if self.cget('command').cmd != @scroll_proc
@@ -39,9 +48,9 @@ class TkScrollbar<TkWindow
     wins.each{|w|
       @assigned << w unless @assigned.index(w)
       if orient == 'horizontal'
-	w.xscrollcommand proc{|first, last| self.set(first, last)}
+	w.xscrollcommand proc{|first, last| self.propagate_set(w, first, last)}
       else # 'vertical'
-	w.yscrollcommand proc{|first, last| self.set(first, last)}
+	w.yscrollcommand proc{|first, last| self.propagate_set(w, first, last)}
       end
     }
     Tk.update  # avoid scrollbar trouble