Well, if it was _my_ problem (and it isn't...), I'd get hold of the documentation for TkTable and figure out how you are supposed to do it with Tcl/Tk, then figure out how to do the same thing(s) from R. You should have the building blocks by now.
-pd > On 06 Dec 2015, at 11:57 , Cleber N.Borges <kle...@yahoo.com.br> wrote: > > thanks by the help > but I do not understand how to set a tag in cell table. > > cleber > > > Em 05/12/2015 18:57, peter dalgaard escreveu: >>> On 05 Dec 2015, at 20:15 , Cleber N.Borges <kle...@yahoo.com.br> wrote: >>> >>> in 2003 [1] someone asked for: >>> "Is it possible to" block "the cell?" >>> but the solution involves the "tkcmd" that no longer exists ... >>> >>> tkcmd (.Tk.ID (table1), "tag", "celltag" "ZeroOne", "0.1") >> tcl() should be a drop-in replacement. The .Tk.ID() business should no >> longer be necessary, though. tcl(table1, "tag", "celltag",....) >> >> >>> I tried to adapt to: >>> >>> tktag.add (table1, "celltag" "ZeroOne", "0.1") >>> >>> but I get error. How to adapt it? >> Stop guessing and start thinking? >> >> That would be equivalent to >> >> tcl(table1, "tag", "add", "celltag" "ZeroOne", "0.1") >> >> and as the error message *clearly* says, there is no tag option "add"! >> >> -pd >> >>> Where it could have informations about the tcltk package as it does not >>> have the detailed help? >>> >>> thanks in advanced for help >>> cleber >>> >>> [1] - http://grokbase.com/p/r/r-help/037xs650d8/r-tktable-disable-cell >>> >>> >>> ############ >>>> tclRequire("Tktable") >>> <Tcl> 2.9 >>>> tt <- tktoplevel() >>>> table1 <- tkwidget(tt,"table",bg="white") >>>> tkpack(table1) >>> <Tcl> >>>> tkcmd(.Tk.ID(table1),"tag","celltag","ZeroOne","0,1") >>> Error: could not find function "tkcmd" >>>> tktag.add( table1,"tag","celltag","ZeroOne","0,1") >>> Error in structure(.External(.C_dotTclObjv, objv), class = "tclObj") : >>> [tcl] bad tag option "add": must be celltag, cget, coltag, configure, >>> delete, exists, includes, lower, names, raise, or rowtag. >>>> >>>> tkcmd(.Tk.ID(table1),"tag","celltag","ZeroTwo","0,2") >>> Error: could not find function "tkcmd" >>>> tkcmd(.Tk.ID(table1),"tag","configure","ZeroOne",state="disabled",bg="gray") >>> Error: could not find function "tkcmd" >>>> tkcmd(.Tk.ID(table1),"tag","configure","ZeroTwo",state="normal",bg="white") >>> Error: could not find function "tkcmd" >>>> .Tcl("set tclarray(0,0) Normal") >>> <Tcl> Normal >>>> .Tcl("set tclarray(0,1) Disabled") >>> <Tcl> Disabled >>>> .Tcl("set tclarray(0,2) Normal") >>> <Tcl> Normal >>>> tkconfigure(table1,variable="tclarray") >>> <Tcl> >>> >>> >>> --- >>> Este email foi escaneado pelo Avast antivĂrus. >>> https://www.avast.com/antivirus >>> >>> ______________________________________________ >>> 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. > > > --- > Este email foi escaneado pelo Avast antivĂrus. > https://www.avast.com/antivirus > > ______________________________________________ > 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. -- Peter Dalgaard, Professor, Center for Statistics, Copenhagen Business School Solbjerg Plads 3, 2000 Frederiksberg, Denmark Phone: (+45)38153501 Email: pd....@cbs.dk Priv: pda...@gmail.com ______________________________________________ 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.