$mw->after( 'idle', [configure => $styleref_select_parent,
-background => 'cyan' ],
);
####
$styleref_select_parent->configure(-background => 'cyan');
##
##
after(*ms*, *callback*?).
##
##
sub brscmd {
my ($previous_index, $actual_index) = @_;
my ($row, $col) = split ',', $actual_index;
my ($sel, $js);
$sel = $t->curselection(); # <-- THE PROBLEM
print "@$sel\n";
foreach $js (@$sel) {
print "\n[brscmd] actual index
<$actual_index>
from curselection <$js>\n";
}
}
##
##
sub brscmd {
my ($previous_index, $actual_index) = @_;
my ($row, $col) = split ',', $actual_index;
my ($sel, $js);
$t->after( 'idle', # <-- THE SOLUTION
sub{
my $sel = $t->curselection();
print "@$sel\n";
foreach $js (@$sel) {
print "[brscmd] actual
index <$actual_index>
from curselection <$js>
last_button_key
<$last_button_key>\n";
}
}
);
}