diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-10-07 14:50:59 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-10-07 14:50:59 +0000 |
commit | c2f8cec766967673fe59f30c8bd3cf2d5d011250 (patch) | |
tree | 7c40340f5a636996e0456bdf568a17cca61aaeb7 /ext | |
parent | 046d4e7ee113eac1c6a9ab848adb978c07b06aae (diff) | |
download | ruby-c2f8cec766967673fe59f30c8bd3cf2d5d011250.tar.gz |
* 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
Diffstat (limited to 'ext')
-rw-r--r-- | ext/tk/lib/tk/scrollbar.rb | 13 |
1 files changed, 11 insertions, 2 deletions
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 |