Anonymous user
Simple windowed application: Difference between revisions
Added R code
(Added R code) |
|||
Line 914:
form.ShowModal</lang>
=={{header|R}}==
{{libheader|gWidgets}}
{{libheader|gWidgetstcltk}}
gWidgetsRGtk2 or gWidgetsrJava can be used as an alternative to gWidgetstcltk.
<lang r>
library(gWidgets)
library(gWidgetstcltk)
win <- gwindow()
lab <- glabel("There have been no clicks yet", container=win)
btn <- gbutton("click me", container=win, handle=function(h, ...)
{
val <- as.numeric(svalue(lab))
svalue(lab) <- ifelse(is.na(val) ,"1", as.character(val + 1))
}
)
</lang>
=={{header|Ruby}}==
| |||