Displaying 1 result from an estimated 1 matches for "launchdialog".
2008 Jul 18
0
Retrieving data from a tcl /tk function
...elease(dlg); tkfocus(ttMain)})
tkbind(textEntryWidget, "<Return>", onOK)
tkwait.window(dlg)
return(ReturnVal)
}
# Create a "main" window with a button which activates our dialog
require(tcltk)
ttMain <- tktoplevel()
tktitle(ttMain) <- "ttMain"
launchDialog <- function() {
ReturnVal <- modalDialog("First Name Entry", "Enter Your First Name", "")
if (ReturnVal == "ID_CANCEL") return()
tkmessageBox(title = "Greeting",
message = paste("Hello, ", ReturnVal, "."...