Ruby/tkのBWidgetでマウスホイールスクロールしたい

Question

期待すること

Ruby/tkのBWidgetで

• ScrolledWindow
• ScrollableFrame

これらを使い、マウスホイールによる画面のスクロールを実現することです。

とりあえずスクロールバーだけは動作するようにはできた

以前、BWidgetを使うと画面をスクロールさせることができる方法を下記で質問し、知識のある方から教えてもらいました。

そのときの内容はこちらです。
https://teratail.com/questions/313028

ただ、このとき辿り着いたのは、スクロールバーをドラッグすることでスクロールができるというところまでです。

マウスホイールでスクロールしたくて試行錯誤

そこまでは良いのですが、現状ではマウスホイールでは動きません。やはり、マウスホイールで画面スクロールをさせたいという希望がその後出てきて、実現させたく思っています。

ちなみに、以下が、解決に至るまで回答をくださった方のコード（上記リンクより抜粋）です。

require 'tk'
require 'tkextlib/bwidget'

root = TkRoot.new

sw = Tk::BWidget::ScrolledWindow.new(root)
sf = Tk::BWidget::ScrollableFrame.new(sw, constrainedwidth: true)
sw.set_widget(sf)
vf = sf.get_frame
vf.configure(bg: :white, borderwidth: 1, relief: :groove)

10.times do |i|
  TkButton.new(vf, text: "button #{i}").pack
  TkLabel.new(vf, text: "label #{i}").pack
end

sw.pack(fill: :both, expand: true)

Tk.mainloop

これを元にコードを触ったり情報を調べたり試行錯誤していますが、なかなかマウスホイールによるスクロールがうまくいきません。

ご存知の方いらっしゃいましたら、大変恐縮ですがご教示いただけませんでしょうか。

よろしくお願いします。

Answer 1

別言語なので参考になるかわかりませんが、(ActiveTcl で動作確認)
マウスホイールイベントは <MouseWheel> で設定します。
画面のどこからでも有効にするには bind all を使います。rubyでは多分 bind_all
ホィールイベント内で Scrollable オブジェクトの yview/xview を呼び出してスクロール。

## ScrollableFrame のサンプルコード

 package require BWidget
 # Make a frame scrollable
 set sw [ScrolledWindow .sw]
 pack $sw -fill both -expand true
 set sf [ScrollableFrame $sw.sf]
 $sw setwidget $sf
 set uf [$sf getframe]
 # Now fill the frame, resize the window to see the scrollbars in action
 for { set i 0 } { $i < 20 } { incr i } { 
     for { set j 0 } { $j < 20 } { incr j } { 
          set nm [format "%s.b_%s_%s" $uf $i $j]
          set b [button $nm -text "$i,$j" -command {puts "OK"}]
         grid $b -row $i -column $j
     }
 }

## 追加部分: マウスホイール・イベント ※ Shift+ホィールで横スクロール

bind all <MouseWheel> {
    $sf yview scroll [expr {-%D/120}] units
}
bind all <Shift-MouseWheel> {
    $sf xview scroll [expr {-%D/120}] units
}

設定方法（以下のどちらか）

• tcl の eval を呼び出す。Tcl/Tk のウィジェットは文字列 (path-name) なので、

　bind all ～の文字列を tcl の eval (root.e ?) で評価する事でも設定できます。
注意点: $sf は ScrolledFrame の path-name, {} や %D の % は場合によってはエスケープ

• ruby で <MouseWheel> イベントを設定する
  root.bind_all "<MouseWheel>", {|e| sf.xview("scroll", e.delta/120, "units")}

　※ 動作未確認です。%D の値はイベントにより渡される delta (ホィールの上下の判別に使う)

---

ちなみに、Tkinter は Python の標準ライブラリで、
Python 側では BWidget 等は保守されてません。

ruby でライブラリをインストールしようとして失敗し、
Python/tkinterで同等のコードを書こうとして断念した結果 tcl になりました。

rubyのコードは回答というわけでは有りません。
そのままでは動かないと思うので、参考程度にしてください。

Comments

[akira_kano1101]

ありがとうございます。動作成功させることができました。

具体的コードは
```
root.bind_all('MouseWheel', proc { |e| sf.yview(:scroll, -e.delta, :units)})
```
です。
本当に助かりました。
また機会がありましたらよろしくお願いいたします。