8 my ($class, $args) = @_;
14 order => $args->{order},
19 $self->set_throttle(undef);
20 $self->set_fuel(undef);
25 sub gui { return shift->{gui}; }
28 my ($self, $val) = @_;
30 return if (!defined $self->{throttle} && !defined $val)
31 || (defined $self->{throttle} && defined $val
32 && $self->{throttle} == $val);
34 $self->{throttle} = $val;
35 $self->gui->set_throttle($self->{order}, $val);
40 my ($self, $val) = @_;
42 return if (!defined $self->{fuel} && !defined $val)
43 || (defined $self->{fuel} && defined $val
44 && $self->{fuel} == $val);
47 $self->gui->set_fuel($self->{order}, $val);