group = ggroup(horizontal=FALSE, container=TRUE)
add(group, obj <- gedit(), expand=TRUE)
add(group, sb <- gstatusbar("Type in box"))
addhandlerchanged(obj, handler=function(h,...) svalue(sb) <- "You typed
in box")
Run the code above in your browser using DataLab