* renewal Ruby/Tk

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@6237 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 3 insertions, 1 deletions

diff --git a/ext/tk/sample/tkmultilistbox.rb b/ext/tk/sample/tkmultilistbox.rb
index c3787a0cf0..257cf95c39 100644
--- a/ext/tk/sample/tkmultilistbox.rb
+++ b/ext/tk/sample/tkmultilistbox.rb
@@ -109,7 +109,9 @@ class TkMultiListbox < TkListbox
 	@v_scroll.set first, last
       }
     }
-    @v_scroll.command proc{|*args| @lbox_list.each{|lbox| lbox.yview *args} }
+#    @v_scroll.command proc{|*args| @lbox_list.each{|lbox| lbox.yview *args} }
+    @v_scroll.command proc{|*args| p "";p [@lbox_list, args]; @lbox_list.each{|lbox| lbox.yview *args} }
+#    @v_scroll.command proc{|*args| p "";p [@lbox_list, args]; @lbox_list.each{|lbox| lbox.yview *args}; p [@lbox_list, args] }
 
     # binding for listboxes
     @mode = {}