## 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")
Run the code above in your browser using DataLab