| … | |
… | |
| 633 | |
633 | |
| 634 | sub update_board { |
634 | sub update_board { |
| 635 | my ($self) = @_; |
635 | my ($self) = @_; |
| 636 | return unless $self->{path}; |
636 | return unless $self->{path}; |
| 637 | |
637 | |
| 638 | $self->{NOW} = Time::HiRes::time; #d# get from msg(!) |
|
|
| 639 | |
|
|
| 640 | my $move = int (@{$self->{path}} * $self->{moveadj}->get_value); |
638 | my $move = int (@{$self->{path}} * $self->{moveadj}->get_value); |
| 641 | |
639 | |
| 642 | my $running = $move == @{$self->{path}}; |
640 | my $running = $move == @{$self->{path}}; |
| 643 | |
641 | |
| 644 | $self->{board_label}->set_text ("Move $move"); |
642 | $self->{board_label}->set_text ("Move $move"); |
