… | |
… | |
578 | $::GAUGES->{sklprg}->set_label ("$name %d%%"); |
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 { |
|
|
584 | my ($self, $macro) = @_; |
|
|
585 | |
|
|
586 | for my $cmd (@{ $macro->{action} }) { |
|
|
587 | $self->send_command ($cmd); |
|
|
588 | } |
|
|
589 | } |
|
|
590 | |
|
|
591 | sub user_send { |
583 | sub user_send { |
592 | my ($self, $command) = @_; |
584 | my ($self, $command) = @_; |
593 | |
585 | |
594 | $self->{record}->($command) |
586 | $self->{record}->($command) |
595 | if $self->{record}; |
587 | if $self->{record}; |