## Not run:
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the widgetTools package loaded
#
# base <- tktoplevel()
# selection <- tclVar()
# dropdownList(base, c("Option 1", "Option 2", "Option 3"),
# selection, 15, "Option 2")
# tclvalue(selection)
# # Destroy toplevel widget
# # tkdestroy(base)
# ## End(Not run)
Run the code above in your browser using DataLab