Nothing
`exit` <-
function()
{
QuitMsg <- tkmessageBox(message="Are you sure want to quit?",icon="question",type="yesnocancel",default="yes")
if ( tclvalue(QuitMsg )== "yes") {
tkdestroy(tt)
}
else {tkfocus(tt)}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.