# NOT RUN {
gedit("type here", container=gwindow())
## change handler
obj <- gedit(container=gwindow())
addhandlerchanged(obj, handler=function(h,...)
cat("You typed", svalue(h$obj),"\n"))
## coerce to numeric
obj <- gedit("7", container=gwindow(), coerce.with=as.numeric)
svalue(obj)
# }
Run the code above in your browser using DataLab