require(tcltk)
tt <- tktoplevel()
b1 <- tkbutton(tt, text = "OK 1", command = function() tkdestroy(tt))
b2 <- tkbutton(tt, text = "OK 2", command = function() tkdestroy(tt))
b3 <- tkbutton(tt, text = "OK 3", command = function() tkdestroy(tt))
b4 <- list(b1, b2, b3)
kmg2_listRecall(b4, tkgrid, sticky = "nw")Run the code above in your browser using DataLab