3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-07-12 01:07:57 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Initial work for a controller GUI

Browse source
This commit is contained in:
Alessandro Ranellucci 2014-12-31 19:10:46 +01:00
parent 29d64107de
commit c06ce3b58c
7 changed files with 276 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

33
lib/Slic3r/GUI/Controller/Frame.pm Normal file
View file

@ -0,0 +1,33 @@
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;