in reply to Re^4: TK spread sheet color row
in thread TK spread sheet color row

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?

Replies are listed 'Best First'.
Re^6: TK spread sheet color row
by zentara (Cardinal) on Jul 09, 2017 at 15:24 UTC
[reply]

      Solved solution for anyone needs:

      $table = $middle_f->Scrolled(..., -browsecommand => \&select_change, -
+selcmd=> sub
          {
            return if ($is_new_row != 1);
            $is_new_row = 0;
            $table->tagRow('impair_row' ,$selected_row_number) if ($se
+lected_row_number != -1);
            $table->tagRow(undef ,$prev_selected_row_number) if (defin
+ed  $prev_selected_row_number && $prev_selected_row_number != -1 && $
+prev_selected_row_number != $selected_row_number);
          });

#marker tag for selected row
$table->tagConfigure( 
  'impair_row', 
  -bg     => 'gray90', 
  -fg     => 'black', 
  -relief => 'sunken', 
  -state  => 'disabled' 
); 

sub select_change {  
  my  ($old_cell, $new_cell) = @_; 
  $new_cell =~/(\d+),/;
  $selected_row_number = $1;
  $old_cell =~/(\d+),/;
  $prev_selected_row_number = $1;
  $is_new_row = 1;
}

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom