| … | |
… | |
| 435 | $self->{user}[COLOUR_BLACK] = $self->{user1}; |
435 | $self->{user}[COLOUR_BLACK] = $self->{user1}; |
| 436 | $self->{user}[COLOUR_WHITE] = $self->{user2}; |
436 | $self->{user}[COLOUR_WHITE] = $self->{user2}; |
| 437 | |
437 | |
| 438 | # show board |
438 | # show board |
| 439 | |
439 | |
| 440 | if ($self->is_valid) { |
440 | if ($self->is_inprogress) { |
| 441 | #D# TODO: check wether already inside, or already removed!!! |
441 | #D# TODO: check wether already inside, or already removed!!! |
| 442 | $self->{left}->add ($self->{boardbox}); |
442 | $self->{left}->add ($self->{boardbox}) if $self->{boardbox}->parent; |
| 443 | $self->{left}->remove ($self->{challenge}->widget) if $self->{challenge}; |
443 | $self->{left}->remove ($self->{challenge}->widget) if $self->{challenge}; |
| 444 | } else { |
444 | } else { |
| 445 | #D# TODO: check wether already inside, or already removed!!! |
445 | #D# TODO: check wether already inside, or already removed!!! |
| 446 | $self->{left}->add ($self->{challenge}->widget); |
446 | $self->{left}->add ($self->{challenge}->widget); |
| 447 | $self->{left}->remove ($self->{boardbox}); |
447 | $self->{left}->remove ($self->{boardbox}) if $self->{boardbox}->parent; |
| 448 | } |
448 | } |
| 449 | $self->{left}->show_all; |
449 | $self->{left}->show_all; |
| 450 | |
450 | |
| 451 | # view text |
451 | # view text |
| 452 | |
452 | |
| 453 | eval { #d# |
453 | eval { #d# |
| 454 | my @ga; |
454 | my @ga; |
| 455 | $ga[0] = "\nType: " . (util::toxml $gametype{$self->type}) |
455 | $ga[0] = "\nType: " . (util::toxml $gametype{$self->type}) |
| 456 | . " (" . (util::toxml $gameopt{$self->option}) . ")"; |
456 | . " (" . (util::toxml $gameopt{$self->option}) . ")"; |
| 457 | $ga[1] = "\nFlags:"; |
457 | $ga[1] = "\nFlags:"; |
| 458 | $ga[1] .= " valid" if $self->is_valid; |
458 | $ga[1] .= " started" if $self->is_inprogress; |
| 459 | $ga[1] .= " adjourned" if $self->is_adjourned; |
459 | $ga[1] .= " adjourned" if $self->is_adjourned; |
| 460 | $ga[1] .= " scored" if $self->is_scored; |
460 | $ga[1] .= " scored" if $self->is_scored; |
| 461 | $ga[1] .= " saved" if $self->is_saved; |
461 | $ga[1] .= " saved" if $self->is_saved; |
| 462 | |
462 | |
| 463 | $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" if $self->{user3}->is_valid; |
463 | $ga[2] = "\nOwner: <user>" . (util::toxml $self->{user3}->as_string) . "</user>" |
|
|
464 | if $self->{user3}->is_inprogress; |
| 464 | |
465 | |
| 465 | $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>" |
466 | $ga[3] = "\nPlayers: <user>" . (util::toxml $self->{user2}->as_string) . "</user>" |
| 466 | . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>" |
467 | . " vs. <user>" . (util::toxml $self->{user1}->as_string) . "</user>" |
| 467 | if $self->is_valid; |
468 | if $self->is_inprogress; |
| 468 | |
469 | |
| 469 | if ($self->is_valid) { |
470 | if ($self->is_inprogress) { |
| 470 | $ga[4] = "\nHandicap: " . $self->{handicap}; |
471 | $ga[4] = "\nHandicap: " . $self->{handicap}; |
| 471 | $ga[5] = "\nKomi: " . $self->{komi}; |
472 | $ga[5] = "\nKomi: " . $self->{komi}; |
| 472 | $ga[6] = "\nSize: " . $self->size_string; |
473 | $ga[6] = "\nSize: " . $self->size_string; |
| 473 | } |
474 | } |
| 474 | |
475 | |
