| … | |
… | |
| 414 | |
414 | |
| 415 | sub event_update_game { |
415 | sub event_update_game { |
| 416 | my ($self) = @_; |
416 | my ($self) = @_; |
| 417 | $self->SUPER::event_update_game; |
417 | $self->SUPER::event_update_game; |
| 418 | |
418 | |
| 419 | my $title = $self->{channel} ? $self->owner->as_string . " " . $self->opponent_string : "Game Window"; |
419 | my $title = defined $self->{channel} |
|
|
420 | ? $self->owner->as_string . " " . $self->opponent_string |
|
|
421 | : "Game Window"; |
| 420 | $self->{window}->set_title("KGS Game $title"); |
422 | $self->{window}->set_title("KGS Game $title"); |
| 421 | $self->{title}->set_text ($title); |
423 | $self->{title}->set_text ($title); |
| 422 | |
424 | |
| 423 | $self->{user}[BLACK] = $self->{user1}; |
425 | $self->{user}[BLACK] = $self->{user1}; |
| 424 | $self->{user}[WHITE] = $self->{user2}; |
426 | $self->{user}[WHITE] = $self->{user2}; |
