… | |
… | |
417 | |
417 | |
418 | sub event_update_game { |
418 | sub event_update_game { |
419 | my ($self) = @_; |
419 | my ($self) = @_; |
420 | $self->SUPER::event_update_game; |
420 | $self->SUPER::event_update_game; |
421 | |
421 | |
|
|
422 | return unless $self->{window}; |
|
|
423 | |
422 | my $title = defined $self->{channel} |
424 | my $title = defined $self->{channel} |
423 | ? $self->owner->as_string . " " . $self->opponent_string |
425 | ? $self->owner->as_string . " " . $self->opponent_string |
424 | : "Game Window"; |
426 | : "Game Window"; |
425 | $self->{window}->set_title("KGS Game $title"); |
427 | $self->{window}->set_title("KGS Game $title"); |
426 | $self->{title}->set_text ($title); |
428 | $self->{title}->set_text ($title); |