Keep print job order
This commit is contained in:
parent
9438289fc1
commit
cb8f8a24b0
1 changed files with 5 additions and 3 deletions
|
@ -389,15 +389,16 @@ sub print_completed {
|
||||||
$self->set_status('Print completed.');
|
$self->set_status('Print completed.');
|
||||||
$self->{log_textctrl}->AppendText(sprintf "Print completed at %s\n", $self->_timestamp);
|
$self->{log_textctrl}->AppendText(sprintf "Print completed at %s\n", $self->_timestamp);
|
||||||
|
|
||||||
# reorder jobs
|
|
||||||
@{$self->jobs} = sort { $a->printed <=> $b->printed } @{$self->jobs};
|
|
||||||
|
|
||||||
$self->reload_jobs;
|
$self->reload_jobs;
|
||||||
}
|
}
|
||||||
|
|
||||||
sub reload_jobs {
|
sub reload_jobs {
|
||||||
my ($self) = @_;
|
my ($self) = @_;
|
||||||
|
|
||||||
|
# reorder jobs
|
||||||
|
@{$self->jobs} = sort { ($a->printed <=> $b->printed) || ($a->timestamp <=> $b->timestamp) }
|
||||||
|
@{$self->jobs};
|
||||||
|
|
||||||
# remove all panels
|
# remove all panels
|
||||||
foreach my $child ($self->{jobs_panel_sizer}->GetChildren) {
|
foreach my $child ($self->{jobs_panel_sizer}->GetChildren) {
|
||||||
my $window = $child->GetWindow;
|
my $window = $child->GetWindow;
|
||||||
|
@ -476,6 +477,7 @@ use Moo;
|
||||||
use File::Basename qw(basename);
|
use File::Basename qw(basename);
|
||||||
|
|
||||||
has 'id' => (is => 'ro', required => 1);
|
has 'id' => (is => 'ro', required => 1);
|
||||||
|
has 'timestamp' => (is => 'ro', default => sub { time });
|
||||||
has 'gcode_file' => (is => 'ro', required => 1);
|
has 'gcode_file' => (is => 'ro', required => 1);
|
||||||
has 'filament_stats' => (is => 'rw');
|
has 'filament_stats' => (is => 'rw');
|
||||||
has 'printing' => (is => 'rw', default => sub { 0 });
|
has 'printing' => (is => 'rw', default => sub { 0 });
|
||||||
|
|
Loading…
Add table
Reference in a new issue