gWidgetstcltk gtext problem

classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

gWidgetstcltk gtext problem

mrzung
hi, what I want to do is put a function result(output) into gtext area.
short example is following,

require("gWidgetstcltk")
options(guiToolkit = "tcltk")

win<-gwindow()
input<-gedit("",con=win)
run<-gbutton("run",con=win,handler=function(h,...){
y<<-as.numeric(svalue(input))+1
})
outarea<-gtext("",con=win)


in this case, I want to put "y" value into "outarea" whenever click the "run" button.
specifically, I want to solve this problem by gWidgetstcltk.

Thanks
Reply | Threaded
Open this post in threaded view
|

Re: gWidgetstcltk gtext problem

jverzaniNWBKZ
mrzung <mrzung46 <at> gmail.com> writes:

>
> hi, what I want to do is put a function result(output) into gtext area.
> short example is following,
>
> require("gWidgetstcltk")
> options(guiToolkit = "tcltk")
>
> win<-gwindow()
> input<-gedit("",con=win)
> run<-gbutton("run",con=win,handler=function(h,...){
> y<<-as.numeric(svalue(input))+1
> })
> outarea<-gtext("",con=win)
>
> in this case, I want to put "y" value into "outarea" whenever click the
> "run" button.
> specifically, I want to solve this problem by gWidgetstcltk.
>
> Thanks
>


The following shows how you can do this. The main answer is
use svalue<- to set the contents of the gtext area, or use
insert() to append text.

library(gWidgets)
options(guiToolkit="tcltk")

w <- gwindow("output", visible=FALSE)
g <- ggroup(cont=w, horizontal=FALSE)

g1 <- ggroup(cont=g)
input <- gedit("", cont=g1, expand=TRUE)
btn <- gbutton("run", cont=g1)
output <- gtext("", cont=g)

visible(w) <- TRUE

run <- function(h,...) {
  val <- svalue(input)
  svalue(output) <- as.numeric(val) + 1
}

sapply(list(btn, input), addHandlerChanged, handler=run )

______________________________________________
[hidden email] 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.