Fixed manual control buttons

This commit is contained in:
Alessandro Ranellucci 2015-11-02 20:42:40 +01:00
parent 9ee6829ebc
commit 16c38315f7

View file

@ -81,11 +81,11 @@ sub new {
# X buttons
{
my $sizer = Wx::BoxSizer->new(wxHORIZONTAL);
for my $d (qw(-0.1 -1 -10)) {
for my $d (qw(-10 -1 -0.1)) {
$move_button->($sizer, $d, 'arrow_left', 0, wxTOP, sub { $self->rel_move('X', $d) });
}
$move_button->($sizer, 'X', 'house', 1, wxTOP, sub { $self->home('X') });
for my $d (qw(+10 +1 +0.1)) {
for my $d (qw(+0.1 +1 +10)) {
$move_button->($sizer, $d, 'arrow_right', 0, wxTOP, sub { $self->rel_move('X', $d) });
}
$bed_sizer->Add($sizer, 1, wxEXPAND, 0);