mirror of
https://git.mirrors.martin98.com/https://github.com/prusa3d/PrusaSlicer.git
synced 2025-05-05 14:55:06 +08:00
19 lines
374 B
Perl
19 lines
374 B
Perl
# Status bar at the bottom of the main screen.
|
|
# Now it just implements cancel cb on perl side, every other functionality is
|
|
# in C++
|
|
|
|
package Slic3r::GUI::ProgressStatusBar;
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $cancel_cb;
|
|
|
|
sub SetCancelCallback {
|
|
my $self = shift;
|
|
my ($cb) = @_;
|
|
$cancel_cb = $cb;
|
|
$cb ? $self->ShowCancelButton : $self->HideCancelButton;
|
|
}
|
|
|
|
1;
|