Displaying 1 result from an estimated 1 matches for "tk2labelframe".
2007 Jan 01
0
autofill for a tkentry field
...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...