… | |
… | |
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 |