gbasicdialog {gWidgetsWWW2} | R Documentation |
There is no gbasicdialog in gWidgetsWWW2. There is a
workaround though. In a subwindow pass in the argument
ext.args=list(modal=TRUE)
. This will make the floating
subwindow modal. There is not need to call visible
– in
fact it wont work – but you need to define the window and its
child components within a single call back.
gbasicdialog(...)
... |
ignored |
## Not run: w <- gwindow("Parent") b <- gbutton("click", cont=w, handler=function(h,...) { w1 <- gwindow("modal subwindow", parent=w, ext.args=list(modal=TRUE)) g <- ggroup(cont=w1, horizontal=FALSE) glabel("Some label", cont=g, expand=TRUE) bg <- ggroup(cont=g) addSpring(bg) gbutton("ok", cont=bg) ## add your own handler gbutton("dismiss", cont=bg, handler=function(...) dispose(w1)) }) ## End(Not run)