get text in tcltk windows
getTextWin(text)
text
string
tcltk windows with text
text <- "mytext" ## Not run: getTextWin(text) ## End(Not run)