… | |
… | |
573 | my $sw = $self->{skillwid}{$idx}; |
573 | my $sw = $self->{skillwid}{$idx}; |
574 | $sw->[0]->set_text (::formsep ($val->[1])); |
574 | $sw->[0]->set_text (::formsep ($val->[1])); |
575 | $sw->[1]->set_text ($val->[0] * 1); |
575 | $sw->[1]->set_text ($val->[0] * 1); |
576 | $sw->[2]->set_value (@$val); |
576 | $sw->[2]->set_value (@$val); |
577 | |
577 | |
578 | #$::GAUGES->{sklprg}->set_label ($name); |
578 | $::GAUGES->{sklprg}->set_label ("$name %d%%"); |
579 | $::GAUGES->{sklprg}->set_value (@$val); |
579 | $::GAUGES->{sklprg}->set_value (@$val); |
580 | } |
580 | } |
581 | } |
581 | } |
582 | |
582 | |
583 | sub macro_send { |
583 | sub macro_send { |
… | |
… | |
594 | $self->{record}->($command) |
594 | $self->{record}->($command) |
595 | if $self->{record}; |
595 | if $self->{record}; |
596 | |
596 | |
597 | $self->logprint ("send: ", $command); |
597 | $self->logprint ("send: ", $command); |
598 | $self->send_command ($command); |
598 | $self->send_command ($command); |
599 | ::status ($command); |
|
|
600 | } |
599 | } |
601 | |
600 | |
602 | sub record { |
601 | sub record { |
603 | my ($self, $cb) = @_; |
602 | my ($self, $cb) = @_; |
604 | |
603 | |