## 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 the widgets
# base <- tktoplevel()
# list <- tklistbox(base, width = 20, height = 5)
#
# entry <- tkentry(base)
# text <- tktext(base, width = 20, height = 5)
# tkpack(list, entry, text)
# # Write and read from the widgets
# writeList(list, c("Option1", "Option2", "Option3"))
# writeList(entry, "An Entry box")
# writeText(text, "A text box")
# # Will be NULL if not selected
# getListValue(list)
# getTextValue(text)
# getEntryValue(entry)
# # Destroy toplevel widget
# # tkdestroy(base)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace