R/exit.R

Defines functions `exit`

`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)}
}

Try the IsoGeneGUI package in your browser

Any scripts or data that you put into this service are public.

IsoGeneGUI documentation built on Nov. 8, 2020, 5:52 p.m.