## 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()
# but <- tkbutton(base, text = "Move Mouse Over Me")
# tkpack(but)
# tkbind(but, "<Enter>", expression(tooltip("Move mouse off me", but)))
#
# # Destroy toplevel widget
# # tkdestroy(base)
# ## End(Not run)
Run the code above in your browser using DataLab