## Not run:
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the widgetTools package loaded
#
# # Create a top level window and put a list box in it
# base <- tktoplevel()
# listBox <- makeViewer(base)
#
# # Destroy toplevel widget
# # tkdestroy(base)
# ## End(Not run)
Run the code above in your browser using DataLab