ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/kgsueme/kgsueme/game.pl
(Generate patch)

Comparing kgsueme/kgsueme/game.pl (file contents):
Revision 1.43 by pcg, Tue Jun 3 18:47:43 2003 UTC vs.
Revision 1.44 by pcg, Tue Jun 3 19:03:35 2003 UTC

… …
647sub update_board { 647sub update_board {
648 my ($self) = @_; 648 my ($self) = @_;
649 return unless $self->{path}; 649 return unless $self->{path};
650 650
651 my $move = int $self->{moveadj}->get_value; 651 my $move = int $self->{moveadj}->get_value;
652
653 warn "update_board called $move\n";#d#
652 654
653 my $running = $move == @{$self->{path}}; 655 my $running = $move == @{$self->{path}};
654 656
655 $self->{board_label}->set_text ("Move $move"); 657 $self->{board_label}->set_text ("Move $move");
656 658

Diff Legend

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