I still can not use the "tag cget" to get the background color assigned to individual cells.

use strict;
 use warnings;
use Tkx; 
Tkx::package_require("Tktable");
my %hash =();
my $table;
my $mw = Tkx::widget->new(".");
 %hash = 
        ( # data to display
          '0,0' => 'Goodby',
          '1,1' => 'cruel',
          '2,2' => 'world',
          );
 $table = $mw->new_table
         (
          -rows => 3,
          -cols => 3,
          -bg => "white",
          -width => 6, -height => 6,
          -cache => 1,
          -variable => \%hash,
         );
$table->g_pack(-fill => 'both', -expand => 1);
################################################ 
#   set data and assign background color to cells
################################################ 
$table->tag("celltag","g",("1,1"));
$table->tag("celltag","y",("2,2"));

$table->tag("configure","g",-bg=>"green",-fg=>"red");
$table->tag("configure","y",-bg=>"yellow",-fg=>"red");

my $info;
   $info = $table->tag("cget", "g", "-background", -row? -col?);  
   print "info=$info\n";                            

Tkx::MainLoop();
[download]