Suppose I create several tk windows but do not assign them to any real objects.
library(tcltk) # two activated tk windows tcl(\'toplevel\',".foo") t
