Description Usage Arguments Examples
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.
1 |
... |
ignored |
1 2 3 4 5 6 7 8 9 10 11 12 13 | ## 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.