| … | |
… | |
| 681 | $self->{path} = $self->get_path; |
681 | $self->{path} = $self->get_path; |
| 682 | |
682 | |
| 683 | if ($self->{moveadj}) { |
683 | if ($self->{moveadj}) { |
| 684 | my $upper = $self->{moveadj}->upper; |
684 | my $upper = $self->{moveadj}->upper; |
| 685 | my $pos = $self->{moveadj}->get_value; |
685 | my $pos = $self->{moveadj}->get_value; |
|
|
686 | my $move = scalar @{$self->{path}}; |
| 686 | |
687 | |
| 687 | $self->{moveadj}->upper (scalar @{$self->{path}}); |
688 | $self->{moveadj}->upper ($move); |
| 688 | |
689 | |
| 689 | warn "UPDATE_TREE $pos,$upper";#d# |
690 | warn "UPDATE_TREE $pos,$upper";#d# |
| 690 | $self->{moveadj}->changed; |
691 | $self->{moveadj}->changed; |
| 691 | if ($pos == $upper) { |
692 | if ($pos == $upper) { |
| 692 | $self->{moveadj}->set_value (scalar @{$self->{path}}); |
693 | $self->{moveadj}->value ($move); |
| 693 | } else { |
694 | $self->{moveadj}->value_changed; |
| 694 | $self->update_board; |
|
|
| 695 | } |
695 | } |
| 696 | } |
696 | } |
| 697 | } |
697 | } |
| 698 | |
698 | |
| 699 | sub event_update_comments { |
699 | sub event_update_comments { |
