[R] autofill for a tkentry field

[Adrian Dragulescu]

Hello all,

I'm experimenting with tlk/tk and I find it very useful. I would like to
have the text of a tkentry be automatically filled when the user starts
typing, according to a  predetermined list.  I've found a solution on the
tcl wiki pages, but I don't quite know how to translate it in R... Here is
the tcl code: http://wiki.tcl.tk/13267

And here is my code that does not work.
 autofill <- function(){
    cat("I was here!")
    entry <- tclvalue(f1)
    ind <- grep(entry, fruitList)
    if (length(ind)>0){f1 <- tclVar(fruitList[ind[1]])}
   }

  fruitList <<- c("Apple", "Banana", "Peach", "Pear", "Plum", "Mango")
  tkdestroy(tt)
  tt  <- tktoplevel()
  pw  <- tkframe(tt)
  ppw <- tk2labelframe(pw, text="Fruits:")
  f1  <<- tclVar("")
  entry1.f <- tkentry(ppw, width=30, textvariable=f1, validate="key",
                      validatecommand=autofill)
  tkgrid(entry1.f)
  tkgrid(ppw)
  tkgrid(pw)

I don't know how to pass arguments to the autofill function, so I can
manipulate the textvariable.  Any help is much appreciated.  If we get a
working solution, maybe we should add this example to
http://www.sciviews.org/_rgui/tcltk/index.html.

Thank you,
Adrian