sub aux4_on {
    my $self = shift;
    $self->{aux4_pin}->write(HIGH);
    $self->{aux4_display}->SetLabel("on");
    $self->{aux4_display}->SetForegroundcolour(
        Wx::Colour->new(0, 204, 0) # green
    );
}