Hi, Greg,
Yes, that helps immensely!
Thanks,
--sundar
Greg Snow said the following on 10/27/2008 7:14 PM:
Here is one example of using ttkcombobox, hopefully it helps:
library(tcltk)
have.ttk <- function () { # from Prof. Ripley
as.character(tcl("info", "tclversion")) >= "8.5"
}
testfunc <- function() {
tt <- tktoplevel()
if( !have.ttk() ) stop( "Need version 8.5 or greater of tcl" )
tkpack(tklabel(tt, text='Choose a package'), side='top')
tmp <- tclVar()
tclvalue(tmp) <- 'TeachingDemos'
tkpack(ttkcombobox( tt, values=c('blockrand',
'ObsSens','TeachingDemos','sudoku'), textvariable=tmp ),
side='left' )
tkpack(tkbutton(tt,text='print',command=function()
print(tclvalue(tmp))))
tkpack(tkbutton(tt,text='exit', command=function()
tkdestroy(tt)),side='right')
}
testfunc()
If you want something to happen when you change the combobox (rather than just
getting the value when you press a button or something else), then you will
probably have to use tkbind to bind an event to it, or use tkafter to check it
on a regular basis. I usually do as above and just have a button or something
else run the code when I want and it just gets the current value.
Hope this helps,
--
Gregory (Greg) L. Snow Ph.D.
Statistical Data Center
Intermountain Healthcare
[EMAIL PROTECTED]
801.408.8111
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
project.org] On Behalf Of Sundar Dorai-Raj
Sent: Monday, October 27, 2008 3:02 PM
To: r-help@r-project.org
Subject: [R] ttkcombobox
Hi, all,
(sessionInfo at the end)
I've been struggling with the tcltk package and can't seem to get the
ttkcombobox to work. Here's an example:
library(tcltk)
p <- tktoplevel()
l <- tclVar()
## I don't know if I'm even calling it correctly
cb <- ttkcombobox(p, values = letters[1:4], textvariable = l)
tkpack(cb)
1. How do I know when the value of the combobox has been changed from,
say, "a" to "b"?
2. How can I get the value of the box? E.g. if I switch the box to "b",
how can I access this value?
3. How can I set the default value to something of my choice? I've
tried
the "set" argument as described in the "Tcl/Tk 8.5 Manual" but I
received an error:
cb <- ttkcombobox(p, values = letters[1:4], textvariable = l, set =
"b")
Error in structure(.External("dotTclObjv", objv, PACKAGE = "tcltk"),
class = "tclObj") :
[tcl] unknown option "-set".
Thanks,
--sundar
> sessionInfo()
R version 2.7.2 (2008-08-25)
i386-pc-mingw32
locale:
LC_COLLATE=English_United States.1252;LC_CTYPE=English_United
States.1252;LC_MONETARY=English_United
States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252
attached base packages:
[1] tcltk stats graphics grDevices utils datasets methods
[8] base
______________________________________________
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.
______________________________________________
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.
______________________________________________
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.
