sair {ArvoRe}R Documentation

~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

sair()

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

comp1 Description of 'comp1'
comp2 Description of 'comp2'

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

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() {
        ReturnVal <- tkmessageBox(title = "Sair do Programa",
        message = "Deseja realmente sair do programa?",
    icon = "question", type = "yesnocancel", default = "no")
    if (tclvalue(ReturnVal) == "yes") {
            if (.workstatus == "saved") {
                        tkdestroy(tt)
                } else {
                        ReturnVal <- tkmessageBox(title = "Sair do Programa", message="Deseja salvar a árvore atual?",
                                                icon="question", type="yesnocancel", default="yes")
                        if (tclvalue(ReturnVal) == "yes") {
                        save.file.arv()
                        tkdestroy(tt)
                        } else {
                                tkdestroy(tt)
                        }
                }
                # clear all arvoRe objects
                .final.objects <- objects(envir = .EnvironmentArvoRe, all.names = TRUE)
                .init.objects <- get(".init.objects", .EnvironmentArvoRe)
                toremove.objects <- setdiff(.final.objects, .init.objects)
                rm(list = toremove.objects, envir = .EnvironmentArvoRe)
        }
        else tkfocus(tt)
  }

[Package ArvoRe version 0.1.6 Index]