zoom.in.but {ArvoRe}R Documentation

~~function to do ... ~~

Description

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

Usage

zoom.in.but(imgHeight)

Arguments

imgHeight ~~Describe imgHeight 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(imgHeight) {
        if (imgHeight < 8000) {
                imgHeight <- round(imgHeight * 1.1, digits = 0)
                imgWidth <- round((4/3) * imgHeight, digits = 0)
        } else {
                msg <- paste("Este é um tamanho de imagem consideravelmente grande. Deseja realmente ampliar?")
                ans <- tkmessageBox(message = msg,  icon = "question", type = "yesnocancel", default = "no")
                ans <- as.character(tclvalue(ans))
                        if ( ans == "yes" ) {
                                imgHeight <- round(imgHeight * 1.1, digits = 0)
                                imgWidth <- round((4/3) * imgHeight, digits = 0)
                        }
                tkfocus(tt)     
        }
        set.zoom.image.tree(imgHeight, imgWidth)
        refreshF5()
  }

[Package ArvoRe version 0.1.6 Index]