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]