Displaying 1 result from an estimated 1 matches for "plotmenu".
Did you mean:
bootmenu
2008 Aug 19
1
Open directory within a menu in tcltk
...to open files and directories. I have the following code:
opendir<-function() {
dirname<<-tclvalue(tkchooseDirectory())
}
openfile<-function() {
filename<<-tclvalue(tkgetOpenFile())
}
require(tcltk)
t1<-tktoplevel()
topMenu<-tkmenu(t1)
tkconfigure(t1,menu=topMenu)
plotMenu<-tkmenu(topMenu, tearoff=FALSE)
tkadd(plotMenu,"command",label="Open file", command=openfile)
tkadd(plotMenu, "command",label="Select directory",command=opendir)
tkadd(plotMenu,"command",label="Quit", command=function() tkdestroy(t1))...