31 lines
858 B
Perl
31 lines
858 B
Perl
package Slic3r::GUI::Plater::ObjectPreviewDialog;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
use Wx qw(:dialog :id :misc :sizer :systemsettings :notebook wxTAB_TRAVERSAL);
|
|
use Wx::Event qw(EVT_CLOSE);
|
|
use base 'Wx::Dialog';
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my ($parent, %params) = @_;
|
|
my $self = $class->SUPER::new($parent, -1, $params{object}->name, wxDefaultPosition, [500,500], wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER);
|
|
$self->{object} = $params{object};
|
|
|
|
my $sizer = Wx::BoxSizer->new(wxVERTICAL);
|
|
$sizer->Add(Slic3r::GUI::PreviewCanvas->new($self, $self->{object}->get_model_object), 1, wxEXPAND, 0);
|
|
$self->SetSizer($sizer);
|
|
$self->SetMinSize($self->GetSize);
|
|
|
|
# needed to actually free memory
|
|
EVT_CLOSE($self, sub {
|
|
$self->EndModal(wxID_OK);
|
|
$self->Destroy;
|
|
});
|
|
|
|
return $self;
|
|
}
|
|
|
|
1;
|