GUI fixes for Windows

degen-loop-screen
Alessandro Ranellucci 2011-10-03 13:08:43 +02:00
parent f2f9178e07
commit 558e86e72d
3 changed files with 10 additions and 3 deletions

View File

@ -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',

View File

@ -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 {

View File

@ -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;
}