new.file.bot {arvoRe}R Documentation

Usage

new.file.bot(...)

Arguments

...

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(...) {
        ans <- tkmessageBox(message="Deseja salvar a árvore atual?",icon="question",type="yesnocancel",default="yes")
        ans <- tclvalue(ans)
        if (ans != "yes") {
                if (ans == "no") {
                        clearTreeTkArvore(TheTree)
                        new.tree()
                        theTreeTkArvore(TheTree)
                        atualiza.grafico()
                } else {
                        tkfocus(tt)
                }
        } else {
                save.file.arv()
                clearTreeTkArvore(TheTree)
                new.tree()
                theTreeTkArvore(TheTree)
                atualiza.grafico()              
        }
  }

[Package arvoRe version 0.1.7 Index]