Add XYZ homing button to printer manual control

This commit is contained in:
Alessandro Ranellucci 2016-05-24 03:54:52 +02:00
parent 30f6e4b16f
commit 2a8c139ca4

View File

@ -87,7 +87,8 @@ sub new {
$bed_sizer->Add($sizer, 1, wxEXPAND, 0); $bed_sizer->Add($sizer, 1, wxEXPAND, 0);
} }
$bed_sizer->AddSpacer(0); # XYZ home button
$move_button->($bed_sizer, 'XYZ', 'house', 1, wxTOP, sub { $self->home(undef) });
# X buttons # X buttons
{ {
@ -180,6 +181,7 @@ sub rel_move {
sub home { sub home {
my ($self, $axis) = @_; my ($self, $axis) = @_;
$axis //= '';
$self->sender->send(sprintf("G28 %s", $axis), 1); $self->sender->send(sprintf("G28 %s", $axis), 1);
$self->{canvas}->set_pos(undef); $self->{canvas}->set_pos(undef);
$self->x_homed(1) if $axis eq 'X'; $self->x_homed(1) if $axis eq 'X';