在qbasic对话框中提取gedit的值

Question

我正在尝试创建一个界面，用户可以键入一个数字以运行脚本。但是，我无法检索键入gedit的值。谁能帮我？这就是我所做的：

require(gWidgets2RGtk2) #Load package
w=gbasicdialog("key number")
a<-gedit("1",cont=w,handler=function(h,...){number<-svalue(a)})
visible(w)=TRUE

Answer 1

在这里我创建2 gedit并使用按钮更新一个值与另一个值：

w <- gwindow("test")
g <- ggroup(cont=w, horizontal=FALSE)
x <- gedit("20",cont=g)
gbutton("changevalue",cont=g,handler=function(h,...) {
  svalue(e) <- svalue(x)
})
e <- gedit("", cont=g)

Answer 2

我在这里所做的与jverzani建议的相同

require(gWidgets2RGtk2) #Load package
 w = gbasicdialog("key number")
 a <- gedit("1",cont=w)
 addHandlerKeystroke(a, handler=function(h,..) { 

    number <- svalue(a)
    print(number)
 })
 visible(w)=TRUE