R tbbutton wird nicht skalieren

Question

Das hat wahrscheinlich eine einfache Antwort, aber ich weiß nicht, was ich sonst noch versuchen sollte. Ich habe das Problem beigefügt, also stelle ich nur ein kleines Stück Code zur Verfügung. Ich mache eine grafische Schnittstelle mit tkltk

Diese Tasten sollen den gesamten horizontalen Raum besetzen, wenn ich das Fenster größer mache, indem ich die Ecken mit der Maus ziehe. Die vertikale Größe soll gleich bleiben.

Ich konnte es für eine einzelne Taste (Code unten) arbeiten, aber nicht mit einer Reihe von Tasten.

Vielen Dank im Voraus

require(tcltk) 

botos1 <- function(panel){panel} 
panel01<- tktoplevel(bg="darkcyan") 
row1 = tkframe(panel01,width = 500, height = 70, bg = "yellow",borderwidth = 3) 

tkgrid(row1) 
tkgrid.configure(row1,sticky="ew") 
tkgrid.columnconfigure(panel01,0,weight=1) 
tkgrid.rowconfigure(panel01,0,weight=1) 
tkgrid.rowconfigure(row1,0,weight=1) 
tkgrid.columnconfigure(row1,0,weight=1) 
tkgrid.configure(row1,sticky='nwe') 


bot1<- tkbutton(row1,text="Time series",width = 35,command=botos1) 

tkgrid(bot1) 
tkgrid.configure(bot1,sticky="ew") 

Answer 1

ich eine Lösung für meine eigene Frage gefunden zu haben. Hier ist es. Ich habe einen Rahmen im Rahmen gemacht. Der innere Rahmen wird durch tkpack gehandhabt, so dass ich die Tasten leicht skalieren kann. Der äußere Rahmen wird jedoch durch tkgrid gehandhabt, wodurch ich ihm eine feste Position innerhalb des Hauptfeldes geben kann.

require(tcltk) 

botos1 <- function(panel){panel} 
panel01<- tktoplevel(bg="darkcyan") 

row1 = tkframe(panel01,width = 500, height = 70, bg = "yellow",borderwidth = 3) 

tkgrid(row1,row=0) 
tkgrid.configure(row1,sticky="new") 
tkgrid.columnconfigure(panel01,0,weight=1) 

row11 = tkframe(row1,width = 450, height = 50, bg = "cyan",borderwidth = 3) 

bot1<- tkbutton(row11,text="Time series1",width = 35,command=botos1) 
bot2 <- tkbutton(row11,text="Time series2",width = 35,command=botos1) 
bot3 <- tkbutton(row11,text="Time series3",width = 35,command=botos1) 

tkpack(bot1,side="left",expand=TRUE,fill="both") 
tkpack(bot2,side="left",expand=TRUE,fill="both") 
tkpack(bot3,side="left",expand=TRUE,fill="both") 

tkpack(row11,anchor="nw",fill="both")