Instead of using tkgrid(), you can do this with tkpack(). Replace:
> tkgrid( tableData, scrY ) > tkgrid.configure( scrY, sticky="nsw") > tkgrid( scrX, sticky="new" ) by: scrYwidth <- as.integer(tkcget(scrY, width = NULL)) tkpack(scrY, side = "right", fill = "y", expand = FALSE, pady = c(0, scrYwidth + 2)) tkpack(scrX, side = "bottom", fill = "x", expand = FALSE) tkpack(tableData, fill = "both", expand = TRUE) in your code. Best, Philippe Grosjean > On 04 Dec 2015, at 02:31, Cleber N.Borges <kle...@yahoo.com.br> wrote: > > > > hello all, > > I'm trying to build a table within a frame. I would like the table to > expand when the entire window is expanded. > I could not find examples of how to solve this problem. > I thank you in advance for help. > > Cleber > ####################################### > # piece of the code > > library( tcltk ) > tclRequire( "Tktable" ) > dataorgW <- tktoplevel() > fmMenu <- tkframe( dataorgW, borderwidth=10, relief="groove", bg='red' ) > tkpack( fmMenu, expand=1, fill='both' ) > > scrX <- tkscrollbar( fmMenu, command=function(...) tkxview( tableData, > ... ), orient="horizontal" ) > scrY <- tkscrollbar( fmMenu, command=function(...) tkyview( tableData, > ... ), orient="vertical" ) > > height <- -1; width <- -1 > > tableData <- tkwidget( fmMenu, "table", rows=50, cols=50, > titlerows=1, titlecols=1, > height=height+1,width=width+1, > xscrollcommand=function(...) tkset( scrX, ... ), > yscrollcommand=function(...) tkset( scrY, ... ), > rowstretch='all', colstretch='all' > ) > > tkconfigure( tableData, multiline=0 ) > tkgrid( tableData, scrY ) > tkgrid.configure( scrY, sticky="nsw") > tkgrid( scrX, sticky="new" ) > > tclarray <- tclArray() > tkconfigure( tableData, variable=tclarray, selectmode="extended", > background="white" ) > > > > > > > --- > Este email foi escaneado pelo Avast antiv�rus. > https://www.avast.com/antivirus > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.
