3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor GUI improvements to toolpaths preview

Browse Source
This commit is contained in:
Alessandro Ranellucci 2014-12-01 00:10:32 +01:00
parent 98c67007d5
commit 04bcb410a9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Slic3r/GUI/Plater/2DToolpaths.pm
View File

@ -4,7 +4,7 @@ use warnings;
use utf8; use utf8;
use Slic3r::Print::State ':steps'; use Slic3r::Print::State ':steps';
use Wx qw(:misc :sizer :slider :statictext); use Wx qw(:misc :sizer :slider :statictext wxWHITE);
use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN); use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN);
use base qw(Wx::Panel Class::Accessor); use base qw(Wx::Panel Class::Accessor);
@ -15,6 +15,7 @@ sub new {
my ($parent, $print) = @_; my ($parent, $print) = @_;
my $self = $class->SUPER::new($parent, -1, wxDefaultPosition); my $self = $class->SUPER::new($parent, -1, wxDefaultPosition);
$self->SetBackgroundColour(wxWHITE);
# init GUI elements # init GUI elements
my $canvas = $self->{canvas} = Slic3r::GUI::Plater::2DToolpaths::Canvas->new($self, $print); my $canvas = $self->{canvas} = Slic3r::GUI::Plater::2DToolpaths::Canvas->new($self, $print);
@ -93,6 +94,7 @@ sub reload_print {
$self->enabled(1); $self->enabled(1);
$self->set_z($self->{layers_z}[0]) if @{$self->{layers_z}}; $self->set_z($self->{layers_z}[0]) if @{$self->{layers_z}};
$self->{slider}->Show; $self->{slider}->Show;
$self->Layout;
} }
sub set_z { sub set_z {