Displaying 1 result from an estimated 1 matches for "yrunit".
Did you mean:
irunit
2009 Apr 14
0
disappearing dialog boxes when using tcltk
...return(ReturnVal)
}
##===============================================
## main function
##===============================================
require(tcltk)
ttMain <- tktoplevel()
tkwm.title(ttMain,"Number")
tkdestroy(ttMain)
#initial values are set
numAll = ""
speAll = NULL
yrunit = ""
ttMain <- tktoplevel()
tkfocus(ttMain)
numAll <- as.numeric(modalDialogOK("Number","Put in an
integer greater than 1:",entryInit=numAll))
tkdestroy(ttMain)
while (is.na(numAll) || numAll==0 || numAll==1) {
ttMain <- tktoplevel()
tkfo...