Modal dialog window for returning a text string
Ask for a text string in a pop up window.
modalDialog(title, question, entryInit, top = NULL, entryWidth = 20,
returnValOnCancel = "ID_CANCEL", do.grab = FALSE)title |
Text string for the title bar of the appering window. |
question |
Text string for the |
entryInit |
Default value of answer. |
top |
Text string for the |
entryWidth |
Integer for the |
returnValOnCancel |
Text
string for the returned value on |
do.grab |
Logical.
|
The text string entered, or returnValOnCancel.
From the examples compiled by James Wettenhall.
Menus <-
list(MainUser =
list(label = "Test of user drag down menu - Position of \"vertices\"",
command = function(object, ...)
print(Positions(list(...)$Arguments$vertexList))),
MainUser =
list(label = "Test of user drag down menu - modalDialog",
command = function(object, ...) {
Args <- list(...)$Arguments
ReturnVal <- modalDialog("Test modalDialog Entry", "Enter name",
Args$control$title,
graphWindow = Args$graphWindow)
print(ReturnVal)
if (ReturnVal == "ID_CANCEL")
return() } )
)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.