# NOT RUN {
w <- gwindow("status bar example")
tbl <- list(quit=list(icon="quit",
handler = function(...) dispose(w)))
tb <- gtoolbar(tbl, container=w)
sb <- gstatusbar("", container=w)
txt <- gtext("type here", container=w)
addHandlerChanged(txt, handler=function(h,...)
svalue(sb) <- paste("You typed",svalue(txt),"in the box",collapse=" "))
# }
Run the code above in your browser using DataLab