I thought that I would try trapping the button or key that was used to select a cell hoping that I would be able to tell in the browse command how the cell had been selected.
Therefore I can tell if one of the arrow keys had been used and I would know which cell should be active.
This is in the Perl code below.
You will see that I used bind’s with Keypress and ButtonPress.
The binds printed and set a variable to indicate which bind had been used.

When a mouse button was used, the output was:
print_button1 button 1 pressed
brscmd entry - last_button_key <button 1>
brscmd actual index <4,3> from curselection <4,3>
brscmd exit

When an arrow key was used, the output was:
brscmd entry - last_button_key <button 1>
brscmd actual index <5,3> from curselection <4,3>
brscmd exit
print_keysym Keysym = Down numeric 65364

As can be seen, the bind for the mouse button happed before the browse command was entered but the bind for the arrow key happened after the browse command was finished.
I guess this could be the reason for my original problem when I found that the selected cell was always the previous one when using an arrow key.
Can I alter when a bind is used or is that something 'deep' in the tablematrix code?
use Tk;
use Tk::TableMatrix;
my $mw = MainWindow->new;
my $arrayVar = {};
my $selcou = 0;
my $last_button_key;
print "Filling Array...\n";
my ($rows,$cols) = (10, 10);
 foreach my $row  (0..($rows-1)){
    foreach my $col (0..($cols-1)){
      $arrayVar->{"$row,$col"} = 2*$row + 3*$col;
   }
}
print "Creating Table...\n";
 my $t = $mw->Scrolled('TableMatrix', -rows => $rows, -cols => $cols,
 -width => 10, -height => 10,
 -titlerows => 1, -titlecols => 1,
 -variable => $arrayVar,
 -coltagcommand => \&colSub,
 -browsecommand => \&brscmd,
 -colstretchmode => 'last',
 -rowstretchmode => 'last',
 -selectmode => 'extended',
 -selecttitles => 0,
 -drawmode => 'slow',
 -scrollbars=>'se'
 );

$t->pack(-expand => 1, -fill => 'both');


sub brscmd {
my ($previous_index, $actual_index) = @_;
my ($row, $col) = split ',', $actual_index;
my ($sel, $js);

print "\n[brscmd] entry - last_button_key <$last_button_key>\n";

my $sel =  $t->curselection();

$sel_cou += 1;

#$t->curselection($sel_cou)

&TMRefresh($t);

foreach $js (@$sel) {
    print "\n[brscmd] actual index <$actual_index> from curselection <
+$js>\n";
}

print "\n[brscmd] exit\n";
}


#########################################
sub TMRefresh {
    #Required input TableMatrix object.
    #use to force matrix to update, a code trick
    return if (!$_[0]);
    $_[0]->configure(-padx =>($_[0]->cget(-padx)));

}   


$t->bind('<KeyPress>' =>\&print_keysym);

$t->bind('<ButtonPress-1>' =>\&print_button1);
$t->bind('<ButtonPress-2>' =>\&print_button2);

sub print_keysym{
    my($widget) = @_;
    my $e = $widget->XEvent;
    my($keysym_text, $keysym_decimal) = ($e->K, $e->N);
    print "[print_keysym] Keysym = $keysym_text  numeric $keysym_decim
+al\n";
    $last_button_key = 'key';
}

sub print_button1{
my($widget) = @_;

    print "[print_button1] button 1 pressed\n";
    $last_button_key = 'button 1';
}

sub print_button2{
my($widget) = @_;

    print "[print_button2] button 2 pressed\n";
    $last_button_key = 'button 2';
}
Tk::MainLoop;

[download]

In reply to Re^6: Table matrix suspected selected cell discrepancy by merrymonk
in thread Table matrix suspected selected cell discrepancy by merrymonk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.