Displaying 1 result from an estimated 1 matches for "modaldialogok".
Did you mean:
modaldialog
2009 Apr 14
0
disappearing dialog boxes when using tcltk
...imized it every time (the wierd
thing is that sometimes it is Ok, sometimes it is not.
So I don't know the problem.)
Millions of thanks!
Hua
##===============================================
## Add Dialog Box (with only "OK" button)
##===============================================
modalDialogOK <-
function(title,question,entryInit,entryWidth=10)
{
returnValOnCancel="ID_CANCEL"
dlg <- tktoplevel()
tkwm.deiconify(dlg)
tkgrab.set(dlg)
tkfocus(dlg)
tkwm.title(dlg,title)
textEntryVarTcl <- tclVar(paste(entryInit))
textEntryWidget <-
tkentry(dlg,width=paste...