如何在gWidgets中绑定ESC键以关闭“`gwindow()”？

Question

考虑：

require(gWidgets2)
w <- gwindow("notebook example", visible=T)
nb <- gnotebook(container=w)
gbutton("Page one", label="tab 1", container=nb) ## note label argument
gbutton("Page two", label="tab 2", container=nb)

如何绑定给定的键(例如，ESC)以关闭gWidgets中的gwindow()，即执行dispose(w)？换句话说，如何在gWidgets中分配键绑定？

Answer 1

使用RGtk2 (可能还有其他方法)，可以使用addHandlerKeystroke方法来捕获击键。您必须深入研究h对象以捕获ESC键。这方面没有任何可移植的代码，但是Gtk文档应该能够提供帮助。

Answer 2

根据公认的答案，我必须：

addHandlerKeystroke(w, function(h, ...){
    browser()
})

然后打开w窗口并点击ESC，然后在browser()终端中：

print(h)

并注意到：

Browse[1]> h$key
[1] "\033"

然后，下面的处理程序执行我想要的操作：

h_esc <- addHandlerKeystroke(w, function(h, ...){
    if(h$key=="\033") dispose(w)
})

根据how to program window to close with escape key和How to define ESC char in git?，似乎ESC通常被捕获为\033。