## Not run:
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the widgetTools package loaded
#
# testData <- matrix(c(1:50, 100:51), ncol = 2)
# colnames(testData) <- c("Column 1", "Column 2")
# base <- tktoplevel()
# tt <- oneVScrList(base, testData)
#
# # Destroy toplevel widget
# # tkdestroy(base)
# ## End(Not run)
Run the code above in your browser using DataLab