r - tcl tk および R を使用した編集不可のボックス

Question

ユーザーが tcltk と R を使用してテキスト ボックスの値を変更することを禁止する方法を探しています。

これが私がやったことです: ユーザーが最初のボックスの値を変更することを禁止したい.

library(tcltk)
tt <- tktoplevel()
v <- tclVar("32 200 700")
entry.1 <-tkentry(tt, width = "50", textvariable = v)
tkbind(entry.1, "<Key>", function()tkfocus(entry.2))
tkgrid(entry.1, row=1, column=0)
v2 <- tclVar("")
entry.2 <-tkentry(tt, width = "50", textvariable = v2)
tkgrid(entry.2, row=2, column=0)

動作しているように見えますが、バインドされたアクションの前にキーのネイティブ アクションが実行されます。

この問題を解決するにはどうすればよいですか?

tklabelテキストに境界線を引くことができないため、使用したくありません。