## Not run:
# ## These cannot be run by examples() but should be OK when pasted
# ## into an interactive R session with the tcltk package loaded
#
# tk2chooseFont()
# tk2chooseFont(font = "{courier} 9", title = "Choose a fixed font",
# fonttype = "fixed", style = 4, sizetype = "all")
# tk2chooseFont(font = "Verdana 12 bold italic underline overstrike",
# fonttype = "prop", style = 2, sizetype = "point")
#
# tk2swaplist(1:10, 1:5) # integer
# tk2swaplist(as.numeric(1:10), 1:5) # double
# tk2swaplist(paste("V", 1:10), paste("V", 1:5)) # character
# tk2swaplist(as.factor(1:10), 1:5) # factor
# tk2swaplist(as.ordered(1:10), 1:5) # ordered
# ## End(Not run)
Run the code above in your browser using DataLab