| … | |
… | |
| 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 { |
| … | |
… | |
| 786 | $text .= "\nHandicap: " . $self->{handicap}; |
786 | $text .= "\nHandicap: " . $self->{handicap}; |
| 787 | $text .= "\nKomi: " . $self->{komi}; |
787 | $text .= "\nKomi: " . $self->{komi}; |
| 788 | $text .= "\nSize: " . $self->size_string; |
788 | $text .= "\nSize: " . $self->size_string; |
| 789 | } |
789 | } |
| 790 | |
790 | |
|
|
791 | if ($self->is_scored) { |
|
|
792 | $text .= "\nResult: " . $self->score_string; |
|
|
793 | } |
|
|
794 | |
| 791 | $self->{text}->append_text ("<infoblock>$text</infoblock>"); |
795 | $self->{text}->append_text ("<infoblock>$text</infoblock>"); |
| 792 | } |
796 | } |
| 793 | |
797 | |
| 794 | sub event_update_rules { |
798 | sub event_update_rules { |
| 795 | my ($self, $rules) = @_; |
799 | my ($self, $rules) = @_; |
