How to capture the output from the "command" option of tktable and how
to send input to it?
As far as I understand, the most appropriate way to use the tktable is
through the flag usecommand and command.
It fires the string information and cell coordinates and wait for a new
string to set a new value.
It's I understood by example in pure TCL given in reference [1].
Is there how to translate this code to R?
I believe that the signs of tktable not reach the level of R and will
need to be accessed by the lower level commands. But how?
Thank you in advance for dedicated attention.
cleber
###
[1] - http://dbaspot.com/object/showthread.php?t=785221&pagenumber=
### my R code
library( tcltk )
tclRequire( "Tktable" )
tclServiceMode( FALSE )
top <- tktoplevel()
TableCommand <- function( x=NULL ) {
cat( class( x ), '\n' )
cat( x , '\n' )
}
tab <- tkwidget( top, 'table', rows=2, cols=2, usecommand=TRUE,
command=TableCommand )
tcl('pack', tab, expand=TRUE, fill='both' )
tclServiceMode( TRUE )
### TCL from [1]
package require Tktable
namespace eval ::test {}
proc ::test::build_table {} {
catch {destroy .test}
variable top [toplevel .test]
variable myarray
array unset myarray
variable table [table $top.table \
-rows 5 \
-height 5 \
-cols 2 \
-command "[namespace current]::TableCommand %S %r %c"]
pack $table -expand true -fill both
$table tag config complete -background blue
}
proc ::test::TableCommand {S r c} {
variable table
variable myarray
if {$S != ""} {
# I only want integers in my cells!
puts "\"$S\" into $r,$c ?"
if {[string is integer -strict $S]} {
$table tag cell complete "$r,$c"
set myarray($r,$c) $S
} else {
$table tag cell !complete "$r,$c"
array unset myarray $r,$c
}
}
if {[info exists myarray($r,$c)]} {
return $myarray($r,$c)
}
return "$r,$c"
}
::test::build_table
---
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.
