library(gWidgetstcltk) #or e.g. gWidgetsRGtk2
win <- gwindow()