My doubts were resolved, thank you Gabor!!!!
ermimi wrote:
>
> Hello!
>
> I need help in a menu in TCL-TK. I have 3 functions, one function
> (function1) that sum 2 numbers and return the result. Other
> function(function2) that print a number. And the other (function3), is a
> menu that has several options. I need use the result that returns the
> option that calls to function1 to call the function2.
>
> tkadd(openRecentMenu,"command",label="Function1",
> command=function() function1(a,b))
>
>
> tkadd(openRecentMenu,"command",label="Function2",
> command=function() function2(d))
>
> I want that the value "d" is the return value of the function1, but I
> don´t know as I can asign the value to "d"
>
> Next, I show the 3 functions.
>
> Thank you very much,
>
> A greetings
>
> function1<-function(a,b){
> return(a+b);
> }
>
> function2<-function(a){
> print(a);
> }
>
> function3<-function(a,b){
> require(tcltk)
> tt <- tktoplevel()
> topMenu <- tkmenu(tt)
> tkconfigure(tt,menu=topMenu)
> fileMenu <- tkmenu(topMenu,tearoff=FALSE)
> openRecentMenu <- tkmenu(topMenu,tearoff=FALSE)
> tkadd(openRecentMenu,"command",label="Function1",
> command=function() function1(a,b))
> tkadd(openRecentMenu,"command",label="Function2",
> command=function() function2(d))
> tkadd(fileMenu,"cascade",label="Functions",menu=openRecentMenu)
> tkadd(fileMenu,"command",label="Quit",command=function() tkdestroy(tt))
> tkadd(topMenu,"cascade",label="File",menu=fileMenu)
> tkfocus(tt)
> }
>
--
View this message in context:
http://www.nabble.com/MENU-TCL-TK-tp16128790p16131042.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
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.
