Re^3: TK spread sheet color row

[zentara]

yet I fail to find a way to color the row

Hi, you can try

$t->tagRow('active', $row);

and here is a full working example. Press the Update button to see it work.

#!/usr/bin/perl
use warnings;
use strict;
use Tk;
use Tk::TableMatrix;

my $mw = MainWindow->new;

my $arrayVar = {};

print "Filling Array...\n";
my ($rows,$cols) = (10, 10);
 foreach my $row  (0..($rows-1)){
    foreach my $col (0..($cols-1)){
      $arrayVar->{"$row,$col"} = "$row,$col";
   }
}

print "Creating Table...\n";

## Test out the use of a callback to define tags on rows and columns
sub colSub{
  my $col = shift;
  return "OddCol" if( $col > 0 && $col%2) ;
}

sub rowSub{
  my $row = shift;
  return "Oddrow" if( $row > 0 && $row%2) ;
}


 my $t = $mw->Scrolled('TableMatrix', -rows => $rows, -cols => $cols,
 -width => 6, -height => 6,
 -titlerows => 1, -titlecols => 1,
 -variable => $arrayVar,
 -coltagcommand => \&colSub,
 -colstretchmode => 'last',

 -rowtagcommand => \&rowSub,

 -rowstretchmode => 'last',
 -selectmode => 'extended',
 -selecttitles => 0,
 -drawmode => 'slow',
 -scrollbars=>'se'
 );


$mw->Button(-text => "Update", -command => \&update_table)
               ->pack(-side => 'bottom',-anchor => 'w');

#  Color definitions here:
$t->tagConfigure('active', -bg => 'white', -fg => 'red', -relief => 's
+unken');
$t->tagConfigure('OddCol', -bg => 'lightyellow', -fg => 'black');
$t->tagConfigure('title', -bg => 'lightblue', -fg => 'black', -relief 
+=> 'sunken');
$t->tagConfigure('dis', -state => 'disabled');
$t->pack(-expand => 1, -fill => 'both');
$t->focus;

Tk::MainLoop;

# $t->tagConfigure($anchor, -anchor => $anchor);
# $t->tagRow($anchor, ++$i);
# $t->set( "$i,$first",$anchor);

sub update_table {

        $t->tagCell('dis', '1,1' );
        $t->activate('2,2');
        $t->tagRow('active',3);
        
#       $t->configure(-padx =>( $t->cget(-padx)));
#       a trick needed sometimes to update                

}

[aviw]

TY!

I tried your version the taging is working :) but I get some issue with tagging again- once I select 3 rows than selecting one of the 3 rows again I don't get rowSub warn I add.

Kindly see my minor modification (marked by the comment "ADDED"/"REMOVED" ) which I add for test of the usage I need - select each row multiple times & mark only selected row.

>The issue can be seen when selected 4 rows than selecting one of the 3 prior rows again - the colSub method isn't being called.

Could kindly you advise?, I don't understand what I'm missing.

#.. remove the headers same as yours so msg will be shorter.
my $mw = MainWindow->new;

my $arrayVar = {};

print "Filling Array...\n";
my ($rows,$cols) = (10, 10);
 foreach my $row  (0..($rows-1)){
    foreach my $col (0..($cols-1)){
      $arrayVar->{"$row,$col"} = "$row,$col";
   }
}

print "Creating Table...\n";

## Test out the use of a callback to define tags on rows and columns
sub colSub{
  my $col = shift;
  return "OddCol" if( $col > 0 && $col%2) ;
}


 my $t = $mw->Scrolled('TableMatrix', -rows => $rows, -cols => $cols,
 -width => 6, -height => 6,
 -titlerows => 1, -titlecols => 1,
 -variable => $arrayVar,
 -coltagcommand => \&colSub,
 -colstretchmode => 'last',

 -rowtagcommand => \&rowSub,

 -rowstretchmode => 'last',
 -selectmode => 'extended',
 -selecttitles => 0,
 -drawmode => 'slow',
 -scrollbars=>'se'
 );


$mw->Button(-text => "Update", -command => \&update_table)
               ->pack(-side => 'bottom',-anchor => 'w');

#  Color definitions here:
$t->tagConfigure('active', -bg => 'blue', -fg => 'red', -relief => 'su
+nken');
$t->tagConfigure('OddCol', -bg => 'lightyellow', -fg => 'black');
$t->tagConfigure('title', -bg => 'lightblue', -fg => 'black', -relief 
+=> 'sunken');
$t->tagConfigure('dis', -state => 'disabled');
$t->pack(-expand => 1, -fill => 'both');
$t->focus;

Tk::MainLoop;

# $t->tagConfigure($anchor, -anchor => $anchor);
# $t->tagRow($anchor, ++$i);
# $t->set( "$i,$first",$anchor);
my $selected = -1;
my $prev_selected = -1;

sub update_table {
        #$t->tagCell('dis', '1,1' ); # REMOVED
        #$t->activate('2,2'); # REMOVED

        warn("\n\n\nprev_selected:'$prev_selected' , selected:'$select
+ed'"); # ADDED
        $t->tagRow('active',$selected) if ($selected != -1); # ADDED
        $t->tagRow('OddCol',$prev_selected) if (defined $prev_selected
+ && $prev_selected != -1); # ADDED
        $prev_selected = $selected; # ADDED
        warn("\n\n\npost updated prev_selected:'$prev_selected' , sele
+cted:'$selected'");

        
#       $t->configure(-padx =>( $t->cget(-padx)));
#       a trick needed sometimes to update                

}


sub rowSub{
  my $row = shift;
  $selected = $row; # ADDED
  warn ("\n\nrowSub - row: $row"); # ADDED

  return "Oddrow" if( $row > 0 && $row%2) ;
}

[zentara]

Could kindly you advise?, I don't understand what I'm missing.

Hi, I havn't used TableMatrix enough to answer offhand. From my understanding of tags on the Tk::Canvas I would bet that you need to use the -browsecmd and -selcmd callbacks to do some juggling of the tags. It may require complicated callbacks, maybe with arrays of rows which need their tags changed. Look at tags as something fluid, change tags, change them back, etc. Sometimes it takes a bit of contemplation to get it right. :-)

[aviw]

Not Sovled yet, when updated the row:

 t->tagRow('OddCol',$prev_selected) if (defined $prev_selected && $prev_selected != -1); # ADDED

TO:

 t->tagRow(undef,$prev_selected) if (defined $prev_selected && $prev_selected != -1); # ADDED

Now can select same row again.BUT when select row 5 post selecting row 1 I get all rows 2,3,4,5 Why?\ Isn't there normal way to do this? Do I miss something?

[zentara]

Excellent! Nice and concise.