windowresolution {ArvoRe}R Documentation

~~function to do ... ~~

Description

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

Usage

windowresolution()

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() {
                # Criação da janela
                win.main.resWindow <- tktoplevel()
                title.window <- "ÁrvoRe - Tamanho da Janela"    # Título da janela
                tkwm.title(win.main.resWindow, title.window)

                # Variáveis TclTk
                qualquercoisa.tclvar <- tclVar( 0000 )
                
                # Frames da janela
                FrameOverAll <- tkframe(win.main.resWindow, height = 200, width = 150, borderwidth = 0, relief = "groove")
                FrameButtons <- tkframe(win.main.resWindow, height = 200, width = 150, borderwidth = 0, relief = "groove")
                
                tkpack(FrameOverAll)
                tkpack(FrameButtons)

                # Check bottons
                
                # List box
                
                                
                tkgrid(FrameButtons, columnspan = 2, sticky = "s")
                
#------- BOTOES ---------------------------------------------------------------------------------------------
                OnOK <- function() {
                        
                }
                
                OnCancel <- function() {
                        tkdestroy(win.main.resWindow)
                        tkfocus(tt)
                }
                
                .Width.but <- 10
                .Height.but <- 1
                
                rotulo <- "OK"
                OK.but <- tkbutton(FrameButtons, text = rotulo, width = .Width.but, height = .Height.but, 
                                                        command = OnOK)
                rotulo <- "Cancelar"
                Cancel.but <- tkbutton(FrameButtons, text = rotulo, width = .Width.but, height = .Height.but, 
                                                        command = OnCancel)
                
                tkgrid(OK.but, Cancel.but, columnspan = 2, sticky = "s", padx = 5, pady = 5)
#------- TECLAS ATALHO --------------------------------------------------------------------------------------
                tkbind(win.main.resWindow, "<Return>", OnOK)
                tkbind(win.main.resWindow, "<Escape>", OnCancel)
#------- MONTAGEM FINAL -------------------------------------------------------------------------------------

#------------------------------------------------------------------------------------------------------------
                tkfocus(win.main.resWindow)

  }

[Package ArvoRe version 0.1.6 Index]