Hi Dan Were you able to find a way to access the % S values ?? Do you have any examples of how this works?
Thank you for your attention. Cleber Em 25/01/2016 08:21, peter dalgaard escreveu: > It's been so long that I have forgotten how to get the package with the table > widget installed on OSX, so I cannot check things for you. However, the > canonical way to handle %S type arguments is to pass them as formal arguments > to the callback, e.g. > >> .Tcl.callback(function(x,y)x+y) > [1] "R_call 0x7f9a34806ca0 %x %y" > > so I would assume that you should just define your > > CellValidation <- function(S){....} > > and then just access S as a variable inside the function. > > As far as I remember, this only works at entry completion, though. That does > sort of make sense since not every prefix of a valid entry is valid ("1e-2" > is a double, "1e-" is not). If you want to actually disable certain keys > during entry, then you have a larger task on your hand. > > -pd > > On 22 Jan 2016, at 21:25 , Dalthorp, Daniel <ddalth...@usgs.gov> wrote: > >> I'd like to allow users to edit data in tcltk tables and to use vcmd to >> validate data entry, e.g., not allowing non-numbers to be entered in >> numeric cells and not allowing '\n' to be entered in text cells. >> >> The problem is that I can't figure out how to "see" their data entry before >> it is entered, although it looks like %S can be somehow used in vcmd to get >> this information. >> >> Example: to disallow '\n' to be entered into a cell in an editable table: >> >> require(tcltk2) >> tt<-tktoplevel(); tfr<-tkframe(tt); tkgrid(tfr) >> tableData<-tclArray() >> tableData[[0,0]]<-"junk" >> >> CellValidation<-function(){ >> >> ## http://www.tcl.tk/community/hobbs/tcl/capp/tkTable/tkTable.html says: >> ## *%S* For *ValidateCommand*, it is the potential new value of the cell >> being validated. >> ## which is exactly what I want, but I can't figure out how to do that. >> ## The following allows one bad character and then disallows further edits >> >> testval<-tclvalue(tcl(table1,"curvalue")) >> >> if (length(grep("\n",testval))>0) return(tcl("expr", FALSE)) else >> return(tcl("expr", TRUE)) >> } >> >> table1<<-tk2table(tfr, >> rows=1,cols=1, >> selectmode="extended", >> variable=tableData, >> validate=T, >> vcmd=CellValidation >> ) >> >> tcl(table1,"tag","configure", "active", fg='black',bg=colors()[411]) >> tkgrid(table1) >> >> How can I get the %S value rather than the tcl(table1,"curvalue")? >> >> Much thanks for any help. >> >> -Dan >> --- Este email foi escaneado pelo Avast antiv�rus. https://www.avast.com/antivirus [[alternative HTML version deleted]]
______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.