| … | |
… | |
| 748 | |
748 | |
| 749 | sub event_update_game { |
749 | sub event_update_game { |
| 750 | my ($self) = @_; |
750 | my ($self) = @_; |
| 751 | $self->SUPER::event_update_game; |
751 | $self->SUPER::event_update_game; |
| 752 | |
752 | |
| 753 | my $title = $self->{channel} ? $self->owner->as_string." ".$self->opponent_string : "Game Window"; |
753 | my $title = $self->{channel} ? $self->owner->as_string . " " . $self->opponent_string : "Game Window"; |
| 754 | $self->{window}->set_title("KGS Game $title"); |
754 | $self->{window}->set_title("KGS Game $title"); |
|
|
755 | $self->{title}->set_text ($title); |
| 755 | |
756 | |
| 756 | $self->{user}[BLACK] = $self->{user1}; |
757 | $self->{user}[BLACK] = $self->{user1}; |
| 757 | $self->{user}[WHITE] = $self->{user2}; |
758 | $self->{user}[WHITE] = $self->{user2}; |
| 758 | |
759 | |
| 759 | # show board |
760 | # show board |
| … | |
… | |
| 779 | $ga[1] .= " saved" if $self->is_saved; |
780 | $ga[1] .= " saved" if $self->is_saved; |
| 780 | |
781 | |
| 781 | $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid; |
782 | $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid; |
| 782 | |
783 | |
| 783 | $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>" |
784 | $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>" |
| 784 | . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>"; |
785 | . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>" |
|
|
786 | if $self->is_valid; |
| 785 | |
787 | |
| 786 | if ($self->is_valid) { |
788 | if ($self->is_valid) { |
| 787 | $ga[4] = "\nHandicap: " . $self->{handicap}; |
789 | $ga[4] = "\nHandicap: " . $self->{handicap}; |
| 788 | $ga[5] = "\nKomi: " . $self->{komi}; |
790 | $ga[5] = "\nKomi: " . $self->{komi}; |
| 789 | $ga[6] = "\nSize: " . $self->size_string; |
791 | $ga[6] = "\nSize: " . $self->size_string; |
