GUI fixes for Windows
This commit is contained in:
parent
f2f9178e07
commit
558e86e72d
1
Build.PL
1
Build.PL
@ -12,6 +12,7 @@ my $build = Module::Build->new(
|
||||
'Getopt::Long' => '0',
|
||||
'Math::Clipper' => '1.01',
|
||||
'Math::Geometry::Planar' => '0',
|
||||
'Math::Geometry::Planar::Offset' => '0',
|
||||
'Moo' => '0',
|
||||
'Time::HiRes' => '0',
|
||||
'XXX' => '0',
|
||||
|
@ -25,10 +25,14 @@ sub OnInit {
|
||||
|
||||
my $panel = Slic3r::GUI::SkeinPanel->new($frame);
|
||||
my $box = Wx::BoxSizer->new(wxVERTICAL);
|
||||
$box->Add($panel, 0, wxALL, 20);
|
||||
$box->Add($panel, 0);
|
||||
|
||||
$frame->SetSizerAndFit($box);
|
||||
$box->SetSizeHints($frame);
|
||||
$frame->SetSizer($box);
|
||||
$frame->Show;
|
||||
$frame->Layout;
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub About {
|
||||
|
@ -1,6 +1,7 @@
|
||||
package Slic3r::GUI::SkeinPanel;
|
||||
use strict;
|
||||
use warnings;
|
||||
use utf8;
|
||||
|
||||
use File::Basename qw(basename);
|
||||
use Wx qw(:sizer :progressdialog wxOK wxICON_INFORMATION wxICON_ERROR wxID_OK wxFD_OPEN);
|
||||
@ -210,12 +211,13 @@ sub new {
|
||||
my $sizer = Wx::BoxSizer->new(wxHORIZONTAL);
|
||||
foreach my $col (@cols) {
|
||||
my $vertical_sizer = Wx::BoxSizer->new(wxVERTICAL);
|
||||
$vertical_sizer->Add($panels{$_}, 0, wxEXPAND | wxRIGHT, 10) for @$col;
|
||||
$vertical_sizer->Add($panels{$_}, 0, wxEXPAND | wxALL, 10) for @$col;
|
||||
$sizer->Add($vertical_sizer);
|
||||
}
|
||||
|
||||
$sizer->SetSizeHints($self);
|
||||
$self->SetSizer($sizer);
|
||||
$self->Layout;
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user