[R] newbie question on tcltk
eugen pircalabelu
eugen_pircalabelu at yahoo.com
Mon Dec 22 23:57:45 CET 2008
Hi List,
Can anyone tell me how could i put the "BACK" button in the following code, just under the "AAA" menu? I want this button to go back to the previous page, and since it has nothing to do with the "1" and "2" buttons, i want it somehow separated from these two buttons, but i don't know how. I searched the web for some examples but my results were unsatisfactory.
Thank you and have a great day ahead.
#my code
library(tcltk)
rm(list=ls())
top <- tktoplevel(padx=70, pady=70)
frameOverall <- tkframe(top)
frameUpper <- tkframe(frameOverall,relief="groove",borderwidth=2)
back_but <- tkbutton (frameUpper, text = "BACK", width=20, height=1, default="active", overrelief="flat",anchor="w", borderwidth=4 )
tkgrid(frameUpper)
tkgrid(frameOverall)
tkpack (frameUpper, back_but, side='left', anchor='n')
tkgrid(tklabel(top,text=" "))
fontHeading <- tkfont.create(family="arial",size=14,weight="bold")
other_window <- function ()
{
tkdestroy(top)
tt <- tktoplevel(padx=100, pady=100)
b1 <- tkbutton (tt, text = "3.", width=20, font=fontHeading, command=function () tkdestroy (tt) )
tkgrid(b1)
tkgrid(tklabel(tt,text=" "))
b2 <- tkbutton (tt, text = "4.", width=20, font=fontHeading, command=function () tkdestroy (tt) )
tkgrid(b2)
tkgrid(tklabel(tt,text=" "))
}
ok.but1 <- tkbutton (top, text = "1.", width=20, font=fontHeading,default="active", overrelief="flat", anchor="w",command=other_window );tkgrid(ok.but1)
tkgrid(tklabel(top,text=" "))
ok.but2 <- tkbutton(top, text = "2. ", width=20, font=fontHeading, default="active", overrelief="flat", anchor="w"); tkgrid(ok.but2 )
tkgrid(tklabel(top,text=" "))
topMenu <- tkmenu(top)
tkconfigure(top, menu = topMenu)
fileMenu <- tkmenu(topMenu, tearoff = FALSE)
openRecentMenu <- tkmenu(topMenu, tearoff = FALSE)
tkadd(openRecentMenu, "command", label = "5 ",
command = function() tkmessageBox(
message = "xxxxx", icon = "error"))
tkadd(openRecentMenu, "command", label = "6",
command = function() tkmessageBox(
message = "yyyyy", icon = "error"))
tkadd(fileMenu, "cascade", label = "BBB", menu = openRecentMenu)
tkadd(fileMenu, "command", label = "EXIT", command = function() tkdestroy(tt))
tkadd(topMenu, "cascade", label = "AAA", menu = fileMenu)
# end code
More information about the R-help
mailing list