It might be a little bug, but I added a button to show the current selected cell, and it works to call $t->curselection() from outside the browsecommand sub. I also included a hack discovered awhile ago to force the widget to update. You might find it handy. :-)

This gets the current active cell correct, but from outside the browsecommand sub. There may be some tag to configure and set, to get the operation you want, but it eludes me.

An interesting thing is that if the curselection is called from the button, it works. But I added an external sub call to the browsecommand, and it returns the wrong info!! There is something funny in the browsecommand sub maintaining cell state.

#!/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"} = 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');

$mw->Button( -text => "Show Selected", 
      -command => sub{
         print $t->curselection(),"\n";       
   
      })->pack(-expand => 1, -fill => 'x');


Tk::MainLoop;

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

$sel =  $t->curselection();
print "@$sel\n";

#didn't do much
#$t->set('active',@$sel);

&get_active();

&TMRefresh($t);

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


sub get_active{
  &TMRefresh($t);
 my @active = @{$t->curselection()};
 print "active-> @active\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)));
}
[download]

---

---

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! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

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:
	&		&
	<		&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.