removenodewindows {ArvoRe}R Documentation

~~function to do ... ~~

Description

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

Usage

removenodewindows(...)

Arguments

... ~~Describe ... here~~

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(...) {
        nodeSec <- nodoselecionado()
        if ( nodeSec[1] == " ") {
                msg <- paste("Nenhum nodo selecionado. Selecione um nodo da árvore e tente novamente.")
                tkmessageBox(message = msg, icon="warning", title = "ÁrvoRe - AVISO")
                tkfocus(tt)
        } else {
                node.number <- as.numeric(nodeSec[3])
                node.col <- as.numeric(nodeSec[2])
                if (node.col > 1) {
                        position <- intersect(which((TheTree$Level == node.col)),which(TheTree$Node.N == node.number))
                        Removenamevar <- TheTree$Node.name[position]
                        
                        msg <- paste("Deseja realmente excluir o nodo '", Removenamevar, "'?", sep = "")
                        ans <- tkmessageBox(message=msg, icon="question",type="yesnocancel",default="no")
                        ans <- as.character(tclvalue(ans))
                        if (ans == "yes") {
                                NewTheTree <- remove.node(TheTree, node.col, node.number)
                                safedofunction(TheTree, .EnvironmentArvoRe, .modeltypeArvore)
                                setremovenode(NewTheTree, .EnvironmentArvoRe)
                                refreshF5()
                                tkfocus(tt)
                        }
                } else {
                        msg <- paste("Não é possível remover o nodo raiz.")
                        tkmessageBox(message = msg, icon="warning", title = "ÁrvoRe - AVISO")
                        tkfocus(tt)
                }
        }
  }

[Package ArvoRe version 0.1.6 Index]