[ViewVC] Diff of: cvs/kgsueme/kgsueme/game.pl

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.28 by pcg, Sun Jun 1 15:43:58 2003 UTC vs.
Revision 1.29 by pcg, Sun Jun 1 16:51:38 2003 UTC

    $self->{userpanel}[BLACK]->set_state ($self->{board}{captures}[BLACK],
                                          $self->{board}{timer}[BLACK],
                                          $running && $self->{board}{last} == WHITE);
    $self->redraw ($self->repaint_board);
-   $self->{text}->set_text ($self->{board}{comment});
 }
 sub event_update_tree {
    my ($self) = @_;
    $self->{path} = $self->get_path;
    $self->{userpanel}[WHITE]->set_rules ($self->{path}[0]); # should be onload only
    $self->{userpanel}[BLACK]->set_rules ($self->{path}[0]); # should be onload only
    $self->{moveadj}->value_changed if $self->{moveadj};
+}
+sub event_update_comments {
+   my ($self, $node, $comment, $newnode) = @_;
+   $self->SUPER::event_update_comments($node, $comment, $newnode);
+   $self->{text}->append_text ("\nMove <move>$node->{move}</move>, <header>Node <node>$node->{id}</node></header>")
+      if $newnode;
+   $self->{text}->append_text ("\n" . util::toxml $comment);
 }
 sub event_part {
    my ($self) = @_;
    $self->SUPER::event_part;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines