Ruby/Tk スクロールバーがうまく機能しない

Question

前提・実現したいこと

下記はサンプルなのですが、CSVのような表をTKに表示させたく、行数が多いとスクロールしないといけないので、
スクロールバーを設置できるTkCanvasを敷いて、その上にTkcWindowを行の数だけ配置しようと考えております。

行数が多い場合、TkCanvasをスクロールできるようにしたいのですが、３点の不具合が出てしまいます。

・スクロールバーはでるが、スクロールバーのスライダーが出現しない。
・Canvasウィンドウ上でスクロールしても、画面が上下しない。
・スクロールバー上でスクロールすると画面が上下するが、無限に上下できてしまう。（Canvasで定義したheightを超えてスクロールできてしまう）

この３点の不具合の原因と対応策をご教授いただけないでしょうか。

該当のソースコード

require 'tk'

root = TkRoot.new
root.geometry('1280x800')

root_frame = TkFrame.new(root, background: "blue", height: 800, width: 1280).pack
yscrollbar = TkScrollbar.new(root_frame, orient: 'vertical', width:20).pack(side: 'right', fill: 'y')
canvas = TkCanvas.new(root_frame, background: "red", height: 800, width: 1260, yscrollcommand: proc{|*idx| yscrollbar.set(*idx)}).pack(side: 'right')

yscrollbar.command(proc{|*idx| canvas.yview(*idx)})

(0..10).each do |x|
  frame = TkFrame.new(background: "yellow", height: 100, width: 1260)
  TkcWindow.new(canvas, 630, 50+100*x, window: frame, height: 100, width: 1260)
  TkLabel.new(
    frame,
    text: 'hoge',
  ).pack
end



Tk.mainloop

試したこと

yscrollbar = TkYScrollbar.new(root_frame, width:20).pack(side: 'right', fill: 'y')
canvas = TkCanvas.new(root_frame, background: "red", height: 800, width: 1260).pack(side: 'right')

yscrollbar.assign(canvas)

を試しましたが、同じ挙動でした。

補足情報（FW/ツールのバージョンなど）

macOS Catalina 10.15.7
ruby 2.6.5
tk 0.3.0

###その後

canvas = TkCanvas.new(root_frame, background: "red", height: 800, width: 1260, scrollregion:[0,0,0,100*ary.size], yscrollcommand: proc{|*idx| yscrollbar.set(*idx)})

とscrollregionを加えたところ、
・スクロールバーはでるが、スクロールバーのスライダーが出現しない。
・スクロールバー上でスクロールすると画面が上下するが、無限に上下できてしまう。（Canvasで定義したheightを超えてスクロールできてしまう）
上記２点は解決しました。

・Canvasウィンドウ上でスクロールしても、画面が上下しない。
が解決されず、こちらに関してご意見いただけますと幸いです。

Answer 1

Canvasウィンドウ上でスクロールしても、画面が上下しない。

どのような操作でスクロールをされてますか？

マウスホィールでのスクロールであれば、
canvas に対して MouseWheel イベントの設定が必要です。
参考: https://teratail.com/questions/315269

マウスのドラッグ操作によりスクロールしたい場合は、
コード例はPythonですが以下を参考にして見て下さい。
https://teratail.com/questions/54103

キーボードの PageUp/Down キーでスクロールしたい場合についても同様に、
それぞれ個別にイベントの設定が必要です。

Comments

[qiyuren]

ありがとうございます！

＞マウスホィールでのスクロールであれば、
＞canvas に対して MouseWheel イベントの設定が必要です。
＞参考: https://teratail.com/questions/315269

まさに、本問題を解決する参考でした。

root.bind_all('MouseWheel', proc { |e| canvas.yview(:scroll, -e.delta, :units)})

上記を追加して、希望通り動作しました。