R help - Sep 2001 - tcltk: Difficulties creating menus

I am struggling with adding menus to a tcltk application. The following
example (from the O'Reilly book on Perl/Tk) works fine:

#!/usr/bin/perl -w
use Tk;
my $mw = MainWindow->new;
$menub = $mw->Menubutton(-text => "Color")->pack();
foreach (qw/red yellow green blue grey/) {
  $menub->radiobutton(-label => $_, -command => \&set_bg,
                      -variable => \$background_color, -value => $_);
}
MainLoop;
sub set_bg {
  print "Background value is now: $background_color\n";
  $mw->configure(-background => $background_color);
}

I cannot get anything similar to work under R. Adding a tkmenubutton is
easy, but I fail to get it to "connect" to an actual menu composed of 
check or radiobuttons:

library(tcltk)
color<-"blue"
tt <- tktoplevel()
tkpack(mb <- tkmenubutton(tt, text="Color"))
## does nothing
## tkradiobutton(mb, variable=color, text="blue",
value="blue",
##              command=set.bg)
##
## Error: Error in .Tcl(.Tcl.args(...)) :
##  		[tcl] bad option "add": must be cget or configure.
## tkadd(mb, tkcheckbutton, label="blue", variable=color)
##
## Dito
## tkcmd("add", tkcheckbutton, label="blue", variable=color)
tkpack(tkbutton(tt, text="Quit", command=function()tkdestroy(tt)))

Any pointers or examples would be greatly appreciated.

Thanks,  Dirk

-- 
Better to have an approximate answer to the right question 
than a precise answer to the wrong question. -- John Tukey
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Dirk Eddelbuettel <edd at debian.org> writes:
> I am struggling with adding menus to a tcltk application. The following
> example (from the O'Reilly book on Perl/Tk) works fine:
> 
> #!/usr/bin/perl -w
> use Tk;
> my $mw = MainWindow->new;
> $menub = $mw->Menubutton(-text => "Color")->pack();
> foreach (qw/red yellow green blue grey/) {
>   $menub->radiobutton(-label => $_, -command => \&set_bg,
>                       -variable => \$background_color, -value => $_);
> }
> MainLoop;
> sub set_bg {
>   print "Background value is now: $background_color\n";
>   $mw->configure(-background => $background_color);
> }
> 
> I cannot get anything similar to work under R. Adding a tkmenubutton is
> easy, but I fail to get it to "connect" to an actual menu
composed of
> check or radiobuttons:
> 
> library(tcltk)
> color<-"blue"
> tt <- tktoplevel()
> tkpack(mb <- tkmenubutton(tt, text="Color"))
> ## does nothing
> ## tkradiobutton(mb, variable=color, text="blue",
value="blue",
> ##              command=set.bg)
> ##
> ## Error: Error in .Tcl(.Tcl.args(...)) :
> ##  		[tcl] bad option "add": must be cget or configure.
> ## tkadd(mb, tkcheckbutton, label="blue", variable=color)
> ##
> ## Dito
> ## tkcmd("add", tkcheckbutton, label="blue",
variable=color)
> tkpack(tkbutton(tt, text="Quit",
command=function()tkdestroy(tt)))
> 
> Any pointers or examples would be greatly appreciated.
Variables need special handling. You cannot just link to an R variable
(because they tend to move around in memory when you assign them) as
you can in Tcl or Perl/Tk. The convention is (for now anyway)

tkxxx(...., variable="color",....)
tclvar$color <- "blue"
-etc-

Also note that Perl/Tk does its own sneaky things with the control
language, in particular it bypasses the creation of a menu widget, to
make everything more object oriented.

The R interface would be closer to the Tcl:

library(tcltk)
tclvar$color<-"blue"
tt <- tktoplevel()
tkpack(mb <- tkmenubutton(tt, text="Color"))
m <- tkmenu(mb)
tkconfigure(mb,menu=m)
for ( i in c("red", "blue", "green"))
   tkadd(m, "radio", label=i, variable="color", value=i)

(And I was just getting to this bit for the Rnews paper that Kurt has
been nagging me for. Thanks...)
-- 
   O__  ---- Peter Dalgaard             Blegdamsvej 3  
  c/ /'_ --- Dept. of Biostatistics     2200 Cph. N   
 (*) \(*) -- University of Copenhagen   Denmark      Ph: (+45) 35327918
~~~~~~~~~~ - (p.dalgaard at biostat.ku.dk)             FAX: (+45) 35327907
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

On Wed, Sep 19, 2001 at 11:44:22PM +0200, Peter Dalgaard BSA
wrote:
> Dirk Eddelbuettel <edd at debian.org> writes:
[...] 
> Variables need special handling. You cannot just link to an R variable
Ah, yes, I modified / extended the tkttest example, but forgot that here.
> The R interface would be closer to the Tcl:
> 
> library(tcltk)
> tclvar$color<-"blue"
> tt <- tktoplevel()
> tkpack(mb <- tkmenubutton(tt, text="Color"))
> m <- tkmenu(mb)
> tkconfigure(mb,menu=m)
> for ( i in c("red", "blue", "green"))
>    tkadd(m, "radio", label=i, variable="color",
value=i)
 
Excellent. I had looked at tkmenu and tkadd but not figured out the
tkconfigure piece in between. Many thanks. 
> (And I was just getting to this bit for the Rnews paper that Kurt has
> been nagging me for. Thanks...)
So there will be more documentation and examples? Even better :)

Thanks, Dirk

-- 
Three out of two people have difficulties with fractions.
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._