我在R中的tcltk包中使用了tktext元素。我想实现这一点,当您按下Tab键时,将执行自定义功能,但未向文本中添加任何实际的Tab空间。
使用tkbind(tkTextField, "<Tab>", function(x) {tabFunction(tkTextField)})
I可以执行自定义函数,但是仍在文本中插入“ \ t”。随着tkbind(feldInp, "<Tab>", "break")
该标签被省略,但不执行任何功能。
如何将两者结合起来?
您可以break
在绑定您自己的函数之后添加一个,如下所示
library(tcltk2)
window <- tktoplevel()
window$env$txt <- tk2text(window, width = 60, height = 10)
tkpack(window$env$txt, fill = "both", expand = TRUE)
tkinsert(window$env$txt, "1.0", "Text")
tkbind(window$env$txt, "<Tab>", {function(x)tabFunction(window$env$txt)})
tkbind(window$env$txt, "<Tab>", "+ break")
tabFunction <- function(x) print("Message")
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句