diff options
| author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-12-17 07:16:05 +0000 |
|---|---|---|
| committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2003-12-17 07:16:05 +0000 |
| commit | b914da7ea84c3edc61589c9b1984423027c33f34 (patch) | |
| tree | c25abfa6b95c3832a2d01ebaf9945cfae11e2dd0 | |
| parent | 6266ccf0a8bfe3355bfd3c9478a5e08674857ecb (diff) | |
| download | ruby-b914da7ea84c3edc61589c9b1984423027c33f34.tar.gz ruby-b914da7ea84c3edc61589c9b1984423027c33f34.tar.xz ruby-b914da7ea84c3edc61589c9b1984423027c33f34.zip | |
* bug fix
git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@5207 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ext/tk/sample/tkmultilistbox.rb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ext/tk/sample/tkmultilistbox.rb b/ext/tk/sample/tkmultilistbox.rb index 1896c66da..ed5da0f21 100644 --- a/ext/tk/sample/tkmultilistbox.rb +++ b/ext/tk/sample/tkmultilistbox.rb @@ -107,8 +107,6 @@ class TkMultiListbox < TkListbox @lbox_list.each{|lbox| lbox.yscrollcommand proc{|first, last| @v_scroll.set first, last - idx = lbox.nearest(0) - @lbox_list.each{|l| l.yview(idx)} } } @v_scroll.command proc{|*args| @lbox_list.each{|lbox| lbox.yview *args} } @@ -127,10 +125,12 @@ class TkMultiListbox < TkListbox proc{|w| focus_shift(w, 1); Tk.callback_break}, '%W') l.bind('Button-2', proc{|x, y| + @lbox_mark_x = x @lbox_list.each{|lbox| lbox.scan_mark(x, y)} }, '%x %y') l.bind('B2-Motion', proc{|x, y| - @lbox_list.each{|lbox| lbox.scan_dragto(x, y)} + @lbox_list.each{|lbox| lbox.scan_dragto(@lbox_mark_x, y)} + l.scan_dragto(x, y) }, '%x %y') l.bindtags(l.bindtags.unshift(@mode[@current_mode])) |