R help - Mar 2006 - tcltk error when calling a dialog

Hello;

I've got several radiobuttons in tcltk with the following sintaxis:

tk2.rd <- /tkradiobutton(/frame4,command=plotDialog1,text="New Q
plot", value=2, variable=OUTPLOTtclVar/)/

All the buttons call the same function "plotDialog1". With the
objective
of call a dialog to select some plotting options.

When I select one of the radiobuttons and the windows with the plotting
options appears. It appears blank, and I obtain this message of error in R:
> Error in structure(.External("dotTclObjv", objv, PACKAGE =
"tcltk"),
class = "             tclObj") :
        [tcl] grab failed: window not viewable.

All radio buttons are within a frame in a window named "dlg". I've
removed nearly everything in this function and I still obtain the same
error when clicking on a radiobutton.
Even with this very simple remaining code:

    plotDialog1 <- function/()/ {
      mddlg2 <- /tktoplevel()/
      tkwm./deiconify(/mddlg2/)/
      tkgrab./set(/mddlg2/)/
      tkwm./title(/mddlg2,"Plot options"/)/

      onNO <- function/()/
        {
          tkgrab./release(/mddlg2/)/
          /tkdestroy(/mddlg2/)/
          /tkfocus(/dlg/)/
        }
//      NO.but  <- /tkbutton(/mddlg2,text=" Cancel
",command=onNO/)/
      /tkgrid(/NO.but,pady=2/)/
      /tkfocus(/mddlg2/)/
      tkwait./window(/mddlg2/)/
    }


Please for those who are used to utilize the tcltk library: ¿Can you see a clear
error in this?
I'm new to this library and tcltk and I'm unable to find out the error.

Thanks and best regards,

Javier
------------







	[[alternative HTML version deleted]]