## Not run:
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the tcltk package loaded
#
# ## Using plain Tcl/Tk label and button (tk2XXX equivalent have built-in
# ## tooltip features)
# tt <- tktoplevel()
# lb <- tklabel(tt, text = "Move mouse over me, or over the button to see tooltip")
# tkgrid(lb)
# tk2tip(lb, "A tooltip for the label \ndisplayed on two lines")
# but <- tkbutton(tt, text = "Exit", width = 10,
# command = function() tkdestroy(tt2))
# tkgrid(but)
# tk2tip(but, "Exit from this dialog box")
#
# ## To test tk2killtip(), move mouse on top of a widget
# ## so that the tip is visible, and force killing it manually using:
# tk2killtip()
# ## Move again to the widget: the tip is displayed again.
#
# ## With tk2widgets, the tip() method can also be used:
# lb2 <- tk2label(tt, text = "Move also over me to see the tooltip")
# tkgrid(lb2)
# tip(lb2) # No tip yet
# tip(lb2) <- "Now the tooltip is there!"
# ## Move the mouse over that last label
#
# tip(lb2) # Yes, this is my tooltip
# tip(lb2) <- NULL # To eliminate the toltip for this widget
# ## End(Not run)
Run the code above in your browser using DataLab