0

4 つのリストボックスとそれらがバインドされる 4 つのスクロールバーを作成しました。ただし、スクロールバーは期待どおりに機能しません。リストボックスのスクロールで互いに干渉し、最後のスクロールが機能しません。この問題を解決するtkyviewための他のオプションが見つかりませんでした。tksetここで何が間違っていると思いますか?

require(tcltk)
tt <- tktoplevel()

#Scrollbars
scr.d <- tkscrollbar(tt, repeatinterval=4,command=function(...) tkyview(t.d,...))
scr.m <- tkscrollbar(tt, repeatinterval=4,command=function(...) tkyview(t.d,...))
scr.s <- tkscrollbar(tt, repeatinterval=4,command=function(...) tkyview(t.d,...))
scr.a <- tkscrollbar(tt, repeatinterval=4,command=function(...) tkyview(t.d,...))

#Listboxes
t.d <- tklistbox(tt, selectmode="browse",yscrollcommand=function(...) tkset(scr.d,...), width=20,background="white", exportselection=0)
t.m <- tklistbox(tt, selectmode="Single",
                 yscrollcommand=function(...) tkset(scr.m,...), width=20, background="white", exportselection=0)
t.s <- tklistbox(tt,selectmode="Single",
                 yscrollcommand=function(...) tkset(scr.s,...), width=30, background="white", exportselection=0)
t.a <- tklistbox(tt,selectmode="Single",
                 yscrollcommand=function(...) tkset(scr.a,...), width=35, background="white", exportselection=0)

#Place them on the window
tkgrid(tklabel(tt,text="Select subject property:"))
tkgrid(tklabel(tt,text=""))
tkgrid(t.d, scr.d,t.m, scr.m, t.s, scr.s, t.a, scr.a)

tkgrid.configure(scr.d,rowspan=4,sticky="nsw")
tkgrid.configure(scr.m,rowspan=4,sticky="nsw")
tkgrid.configure(scr.s,rowspan=4,sticky="nsw")
tkgrid.configure(scr.a,rowspan=4,sticky="nsw")

#Filling up the listboxes
for (i in 1:100)
{
  tkinsert(t.d, "end", i)
}

for (i in letters)
{
  tkinsert(t.m, "end", i)
}

for (i in rnorm(100))
{
  tkinsert(t.s, "end", i)
}

for (i in letters)
{
  tkinsert(t.a, "end", i)
}

このコードは、こちらの James Wettenhall によってコンパイルされたコード チュートリアルの拡張であり、少し古くなっていると思います。

4

1 に答える 1

1

上記のすべてのスクロールバーを作成するときに、コマンドをリスト ボックスに設定したtkyviewのでt.d、4 つのスクロールバーすべてに同じボックスを移動するように指示したことになります。タイプミスを修正し、最後の 3 つのtkyview関数が最後の 3 つのリストボックス オブジェクトを呼び出すようにすると、機能します。

于 2012-11-01T15:59:52.007 に答える