notesnodewindows {arvoRe} | R Documentation |
Usage
notesnodewindows(...)
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(...) {
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])
column <- as.numeric(nodeSec[2])
notesWindow <- tktoplevel()
title <- "ÁrvoRe - Comentários do Nodo"
tkwm.title(notesWindow,title)
position <- intersect(which((TheTree$Level == column)),which(TheTree$Node.N == node.number))
Notesvar <- tclVar(TheTree$Note[position])
entry.Value <- tkentry(notesWindow, width="20", textvariable=Notesvar)
tkgrid(tklabel(notesWindow,text="Nota"))
tkgrid(entry.Value)
OnOK <- function()
{
NotesVal <- as.character(tclvalue(Notesvar))
tkdestroy(notesWindow)
safedofunction(TheTree, .EnvironmentArvoRe, .modeltypeArvore)
setnotesnode(TheTree, column = column, node.number = node.number, nodo.note = NotesVal, .EnvironmentArvoRe)
refreshF5()
tkfocus(tt)
}
OK.but <-tkbutton(notesWindow, text=" OK ", command=OnOK)
tkbind(entry.Value, "<Return>", OnOK)
OnCancel <- function()
{
tkdestroy(notesWindow)
tkfocus(tt)
}
Cancel.but <-tkbutton(notesWindow, text=" Cancelar ", command=OnCancel)
tkbind(notesWindow, "<Escape>", OnCancel)
tkgrid(OK.but, Cancel.but, sticky = "s", padx = 5, pady = 5)
posiciona.janela.no.mouse(notesWindow, 200, 100)
tkfocus(notesWindow)
}
}
[Package
arvoRe version 0.1.7
Index]