Displaying 1 result from an estimated 1 matches for "gnmethod".
2012 Nov 19
6
tcltk freezing using MS Windows for R-2.14+
...n(MainWindow){
NMethod <- GetNMethod(MainWindow)
if (NMethod=="") return()
tkconfigure(MainWindow,cursor="watch")
tkfocus(MainWindow)
}#end of NormalizeNow <- function(){
#
GetNMethod <- function(MainWindow){
ReturnVal <- "RMA"
GNMethod <- tktoplevel(MainWindow)
tkwm.deiconify(GNMethod)
tkgrab.set(GNMethod)
tkfocus(GNMethod)
tkwm.title(GNMethod,"Get Method")
tkbind(GNMethod,"<Destroy>",function() {ReturnVal <-
"";tkgrab.release(GNMethod);tkfocus(MainWindow);})...