splashscreenArvoRe {ArvoRe}R Documentation

~~function to do ... ~~

Description

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

Usage

splashscreenArvoRe()

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() {
        splashArvoRe <- tktoplevel()
        Width <- 640
        Height <- 480
        tkwm.title(splashArvoRe, paste("ÁrvoRe - ", .arvore.version, sep=""))
        for (i in 1:length(.libPaths())) {
                icon.but <- file.path(paste(.libPaths()[i],"/arvoRe/icons/Arvore.png",sep=""))
                if (file.exists(icon.but)) {
                        icn <- tkimage.create("photo", file=icon.but)
                        new.but <- tkbutton(splashArvoRe, image=icn, width=Width, height=Height, 
                                                        command=function() tkdestroy(splashArvoRe))
                        tkgrid(new.but)
                } 
        }
        posiciona.janela.tela(splashArvoRe)
        tkfocus(splashArvoRe)
        tcl("tkwait","window",splashArvoRe)
  }

[Package ArvoRe version 0.1.6 Index]