34 lines
741 B
Perl
34 lines
741 B
Perl
|
package Slic3r::GUI::Controller::Frame;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use utf8;
|
||
|
|
|
||
|
|
use Wx qw(:frame :id :misc :sizer);
|
||
|
|
use Wx::Event qw(EVT_CLOSE);
|
||
|
|
use base 'Wx::Frame';
|
||
|
|
|
||
|
|
sub new {
|
||
|
|
my ($class) = @_;
|
||
|
|
my $self = $class->SUPER::new(undef, -1, "Controller", wxDefaultPosition, [500,350], wxDEFAULT_FRAME_STYLE);
|
||
|
|
|
||
|
|
$self->{sizer} = my $sizer = Wx::BoxSizer->new(wxVERTICAL);
|
||
|
|
$sizer->Add(Slic3r::GUI::Controller::PrinterPanel->new($self), 1, wxEXPAND);
|
||
|
|
|
||
|
|
$self->SetSizer($sizer);
|
||
|
|
$self->SetMinSize($self->GetSize);
|
||
|
|
$sizer->SetSizeHints($self);
|
||
|
|
$self->Layout;
|
||
|
|
|
||
|
|
EVT_CLOSE($self, sub {
|
||
|
|
my (undef, $event) = @_;
|
||
|
|
|
||
|
|
# ...
|
||
|
|
|
||
|
|
$event->Skip;
|
||
|
|
});
|
||
|
|
|
||
|
|
return $self;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|