diff --git a/lib/Slic3r/GUI.pm b/lib/Slic3r/GUI.pm
deleted file mode 100644
index 31f614ba9..000000000
--- a/lib/Slic3r/GUI.pm
+++ /dev/null
@@ -1,337 +0,0 @@
-package Slic3r::GUI;
-use strict;
-use warnings;
-use utf8;
-
-use File::Basename qw(basename);
-use FindBin;
-use List::Util qw(first);
-use Slic3r::GUI::MainFrame;
-use Slic3r::GUI::Plater;
-use Slic3r::GUI::Plater::3D;
-use Slic3r::GUI::Plater::3DPreview;
-
-use Wx::Locale gettext => 'L';
-
-our $have_OpenGL = eval "use Slic3r::GUI::3DScene; 1";
-
-use Wx 0.9901 qw(:bitmap :dialog :icon :id :misc :systemsettings :toplevelwindow :filedialog :font);
-use Wx::Event qw(EVT_IDLE EVT_COMMAND EVT_MENU);
-use base 'Wx::App';
-
-use constant FILE_WILDCARDS => {
-    known   => 'Known files (*.stl, *.obj, *.amf, *.xml, *.3mf, *.prusa)|*.stl;*.STL;*.obj;*.OBJ;*.zip.amf;*.amf;*.AMF;*.xml;*.XML;*.3mf;*.3MF;*.prusa;*.PRUSA',
-    stl     => 'STL files (*.stl)|*.stl;*.STL',
-    obj     => 'OBJ files (*.obj)|*.obj;*.OBJ',
-    amf     => 'AMF files (*.amf)|*.zip.amf;*.amf;*.AMF;*.xml;*.XML',
-    threemf => '3MF files (*.3mf)|*.3mf;*.3MF',
-    prusa   => 'Prusa Control files (*.prusa)|*.prusa;*.PRUSA',
-    ini     => 'INI files *.ini|*.ini;*.INI',
-    gcode   => 'G-code files (*.gcode, *.gco, *.g, *.ngc)|*.gcode;*.GCODE;*.gco;*.GCO;*.g;*.G;*.ngc;*.NGC',
-};
-use constant MODEL_WILDCARD => join '|', @{&FILE_WILDCARDS}{qw(known stl obj amf threemf prusa)};
-
-# Datadir provided on the command line.
-our $datadir;
-our $no_plater;
-our @cb;
-
-our $small_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
-$small_font->SetPointSize(11) if &Wx::wxMAC;
-our $small_bold_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
-$small_bold_font->SetPointSize(11) if &Wx::wxMAC;
-$small_bold_font->SetWeight(wxFONTWEIGHT_BOLD);
-our $medium_font = Wx::SystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
-$medium_font->SetPointSize(12);
-our $grey = Wx::Colour->new(200,200,200);
-
-# Events to be sent from a C++ menu implementation:
-# 1) To inform about a change of the application language.
-our $LANGUAGE_CHANGE_EVENT  = Wx::NewEventType;
-# 2) To inform about a change of Preferences.
-our $PREFERENCES_EVENT      = Wx::NewEventType;
-# To inform AppConfig about Slic3r version available online
-our $VERSION_ONLINE_EVENT   = Wx::NewEventType;
-
-sub OnInit {
-    my ($self) = @_;
-    
-    $self->SetAppName('Slic3rPE');
-    $self->SetAppDisplayName('Slic3r Prusa Edition');
-    Slic3r::debugf "wxWidgets version %s, Wx version %s\n", &Wx::wxVERSION_STRING, $Wx::VERSION;
-
-    # Set the Slic3r data directory at the Slic3r XS module.
-    # Unix: ~/.Slic3r
-    # Windows: "C:\Users\username\AppData\Roaming\Slic3r" or "C:\Documents and Settings\username\Application Data\Slic3r"
-    # Mac: "~/Library/Application Support/Slic3r"
-    Slic3r::set_data_dir($datadir || Wx::StandardPaths::Get->GetUserDataDir);
-    Slic3r::GUI::set_wxapp($self);
-
-    $self->{app_config} = Slic3r::GUI::AppConfig->new;
-    Slic3r::GUI::set_app_config($self->{app_config});
-    $self->{preset_bundle} = Slic3r::GUI::PresetBundle->new;
-    Slic3r::GUI::set_preset_bundle($self->{preset_bundle});
-
-    # just checking for existence of Slic3r::data_dir is not enough: it may be an empty directory
-    # supplied as argument to --datadir; in that case we should still run the wizard
-    eval { $self->{preset_bundle}->setup_directories() };
-    if ($@) {
-        warn $@ . "\n";
-        fatal_error(undef, $@);
-    }
-    my $app_conf_exists = $self->{app_config}->exists;
-    # load settings
-    $self->{app_config}->load if $app_conf_exists;
-    $self->{app_config}->set('version', $Slic3r::VERSION);
-    $self->{app_config}->save;
-
-    $self->{preset_updater} = Slic3r::PresetUpdater->new($VERSION_ONLINE_EVENT);
-    Slic3r::GUI::set_preset_updater($self->{preset_updater});
-
-    Slic3r::GUI::load_language();
-
-    # Suppress the '- default -' presets.
-    $self->{preset_bundle}->set_default_suppressed($self->{app_config}->get('no_defaults') ? 1 : 0);
-    eval { $self->{preset_bundle}->load_presets($self->{app_config}); };
-    if ($@) {
-        warn $@ . "\n";
-        show_error(undef, $@);
-    }
-
-    # application frame
-    print STDERR "Creating main frame...\n";
-    Wx::Image::FindHandlerType(wxBITMAP_TYPE_PNG) || Wx::Image::AddHandler(Wx::PNGHandler->new);
-    $self->{mainframe} = my $frame = Slic3r::GUI::MainFrame->new(
-        no_plater       => $no_plater,
-        lang_ch_event   => $LANGUAGE_CHANGE_EVENT,
-        preferences_event => $PREFERENCES_EVENT,
-    );
-    $self->SetTopWindow($frame);
-
-    # This makes CallAfter() work
-    EVT_IDLE($self->{mainframe}, sub {
-        while (my $cb = shift @cb) {
-            $cb->();
-        }
-        $self->{app_config}->save if $self->{app_config}->dirty;
-    });
-
-    # On OS X the UI tends to freeze in weird ways if modal dialogs (config wizard, update notifications, ...)
-    # are shown before or in the same event callback with the main frame creation.
-    # Therefore we schedule them for later using CallAfter.
-    $self->CallAfter(sub {
-        eval {
-            if (! $self->{preset_updater}->config_update()) {
-                $self->{mainframe}->Close;
-            }
-        };
-        if ($@) {
-            show_error(undef, $@);
-            $self->{mainframe}->Close;
-        }
-    });
-
-    $self->CallAfter(sub {
-        if (! Slic3r::GUI::config_wizard_startup($app_conf_exists)) {
-            # Only notify if there was not wizard so as not to bother too much ...
-            $self->{preset_updater}->slic3r_update_notify();
-        }
-        $self->{preset_updater}->sync($self->{preset_bundle});
-    });
-
-    # The following event is emited by the C++ menu implementation of application language change.
-    EVT_COMMAND($self, -1, $LANGUAGE_CHANGE_EVENT, sub{
-        print STDERR "LANGUAGE_CHANGE_EVENT\n";
-        $self->recreate_GUI;
-    });
-
-    # The following event is emited by the C++ menu implementation of preferences change.
-    EVT_COMMAND($self, -1, $PREFERENCES_EVENT, sub{
-        $self->update_ui_from_settings;
-    });
-    
-    # The following event is emited by PresetUpdater (C++) to inform about
-    # the newer Slic3r application version avaiable online.
-    EVT_COMMAND($self, -1, $VERSION_ONLINE_EVENT, sub {
-        my ($self, $event) = @_;
-        my $version = $event->GetString;
-        $self->{app_config}->set('version_online', $version);
-        $self->{app_config}->save;
-    });
-
-    return 1;
-}
-
-sub recreate_GUI{
-    print STDERR "recreate_GUI\n";
-    my ($self) = @_;
-    my $topwindow = $self->GetTopWindow();
-    $self->{mainframe} = my $frame = Slic3r::GUI::MainFrame->new(
-        no_plater       => $no_plater,
-        lang_ch_event   => $LANGUAGE_CHANGE_EVENT,
-        preferences_event => $PREFERENCES_EVENT,
-    );
-
-    if($topwindow)
-    {
-        $self->SetTopWindow($frame);
-        $topwindow->Destroy;
-    }
-
-    EVT_IDLE($self->{mainframe}, sub {
-        while (my $cb = shift @cb) {
-            $cb->();
-        }
-        $self->{app_config}->save if $self->{app_config}->dirty;
-    });
-
-    # On OSX the UI was not initialized correctly if the wizard was called
-    # before the UI was up and running.
-    $self->CallAfter(sub {
-        # Run the config wizard, don't offer the "reset user profile" checkbox.
-        Slic3r::GUI::config_wizard_startup(1);
-    });
-}
-
-sub system_info {
-    my ($self) = @_;
-    my $slic3r_info = Slic3r::slic3r_info(format => 'html');
-    my $copyright_info = Slic3r::copyright_info(format => 'html');
-    my $system_info = Slic3r::system_info(format => 'html');
-    my $opengl_info;
-    my $opengl_info_txt = '';
-    if (defined($self->{mainframe}) && defined($self->{mainframe}->{plater}) &&
-        defined($self->{mainframe}->{plater}->{canvas3D})) {
-        $opengl_info = Slic3r::GUI::_3DScene::get_gl_info(1, 1);
-        $opengl_info_txt = Slic3r::GUI::_3DScene::get_gl_info(0, 1);
-    }
-#    my $about = Slic3r::GUI::SystemInfo->new(
-#        parent      => undef, 
-#        slic3r_info => $slic3r_info,
-#        system_info => $system_info, 
-#        opengl_info => $opengl_info,
-#        text_info => Slic3r::slic3r_info . Slic3r::system_info . $opengl_info_txt,
-#    );
-#    $about->ShowModal;
-#    $about->Destroy;
-}
-
-# static method accepting a wxWindow object as first parameter
-sub catch_error {
-    my ($self, $cb, $message_dialog) = @_;
-    if (my $err = $@) {
-        $cb->() if $cb;
-        $message_dialog
-            ? $message_dialog->($err, 'Error', wxOK | wxICON_ERROR)
-            : Slic3r::GUI::show_error($self, $err);
-        return 1;
-    }
-    return 0;
-}
-
-# static method accepting a wxWindow object as first parameter
-sub show_error {
-    my ($parent, $message) = @_;
-    Slic3r::GUI::show_error_id($parent ? $parent->GetId() : 0, $message);
-}
-
-# static method accepting a wxWindow object as first parameter
-sub show_info {
-    my ($parent, $message, $title) = @_;
-    Wx::MessageDialog->new($parent, $message, $title || 'Notice', wxOK | wxICON_INFORMATION)->ShowModal;
-}
-
-# static method accepting a wxWindow object as first parameter
-sub fatal_error {
-    show_error(@_);
-    exit 1;
-}
-
-# static method accepting a wxWindow object as first parameter
-sub warning_catcher {
-    my ($self, $message_dialog) = @_;
-    return sub {
-        my $message = shift;
-        return if $message =~ /GLUquadricObjPtr|Attempt to free unreferenced scalar/;
-        my @params = ($message, 'Warning', wxOK | wxICON_WARNING);
-        $message_dialog
-            ? $message_dialog->(@params)
-            : Wx::MessageDialog->new($self, @params)->ShowModal;
-    };
-}
-
-sub notify {
-    my ($self, $message) = @_;
-
-    my $frame = $self->GetTopWindow;
-    # try harder to attract user attention on OS X
-    $frame->RequestUserAttention(&Wx::wxMAC ? wxUSER_ATTENTION_ERROR : wxUSER_ATTENTION_INFO)
-        unless ($frame->IsActive);
-
-    # There used to be notifier using a Growl application for OSX, but Growl is dead.
-    # The notifier also supported the Linux X D-bus notifications, but that support was broken.
-    #TODO use wxNotificationMessage?
-}
-
-# Called after the Preferences dialog is closed and the program settings are saved.
-# Update the UI based on the current preferences.
-sub update_ui_from_settings {
-    my ($self) = @_;
-    $self->{mainframe}->update_ui_from_settings;
-}
-
-sub open_model {
-    my ($self, $window) = @_;
-
-    my $dlg_title = L('Choose one or more files (STL/OBJ/AMF/3MF/PRUSA):');   
-    my $dialog = Wx::FileDialog->new($window // $self->GetTopWindow, $dlg_title, 
-        $self->{app_config}->get_last_dir, "",
-        MODEL_WILDCARD, wxFD_OPEN | wxFD_MULTIPLE | wxFD_FILE_MUST_EXIST);
-    if ($dialog->ShowModal != wxID_OK) {
-        $dialog->Destroy;
-        return;
-    }
-    my @input_files = $dialog->GetPaths;
-    $dialog->Destroy;
-    return @input_files;
-}
-
-sub CallAfter {
-    my ($self, $cb) = @_;
-    push @cb, $cb;
-}
-
-sub append_menu_item {
-    my ($self, $menu, $string, $description, $cb, $id, $icon, $kind) = @_;
-    
-    $id //= &Wx::NewId();
-    my $item = Wx::MenuItem->new($menu, $id, $string, $description // '', $kind // 0);
-    $self->set_menu_item_icon($item, $icon);
-    $menu->Append($item);
-    
-    EVT_MENU($self, $id, $cb);
-    return $item;
-}
-
-sub append_submenu {
-    my ($self, $menu, $string, $description, $submenu, $id, $icon) = @_;
-    
-    $id //= &Wx::NewId();
-    my $item = Wx::MenuItem->new($menu, $id, $string, $description // '');
-    $self->set_menu_item_icon($item, $icon);
-    $item->SetSubMenu($submenu);
-    $menu->Append($item);
-    
-    return $item;
-}
-
-sub set_menu_item_icon {
-    my ($self, $menuItem, $icon) = @_;
-    
-    # SetBitmap was not available on OS X before Wx 0.9927
-    if ($icon && $menuItem->can('SetBitmap')) {
-        $menuItem->SetBitmap(Wx::Bitmap->new(Slic3r::var($icon), wxBITMAP_TYPE_PNG));
-    }
-}
-
-1;
diff --git a/lib/Slic3r/GUI/3DScene.pm b/lib/Slic3r/GUI/3DScene.pm
deleted file mode 100644
index 23decaa37..000000000
--- a/lib/Slic3r/GUI/3DScene.pm
+++ /dev/null
@@ -1,70 +0,0 @@
-# Implements pure perl packages
-#
-# Slic3r::GUI::3DScene::Base;
-# Slic3r::GUI::3DScene;
-#
-# Slic3r::GUI::Plater::3D derives from Slic3r::GUI::3DScene,
-# Slic3r::GUI::Plater::3DPreview,
-# Slic3r::GUI::Plater::ObjectCutDialog and Slic3r::GUI::Plater::ObjectPartsPanel
-# own $self->{canvas} of the Slic3r::GUI::3DScene type.
-#
-# Therefore the 3DScene supports renderng of STLs, extrusions and cutting planes,
-# and camera manipulation.
-
-package Slic3r::GUI::3DScene::Base;
-use strict;
-use warnings;
-
-use Wx qw(wxTheApp :timer :bitmap :icon :dialog);
-# must load OpenGL *before* Wx::GLCanvas
-use OpenGL qw(:glconstants :glfunctions :glufunctions :gluconstants);
-use base qw(Wx::GLCanvas Class::Accessor);
-use Wx::GLCanvas qw(:all);
-
-sub new {
-    my ($class, $parent) = @_;
-    
-    # We can only enable multi sample anti aliasing wih wxWidgets 3.0.3 and with a hacked Wx::GLCanvas,
-    # which exports some new WX_GL_XXX constants, namely WX_GL_SAMPLE_BUFFERS and WX_GL_SAMPLES.
-    my $can_multisample =
-        ! wxTheApp->{app_config}->get('use_legacy_opengl') &&
-        Wx::wxVERSION >= 3.000003 &&
-        defined Wx::GLCanvas->can('WX_GL_SAMPLE_BUFFERS') &&
-        defined Wx::GLCanvas->can('WX_GL_SAMPLES');
-    my $attrib = [WX_GL_RGBA, WX_GL_DOUBLEBUFFER, WX_GL_DEPTH_SIZE, 24];
-    if ($can_multisample) {
-        # Request a window with multi sampled anti aliasing. This is a new feature in Wx 3.0.3 (backported from 3.1.0).
-        # Use eval to avoid compilation, if the subs WX_GL_SAMPLE_BUFFERS and WX_GL_SAMPLES are missing.
-        eval 'push(@$attrib, (WX_GL_SAMPLE_BUFFERS, 1, WX_GL_SAMPLES, 4));';
-    }
-    # wxWidgets expect the attrib list to be ended by zero.
-    push(@$attrib, 0);
-
-    # we request a depth buffer explicitely because it looks like it's not created by 
-    # default on Linux, causing transparency issues
-    my $self = $class->SUPER::new($parent, -1, Wx::wxDefaultPosition, Wx::wxDefaultSize, 0, "", $attrib);
-
-    Slic3r::GUI::_3DScene::add_canvas($self);
-    Slic3r::GUI::_3DScene::allow_multisample($self, $can_multisample);
-    
-    return $self;
-}
-
-sub Destroy {
-    my ($self) = @_;
-    Slic3r::GUI::_3DScene::remove_canvas($self);    
-    return $self->SUPER::Destroy;
-}
-
-# The 3D canvas to display objects and tool paths.
-package Slic3r::GUI::3DScene;
-use base qw(Slic3r::GUI::3DScene::Base);
-
-sub new {
-    my $class = shift;
-    
-    my $self = $class->SUPER::new(@_);    
-    return $self;
-}
-
-1;
diff --git a/lib/Slic3r/GUI/MainFrame.pm b/lib/Slic3r/GUI/MainFrame.pm
deleted file mode 100644
index c1975cd5d..000000000
--- a/lib/Slic3r/GUI/MainFrame.pm
+++ /dev/null
@@ -1,644 +0,0 @@
-# The main frame, the parent of all.
-
-package Slic3r::GUI::MainFrame;
-use strict;
-use warnings;
-use utf8;
-
-use File::Basename qw(basename dirname);
-use FindBin;
-use List::Util qw(min first);
-use Slic3r::Geometry qw(X Y);
-use Wx qw(:frame :bitmap :id :misc :notebook :panel :sizer :menu :dialog :filedialog :dirdialog
-    :font :icon wxTheApp);
-use Wx::Event qw(EVT_CLOSE EVT_COMMAND EVT_MENU EVT_NOTEBOOK_PAGE_CHANGED);
-use base 'Wx::Frame';
-
-use Wx::Locale gettext => 'L';
-
-our $qs_last_input_file;
-our $qs_last_output_file;
-our $last_config;
-our $appController;
-
-# Events to be sent from a C++ Tab implementation:
-# 1) To inform about a change of a configuration value.
-our $VALUE_CHANGE_EVENT    = Wx::NewEventType;
-# 2) To inform about a preset selection change or a "modified" status change.
-our $PRESETS_CHANGED_EVENT = Wx::NewEventType;
-# 3) To update the status bar with the progress information.
-our $PROGRESS_BAR_EVENT    = Wx::NewEventType;
-# 4) To display an error dialog box from a thread on the UI thread.
-our $ERROR_EVENT             = Wx::NewEventType;
-# 5) To inform about a change of object selection
-our $OBJECT_SELECTION_CHANGED_EVENT = Wx::NewEventType;
-# 6) To inform about a change of object settings
-our $OBJECT_SETTINGS_CHANGED_EVENT = Wx::NewEventType;
-# 7) To inform about a remove of object 
-our $OBJECT_REMOVE_EVENT = Wx::NewEventType;
-# 8) To inform about a update of the scene 
-our $UPDATE_SCENE_EVENT = Wx::NewEventType;
-
-sub new {
-    my ($class, %params) = @_;
-        
-    my $self = $class->SUPER::new(undef, -1, $Slic3r::FORK_NAME . ' - ' . $Slic3r::VERSION, wxDefaultPosition, wxDefaultSize, wxDEFAULT_FRAME_STYLE);
-        Slic3r::GUI::set_main_frame($self);
-        
-    $appController = Slic3r::AppController->new();
-
-    if ($^O eq 'MSWin32') {
-        # Load the icon either from the exe, or from the ico file.
-        my $iconfile = Slic3r::decode_path($FindBin::Bin) . '\slic3r.exe';
-        $iconfile = Slic3r::var("Slic3r.ico") unless -f $iconfile;
-        $self->SetIcon(Wx::Icon->new($iconfile, wxBITMAP_TYPE_ICO));
-    } else {
-        $self->SetIcon(Wx::Icon->new(Slic3r::var("Slic3r_128px.png"), wxBITMAP_TYPE_PNG));        
-    }
-        
-    # store input params
-    $self->{no_plater} = $params{no_plater};
-    $self->{loaded} = 0;
-    $self->{lang_ch_event} = $params{lang_ch_event};
-    $self->{preferences_event} = $params{preferences_event};
-
-    # initialize tabpanel and menubar
-    $self->_init_tabpanel;
-    $self->_init_menubar;
-    
-    # set default tooltip timer in msec
-    # SetAutoPop supposedly accepts long integers but some bug doesn't allow for larger values
-    # (SetAutoPop is not available on GTK.)
-    eval { Wx::ToolTip::SetAutoPop(32767) };
-    
-    # initialize status bar
-    $self->{statusbar} = Slic3r::GUI::ProgressStatusBar->new();
-    $self->{statusbar}->Embed;
-    $self->{statusbar}->SetStatusText(L("Version ").$Slic3r::VERSION.L(" - Remember to check for updates at http://github.com/prusa3d/slic3r/releases"));
-    # Make the global status bar and its progress indicator available in C++
-    Slic3r::GUI::set_progress_status_bar($self->{statusbar});
-    $appController->set_global_progress_indicator($self->{statusbar});
-
-    $appController->set_model($self->{plater}->{model});
-    $appController->set_print($self->{plater}->{print});
-
-    $self->{plater}->{appController} = $appController;
-
-    $self->{loaded} = 1;
-        
-    # initialize layout
-    {
-        my $sizer = Wx::BoxSizer->new(wxVERTICAL);
-        $sizer->Add($self->{tabpanel}, 1, wxEXPAND);
-        $sizer->SetSizeHints($self);
-        $self->SetSizer($sizer);
-        $self->Fit;
-        $self->SetMinSize([760, 490]);
-        $self->SetSize($self->GetMinSize);
-        Slic3r::GUI::restore_window_size($self, "main_frame");
-        $self->Show;
-        $self->Layout;
-    }
-    
-    # declare events
-    EVT_CLOSE($self, sub {
-        my (undef, $event) = @_;
-        if ($event->CanVeto && !Slic3r::GUI::check_unsaved_changes) {
-            $event->Veto;
-            return;
-        }
-        # save window size
-        Slic3r::GUI::save_window_size($self, "main_frame");
-        # Save the slic3r.ini. Usually the ini file is saved from "on idle" callback,
-        # but in rare cases it may not have been called yet.
-        wxTheApp->{app_config}->save;
-        $self->{statusbar}->ResetCancelCallback();
-        $self->{plater}->{print} = undef if($self->{plater});
-        Slic3r::GUI::_3DScene::remove_all_canvases();
-        Slic3r::GUI::deregister_on_request_update_callback();
-        # propagate event
-        $event->Skip;
-    });
-
-    $self->update_ui_from_settings;
-
-    Slic3r::GUI::update_mode();
-
-    return $self;
-}
-
-sub _init_tabpanel {
-    my ($self) = @_;
-    
-    $self->{tabpanel} = my $panel = Wx::Notebook->new($self, -1, wxDefaultPosition, wxDefaultSize, wxNB_TOP | wxTAB_TRAVERSAL);
-    Slic3r::GUI::set_tab_panel($panel);
-
-    EVT_NOTEBOOK_PAGE_CHANGED($self, $self->{tabpanel}, sub {
-        my $panel = $self->{tabpanel}->GetCurrentPage;
-        $panel->OnActivate if $panel->can('OnActivate');
-
-        for my $tab_name (qw(print filament printer)) {
-            Slic3r::GUI::get_preset_tab("$tab_name")->OnActivate if ("$tab_name" eq $panel->GetName);
-        }
-    });
-    
-    if (!$self->{no_plater}) {
-        $panel->AddPage($self->{plater} = Slic3r::GUI::Plater->new($panel,
-            event_object_selection_changed   => $OBJECT_SELECTION_CHANGED_EVENT,
-            event_object_settings_changed    => $OBJECT_SETTINGS_CHANGED_EVENT,
-            event_remove_object              => $OBJECT_REMOVE_EVENT,
-            event_update_scene               => $UPDATE_SCENE_EVENT,
-            ), L("Plater"));
-    }
-    
-    #TODO this is an example of a Slic3r XS interface call to add a new preset editor page to the main view.
-    # The following event is emited by the C++ Tab implementation on config value change.
-    EVT_COMMAND($self, -1, $VALUE_CHANGE_EVENT, sub {
-        my ($self, $event) = @_;
-        my $str = $event->GetString;
-        my ($opt_key, $name) = ($str =~ /(.*) (.*)/);
-        #print "VALUE_CHANGE_EVENT: ", $opt_key, "\n";
-        my $tab = Slic3r::GUI::get_preset_tab($name);
-        my $config = $tab->get_config;
-        if ($self->{plater}) {
-            $self->{plater}->on_config_change($config); # propagate config change events to the plater
-            if ($opt_key eq 'extruders_count'){
-                my $value = $event->GetInt();
-                $self->{plater}->on_extruders_change($value);
-            }
-            if ($opt_key eq 'printer_technology'){
-                my $value = $event->GetInt();# 0 ~ "ptFFF"; 1 ~ "ptSLA"
-                $self->{plater}->show_preset_comboboxes($value);
-            }
-        }
-        # don't save while loading for the first time
-        $self->config->save($Slic3r::GUI::autosave) if $Slic3r::GUI::autosave && $self->{loaded};        
-    });
-    # The following event is emited by the C++ Tab implementation on preset selection,
-    # or when the preset's "modified" status changes.
-    EVT_COMMAND($self, -1, $PRESETS_CHANGED_EVENT, sub {
-        my ($self, $event) = @_;
-        my $tab_name = $event->GetString;
-
-        my $tab = Slic3r::GUI::get_preset_tab($tab_name);
-        if ($self->{plater}) {
-            # Update preset combo boxes (Print settings, Filament, Material, Printer) from their respective tabs.
-            my $presets = $tab->get_presets;
-            if (defined $presets){
-                my $reload_dependent_tabs = $tab->get_dependent_tabs;
-                $self->{plater}->update_presets($tab_name, $reload_dependent_tabs, $presets);
-                $self->{plater}->{"selected_item_$tab_name"} = $tab->get_selected_preset_item;
-                if ($tab_name eq 'printer') {
-                    # Printer selected at the Printer tab, update "compatible" marks at the print and filament selectors.
-                    for my $tab_name_other (qw(print filament sla_material)) {
-                        # If the printer tells us that the print or filament preset has been switched or invalidated,
-                        # refresh the print or filament tab page. Otherwise just refresh the combo box.
-                        my $update_action = ($reload_dependent_tabs && (first { $_ eq $tab_name_other } (@{$reload_dependent_tabs}))) 
-                            ? 'load_current_preset' : 'update_tab_ui';
-                        $self->{options_tabs}{$tab_name_other}->$update_action;
-                    }
-                }
-                $self->{plater}->on_config_change($tab->get_config);
-            }
-        }
-    });
-
-    # The following event is emited by the C++ Tab implementation on object selection change.
-    EVT_COMMAND($self, -1, $OBJECT_SELECTION_CHANGED_EVENT, sub {
-        my ($self, $event) = @_;
-        my $obj_idx = $event->GetId;
-#        my $child = $event->GetInt == 1 ? 1 : undef;
-#        $self->{plater}->select_object($obj_idx < 0 ? undef: $obj_idx, $child);
-#        $self->{plater}->item_changed_selection($obj_idx);
-
-        my $vol_idx = $event->GetInt;
-        $self->{plater}->select_object_from_cpp($obj_idx < 0 ? undef: $obj_idx, $vol_idx<0 ? -1 : $vol_idx);
-    });
-
-    # The following event is emited by the C++ GUI implementation on object settings change.
-    EVT_COMMAND($self, -1, $OBJECT_SETTINGS_CHANGED_EVENT, sub {
-        my ($self, $event) = @_;
-
-        my $line = $event->GetString;
-        my ($obj_idx, $parts_changed, $part_settings_changed) = split('',$line);
-
-        $self->{plater}->changed_object_settings($obj_idx, $parts_changed, $part_settings_changed);
-    });
-
-    # The following event is emited by the C++ GUI implementation on object remove.
-    EVT_COMMAND($self, -1, $OBJECT_REMOVE_EVENT, sub {
-        my ($self, $event) = @_;
-        $self->{plater}->remove();
-    });
-
-    # The following event is emited by the C++ GUI implementation on extruder change for object.
-    EVT_COMMAND($self, -1, $UPDATE_SCENE_EVENT, sub {
-        my ($self, $event) = @_;
-        $self->{plater}->update();
-    });
-        
-    Slic3r::GUI::create_preset_tabs($VALUE_CHANGE_EVENT, $PRESETS_CHANGED_EVENT);
-    $self->{options_tabs} = {};
-    for my $tab_name (qw(print filament sla_material printer)) {
-        $self->{options_tabs}{$tab_name} = Slic3r::GUI::get_preset_tab("$tab_name");
-    }
-
-    # Update progress bar with an event sent by the slicing core.
-    EVT_COMMAND($self, -1, $PROGRESS_BAR_EVENT, sub {
-        my ($self, $event) = @_;
-        if (defined $self->{progress_dialog}) {
-            # If a progress dialog is open, update it.
-            $self->{progress_dialog}->Update($event->GetInt, $event->GetString . "…");
-        } else {
-            # Otherwise update the main window status bar.
-            $self->{statusbar}->SetProgress($event->GetInt);
-            $self->{statusbar}->SetStatusText($event->GetString . "…");
-        }
-    });
-
-    EVT_COMMAND($self, -1, $ERROR_EVENT, sub {
-        my ($self, $event) = @_;
-        Slic3r::GUI::show_error($self, $event->GetString);
-    });
-    
-    if ($self->{plater}) {
-        $self->{plater}->on_select_preset(sub {
-            my ($group, $name) = @_;
-            $self->{options_tabs}{$group}->select_preset($name);
-        });
-        # load initial config
-        my $full_config = wxTheApp->{preset_bundle}->full_config;
-        $self->{plater}->on_config_change($full_config);
-
-        # Show a correct number of filament fields.
-        if (defined $full_config->nozzle_diameter){ # nozzle_diameter is undefined when SLA printer is selected
-            $self->{plater}->on_extruders_change(int(@{$full_config->nozzle_diameter}));
-        }
-
-        # Show correct preset comboboxes according to the printer_technology
-        $self->{plater}->show_preset_comboboxes(($full_config->printer_technology eq "FFF") ? 0 : 1);
-    }
-}
-
-sub _init_menubar {
-    my ($self) = @_;
-    
-    # File menu
-    my $fileMenu = Wx::Menu->new;
-    {
-        wxTheApp->append_menu_item($fileMenu, L("Open STL/OBJ/AMF/3MF…\tCtrl+O"), L('Open a model'), sub {
-            $self->{plater}->add if $self->{plater};
-        }, undef, undef); #'brick_add.png');
-        $self->_append_menu_item($fileMenu, L("&Load Config…\tCtrl+L"), L('Load exported configuration file'), sub {
-            $self->load_config_file;
-        }, undef, 'plugin_add.png');
-        $self->_append_menu_item($fileMenu, L("&Export Config…\tCtrl+E"), L('Export current configuration to file'), sub {
-            $self->export_config;
-        }, undef, 'plugin_go.png');
-        $self->_append_menu_item($fileMenu, L("&Load Config Bundle…"), L('Load presets from a bundle'), sub {
-            $self->load_configbundle;
-        }, undef, 'lorry_add.png');
-        $self->_append_menu_item($fileMenu, L("&Export Config Bundle…"), L('Export all presets to file'), sub {
-            $self->export_configbundle;
-        }, undef, 'lorry_go.png');
-        $fileMenu->AppendSeparator();
-        $self->_append_menu_item($fileMenu, L("Slice to PNG…"), L('Slice file to a set of PNG files'), sub {
-            $self->slice_to_png;
-        }, undef, 'shape_handles.png');
-        $self->{menu_item_reslice_now} = $self->_append_menu_item(
-            $fileMenu, L("(&Re)Slice Now\tCtrl+S"), L('Start new slicing process'), 
-            sub { $self->reslice_now; }, undef, 'shape_handles.png');
-        $fileMenu->AppendSeparator();
-        $self->_append_menu_item($fileMenu, L("Repair STL file…"), L('Automatically repair an STL file'), sub {
-            $self->repair_stl;
-        }, undef, 'wrench.png');
-        $fileMenu->AppendSeparator();
-        $self->_append_menu_item($fileMenu, L("&Quit"), L('Quit Slic3r'), sub {
-            $self->Close(0);
-        }, wxID_EXIT);
-    }
-    
-    # Plater menu
-    unless ($self->{no_plater}) {
-        my $plater = $self->{plater};
-        
-        $self->{plater_menu} = Wx::Menu->new;
-        $self->_append_menu_item($self->{plater_menu}, L("Export G-code..."), L('Export current plate as G-code'), sub {
-            $plater->export_gcode;
-        }, undef, 'cog_go.png');
-        $self->_append_menu_item($self->{plater_menu}, L("Export plate as STL..."), L('Export current plate as STL'), sub {
-            $plater->export_stl;
-        }, undef, 'brick_go.png');
-        $self->_append_menu_item($self->{plater_menu}, L("Export plate as AMF..."), L('Export current plate as AMF'), sub {
-            $plater->export_amf;
-        }, undef, 'brick_go.png');
-        $self->_append_menu_item($self->{plater_menu}, L("Export plate as 3MF..."), L('Export current plate as 3MF'), sub {
-            $plater->export_3mf;
-        }, undef, 'brick_go.png');
-        
-        $self->{object_menu} = $self->{plater}->object_menu;
-        $self->on_plater_selection_changed(0);
-    }
-    
-    # Window menu
-    my $windowMenu = Wx::Menu->new;
-    {
-        my $tab_offset = 0;
-        if (!$self->{no_plater}) {
-            $self->_append_menu_item($windowMenu, L("Select &Plater Tab\tCtrl+1"), L('Show the plater'), sub {
-                $self->select_tab(0);
-            }, undef, 'application_view_tile.png');
-            $tab_offset += 1;
-        }
-        if (!$self->{no_controller}) {
-            $self->_append_menu_item($windowMenu, L("Select &Controller Tab\tCtrl+T"), L('Show the printer controller'), sub {
-                $self->select_tab(1);
-            }, undef, 'printer_empty.png');
-            $tab_offset += 1;
-        }
-        if ($tab_offset > 0) {
-            $windowMenu->AppendSeparator();
-        }
-        $self->_append_menu_item($windowMenu, L("Select P&rint Settings Tab\tCtrl+2"), L('Show the print settings'), sub {
-            $self->select_tab($tab_offset+0);
-        }, undef, 'cog.png');
-        $self->_append_menu_item($windowMenu, L("Select &Filament Settings Tab\tCtrl+3"), L('Show the filament settings'), sub {
-            $self->select_tab($tab_offset+1);
-        }, undef, 'spool.png');
-        $self->_append_menu_item($windowMenu, L("Select Print&er Settings Tab\tCtrl+4"), L('Show the printer settings'), sub {
-            $self->select_tab($tab_offset+2);
-        }, undef, 'printer_empty.png');
-    }
-
-    # View menu
-    if (!$self->{no_plater}) {
-        $self->{viewMenu} = Wx::Menu->new;
-        # \xA0 is a non-breaing space. It is entered here to spoil the automatic accelerators,
-        # as the simple numeric accelerators spoil all numeric data entry.
-        # The camera control accelerators are captured by 3DScene Perl module instead.
-        my $accel = ($^O eq 'MSWin32') ? sub { $_[0] . "\t\xA0" . $_[1] } : sub { $_[0] };
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Iso'),    '0'), L('Iso View')    , sub { $self->select_view('iso'    ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Top'),    '1'), L('Top View')    , sub { $self->select_view('top'    ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Bottom'), '2'), L('Bottom View') , sub { $self->select_view('bottom' ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Front'),  '3'), L('Front View')  , sub { $self->select_view('front'  ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Rear'),   '4'), L('Rear View')   , sub { $self->select_view('rear'   ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Left'),   '5'), L('Left View')   , sub { $self->select_view('left'   ); });
-        $self->_append_menu_item($self->{viewMenu}, $accel->(L('Right'),  '6'), L('Right View')  , sub { $self->select_view('right'  ); });
-    }
-    
-    # Help menu
-    my $helpMenu = Wx::Menu->new;
-    {
-        $self->_append_menu_item($helpMenu, L("Prusa 3D Drivers"), L('Open the Prusa3D drivers download page in your browser'), sub {
-            Wx::LaunchDefaultBrowser('http://www.prusa3d.com/drivers/');
-        });
-        $self->_append_menu_item($helpMenu, L("Prusa Edition Releases"), L('Open the Prusa Edition releases page in your browser'), sub {
-            Wx::LaunchDefaultBrowser('http://github.com/prusa3d/slic3r/releases');
-        });
-#        my $versioncheck = $self->_append_menu_item($helpMenu, "Check for &Updates...", 'Check for new Slic3r versions', sub {
-#            wxTheApp->check_version(1);
-#        });
-#        $versioncheck->Enable(wxTheApp->have_version_check);
-        $self->_append_menu_item($helpMenu, L("Slic3r &Website"), L('Open the Slic3r website in your browser'), sub {
-            Wx::LaunchDefaultBrowser('http://slic3r.org/');
-        });
-        $self->_append_menu_item($helpMenu, L("Slic3r &Manual"), L('Open the Slic3r manual in your browser'), sub {
-            Wx::LaunchDefaultBrowser('http://manual.slic3r.org/');
-        });
-        $helpMenu->AppendSeparator();
-        $self->_append_menu_item($helpMenu, L("System Info"), L('Show system information'), sub {
-            wxTheApp->system_info;
-        });
-        $self->_append_menu_item($helpMenu, L("Show &Configuration Folder"), L('Show user configuration folder (datadir)'), sub {
-            Slic3r::GUI::desktop_open_datadir_folder();
-        });
-        $self->_append_menu_item($helpMenu, L("Report an Issue"), L('Report an issue on the Slic3r Prusa Edition'), sub {
-            Wx::LaunchDefaultBrowser('http://github.com/prusa3d/slic3r/issues/new');
-        });
-        $self->_append_menu_item($helpMenu, L("&About Slic3r"), L('Show about dialog'), sub {
-            Slic3r::GUI::about;
-        });
-    }
-
-    # menubar
-    # assign menubar to frame after appending items, otherwise special items
-    # will not be handled correctly
-    {
-        my $menubar = Wx::MenuBar->new;
-        $menubar->Append($fileMenu, L("&File"));
-        $menubar->Append($self->{plater_menu}, L("&Plater")) if $self->{plater_menu};
-        $menubar->Append($self->{object_menu}, L("&Object")) if $self->{object_menu};
-        $menubar->Append($windowMenu, L("&Window"));
-        $menubar->Append($self->{viewMenu}, L("&View")) if $self->{viewMenu};
-        # Add additional menus from C++
-        Slic3r::GUI::add_menus($menubar, $self->{preferences_event}, $self->{lang_ch_event});
-        $menubar->Append($helpMenu, L("&Help"));
-        $self->SetMenuBar($menubar);
-    }
-}
-
-sub is_loaded {
-    my ($self) = @_;
-    return $self->{loaded};
-}
-
-# Selection of a 3D object changed on the platter.
-sub on_plater_selection_changed {
-    my ($self, $have_selection) = @_;
-    return if !defined $self->{object_menu};
-    $self->{object_menu}->Enable($_->GetId, $have_selection)
-        for $self->{object_menu}->GetMenuItems;
-}
-
-sub slice_to_png {
-    my $self = shift;
-    $self->{plater}->stop_background_process;
-    $self->{plater}->async_apply_config;
-    $appController->print_ctl()->slice_to_png();
-}
-
-sub reslice_now {
-    my ($self) = @_;
-    $self->{plater}->reslice if $self->{plater};
-}
-
-sub repair_stl {
-    my $self = shift;
-    
-    my $input_file;
-    {
-        my $dialog = Wx::FileDialog->new($self, L('Select the STL file to repair:'),
-            wxTheApp->{app_config}->get_last_dir, "",
-            &Slic3r::GUI::FILE_WILDCARDS->{stl}, wxFD_OPEN | wxFD_FILE_MUST_EXIST);
-        if ($dialog->ShowModal != wxID_OK) {
-            $dialog->Destroy;
-            return;
-        }
-        $input_file = $dialog->GetPaths;
-        $dialog->Destroy;
-    }
-    
-    my $output_file = $input_file;
-    {
-        $output_file =~ s/\.[sS][tT][lL]$/_fixed.obj/;
-        my $dlg = Wx::FileDialog->new($self, L("Save OBJ file (less prone to coordinate errors than STL) as:"), dirname($output_file),
-            basename($output_file), &Slic3r::GUI::FILE_WILDCARDS->{obj}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT);
-        if ($dlg->ShowModal != wxID_OK) {
-            $dlg->Destroy;
-            return undef;
-        }
-        $output_file = $dlg->GetPath;
-        $dlg->Destroy;
-    }
-    
-    my $tmesh = Slic3r::TriangleMesh->new;
-    $tmesh->ReadSTLFile($input_file);
-    $tmesh->repair;
-    $tmesh->WriteOBJFile($output_file);
-    Slic3r::GUI::show_info($self, L("Your file was repaired."), L("Repair"));
-}
-
-sub export_config {
-    my $self = shift;
-    # Generate a cummulative configuration for the selected print, filaments and printer.    
-    my $config = wxTheApp->{preset_bundle}->full_config();
-    # Validate the cummulative configuration.
-    eval { $config->validate; };
-    Slic3r::GUI::catch_error($self) and return;
-    # Ask user for the file name for the config file.
-    my $dlg = Wx::FileDialog->new($self, L('Save configuration as:'),
-        $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir,
-        $last_config ? basename($last_config) : "config.ini",
-        &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT);
-    my $file = ($dlg->ShowModal == wxID_OK) ? $dlg->GetPath : undef;
-    $dlg->Destroy;
-    if (defined $file) {
-        wxTheApp->{app_config}->update_config_dir(dirname($file));
-        $last_config = $file;
-        $config->save($file);
-    }
-}
-
-# Load a config file containing a Print, Filament & Printer preset.
-sub load_config_file {
-    my ($self, $file) = @_;
-    if (!$file) {
-        return unless Slic3r::GUI::check_unsaved_changes;
-        my $dlg = Wx::FileDialog->new($self, L('Select configuration to load:'), 
-            $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir,
-            "config.ini",
-            'INI files (*.ini, *.gcode)|*.ini;*.INI;*.gcode;*.g', wxFD_OPEN | wxFD_FILE_MUST_EXIST);
-        return unless $dlg->ShowModal == wxID_OK;
-        $file = $dlg->GetPaths;
-        $dlg->Destroy;
-    }
-    eval { wxTheApp->{preset_bundle}->load_config_file($file); };
-    # Dont proceed further if the config file cannot be loaded.
-    return if Slic3r::GUI::catch_error($self);
-    $_->load_current_preset for (values %{$self->{options_tabs}});
-    wxTheApp->{app_config}->update_config_dir(dirname($file));
-    $last_config = $file;
-}
-
-sub export_configbundle {
-    my ($self) = @_;
-    return unless Slic3r::GUI::check_unsaved_changes;
-    # validate current configuration in case it's dirty
-    eval { wxTheApp->{preset_bundle}->full_config->validate; };
-    Slic3r::GUI::catch_error($self) and return;
-    # Ask user for a file name.
-    my $dlg = Wx::FileDialog->new($self, L('Save presets bundle as:'),
-        $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir,
-        "Slic3r_config_bundle.ini", 
-        &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT);
-    my $file = ($dlg->ShowModal == wxID_OK) ? $dlg->GetPath : undef;
-    $dlg->Destroy;
-    if (defined $file) {
-        # Export the config bundle.
-        wxTheApp->{app_config}->update_config_dir(dirname($file));
-        eval { wxTheApp->{preset_bundle}->export_configbundle($file); };
-        Slic3r::GUI::catch_error($self) and return;
-    }
-}
-
-# Loading a config bundle with an external file name used to be used
-# to auto-install a config bundle on a fresh user account,
-# but that behavior was not documented and likely buggy.
-sub load_configbundle {
-    my ($self, $file, $reset_user_profile) = @_;
-    return unless Slic3r::GUI::check_unsaved_changes;
-    if (!$file) {
-        my $dlg = Wx::FileDialog->new($self, L('Select configuration to load:'), 
-            $last_config ? dirname($last_config) : wxTheApp->{app_config}->get_last_dir,
-            "config.ini", 
-            &Slic3r::GUI::FILE_WILDCARDS->{ini}, wxFD_OPEN | wxFD_FILE_MUST_EXIST);
-        return unless $dlg->ShowModal == wxID_OK;
-        $file = $dlg->GetPaths;
-        $dlg->Destroy;
-    }
-    
-    wxTheApp->{app_config}->update_config_dir(dirname($file));
-
-    my $presets_imported = 0;
-    eval { $presets_imported = wxTheApp->{preset_bundle}->load_configbundle($file); };
-    Slic3r::GUI::catch_error($self) and return;
-
-    # Load the currently selected preset into the GUI, update the preset selection box.
-    foreach my $tab (values %{$self->{options_tabs}}) {
-        $tab->load_current_preset;
-    }
-    
-    my $message = sprintf L("%d presets successfully imported."), $presets_imported;
-    Slic3r::GUI::show_info($self, $message);
-}
-
-# Load a provied DynamicConfig into the Print / Filament / Printer tabs, thus modifying the active preset.
-# Also update the platter with the new presets.
-sub load_config {
-    my ($self, $config) = @_;
-    $_->load_config($config) foreach values %{$self->{options_tabs}};
-    $self->{plater}->on_config_change($config) if $self->{plater};
-}
-
-sub select_tab {
-    my ($self, $tab) = @_;
-    $self->{tabpanel}->SetSelection($tab);
-}
-
-# Set a camera direction, zoom to all objects.
-sub select_view {
-    my ($self, $direction) = @_;
-    if (! $self->{no_plater}) {
-        $self->{plater}->select_view($direction);
-    }
-}
-
-sub _append_menu_item {
-    my ($self, $menu, $string, $description, $cb, $id, $icon) = @_;
-    $id //= &Wx::NewId();
-    my $item = $menu->Append($id, $string, $description);
-    $self->_set_menu_item_icon($item, $icon);
-    EVT_MENU($self, $id, $cb);
-    return $item;
-}
-
-sub _set_menu_item_icon {
-    my ($self, $menuItem, $icon) = @_;
-    # SetBitmap was not available on OS X before Wx 0.9927
-    if ($icon && $menuItem->can('SetBitmap')) {
-        $menuItem->SetBitmap(Wx::Bitmap->new(Slic3r::var($icon), wxBITMAP_TYPE_PNG));
-    }
-}
-
-# Called after the Preferences dialog is closed and the program settings are saved.
-# Update the UI based on the current preferences.
-sub update_ui_from_settings {
-    my ($self) = @_;
-    $self->{menu_item_reslice_now}->Enable(! wxTheApp->{app_config}->get("background_processing"));
-    $self->{plater}->update_ui_from_settings if ($self->{plater});
-    for my $tab_name (qw(print filament printer)) {
-        $self->{options_tabs}{$tab_name}->update_ui_from_settings;
-    }
-}
-
-1;
diff --git a/lib/Slic3r/GUI/Plater.pm b/lib/Slic3r/GUI/Plater.pm
deleted file mode 100644
index db360c811..000000000
--- a/lib/Slic3r/GUI/Plater.pm
+++ /dev/null
@@ -1,2683 +0,0 @@
-# The "Plater" tab. It contains the "3D", "2D", "Preview" and "Layers" subtabs.
-
-package Slic3r::GUI::Plater;
-use strict;
-use warnings;
-use utf8;
-
-use File::Basename qw(basename dirname);
-use List::Util qw(sum first max);
-use Slic3r::Geometry qw(X Y Z scale unscale deg2rad rad2deg);
-use Wx qw(:button :colour :cursor :dialog :filedialog :keycode :icon :font :id :listctrl :misc 
-    :panel :sizer :toolbar :window wxTheApp :notebook :combobox wxNullBitmap);
-use Wx::Event qw(EVT_BUTTON EVT_TOGGLEBUTTON EVT_COMMAND EVT_KEY_DOWN EVT_LIST_ITEM_ACTIVATED 
-    EVT_LIST_ITEM_DESELECTED EVT_LIST_ITEM_SELECTED EVT_LEFT_DOWN EVT_MOUSE_EVENTS EVT_PAINT EVT_TOOL 
-    EVT_CHOICE EVT_COMBOBOX EVT_TIMER EVT_NOTEBOOK_PAGE_CHANGED);
-use Slic3r::Geometry qw(PI);
-use base 'Wx::Panel';
-
-use constant TB_ADD             => &Wx::NewId;
-use constant TB_REMOVE          => &Wx::NewId;
-use constant TB_RESET           => &Wx::NewId;
-use constant TB_ARRANGE         => &Wx::NewId;
-use constant TB_EXPORT_GCODE    => &Wx::NewId;
-use constant TB_EXPORT_STL      => &Wx::NewId;
-use constant TB_MORE    => &Wx::NewId;
-use constant TB_FEWER   => &Wx::NewId;
-use constant TB_45CW    => &Wx::NewId;
-use constant TB_45CCW   => &Wx::NewId;
-use constant TB_SCALE   => &Wx::NewId;
-use constant TB_SPLIT   => &Wx::NewId;
-use constant TB_CUT     => &Wx::NewId;
-use constant TB_SETTINGS => &Wx::NewId;
-use constant TB_LAYER_EDITING => &Wx::NewId;
-
-use Wx::Locale gettext => 'L';
-
-# Emitted from the worker thread when the G-code export is finished.
-our $SLICING_COMPLETED_EVENT = Wx::NewEventType;
-our $PROCESS_COMPLETED_EVENT = Wx::NewEventType;
-
-my $PreventListEvents = 0;
-our $appController;
-
-# XXX: VK: done, except callback handling and timer
-sub new {
-    my ($class, $parent, %params) = @_;
-    my $self = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
-    Slic3r::GUI::set_plater($self);
-    $self->{config} = Slic3r::Config::new_from_defaults_keys([qw(
-        bed_shape complete_objects extruder_clearance_radius skirts skirt_distance brim_width variable_layer_height
-        serial_port serial_speed host_type print_host printhost_apikey printhost_cafile
-        nozzle_diameter single_extruder_multi_material wipe_tower wipe_tower_x wipe_tower_y wipe_tower_width
-	wipe_tower_rotation_angle extruder_colour filament_colour max_print_height printer_model
-    )]);
-
-    # store input params
-    $self->{event_object_selection_changed} = $params{event_object_selection_changed};
-    $self->{event_object_settings_changed} = $params{event_object_settings_changed};
-    $self->{event_remove_object} = $params{event_remove_object};
-    $self->{event_update_scene} = $params{event_update_scene};
-
-    # C++ Slic3r::Model with Perl extensions in Slic3r/Model.pm
-    $self->{model} = Slic3r::Model->new;
-    # C++ Slic3r::Print with Perl extensions in Slic3r/Print.pm
-    $self->{print} = Slic3r::Print->new;
-    # List of Perl objects Slic3r::GUI::Plater::Object, representing a 2D preview of the platter.
-    $self->{objects} = [];
-    $self->{gcode_preview_data} = Slic3r::GCode::PreviewData->new;
-    $self->{background_slicing_process} = Slic3r::GUI::BackgroundSlicingProcess->new;
-    $self->{background_slicing_process}->set_print($self->{print});
-    $self->{background_slicing_process}->set_gcode_preview_data($self->{gcode_preview_data});
-    $self->{background_slicing_process}->set_sliced_event($SLICING_COMPLETED_EVENT);
-    $self->{background_slicing_process}->set_finished_event($PROCESS_COMPLETED_EVENT);
-
-    # The C++ slicing core will post a wxCommand message to the main window.    
-    Slic3r::GUI::set_print_callback_event($self->{print}, $Slic3r::GUI::MainFrame::PROGRESS_BAR_EVENT);
-    
-    # Initialize preview notebook
-    $self->{preview_notebook} = Wx::Notebook->new($self, -1, wxDefaultPosition, [-1,335], wxNB_BOTTOM);
-    
-    # Initialize handlers for canvases
-    my $on_select_object = sub {
-        my ($obj_idx, $vol_idx) = @_;
-                        
-        if (($obj_idx != -1) && ($vol_idx == -1)) {
-            # Ignore the special objects (the wipe tower proxy and such).
-            $self->select_object((defined($obj_idx) && $obj_idx >= 0 && $obj_idx < 1000) ? $obj_idx : undef);
-            $self->item_changed_selection($obj_idx) if (defined($obj_idx));
-        }
-    };
-    my $on_right_click = sub {
-        my ($canvas, $click_pos_x, $click_pos_y) = @_;
-
-        my ($obj_idx, $object) = $self->selected_object;
-        return if !defined $obj_idx;
-        
-        my $menu = $self->object_menu;
-        $canvas->PopupMenu($menu, $click_pos_x, $click_pos_y);
-        $menu->Destroy;
-    };
-    my $on_instances_moved = sub {
-        $self->update;
-    };
-    
-    # callback to enable/disable action buttons
-    my $enable_action_buttons = sub {
-        my ($enable) = @_;
-        Slic3r::GUI::enable_action_buttons($enable);
-#        $self->{btn_export_gcode}->Enable($enable);
-#        $self->{btn_reslice}->Enable($enable);
-#        $self->{btn_print}->Enable($enable);
-#        $self->{btn_send_gcode}->Enable($enable);
-    };
-
-    # callback to react to gizmo scale
-    my $on_gizmo_scale_uniformly = sub {
-        my ($scale) = @_;
-
-        my ($obj_idx, $object) = $self->selected_object;
-        return if !defined $obj_idx;
-
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        my $model_instance = $model_object->instances->[0];
-
-        $self->stop_background_process;
-        
-        my $variation = $scale / $model_instance->scaling_factor;
-        #FIXME Scale the layer height profile?
-        foreach my $range (@{ $model_object->layer_height_ranges }) {
-            $range->[0] *= $variation;
-            $range->[1] *= $variation;
-        }
-        $_->set_scaling_factor($scale) for @{ $model_object->instances };
-        
-        # Set object scale on c++ side
-#        Slic3r::GUI::set_object_scale($obj_idx, $model_object->instances->[0]->scaling_factor * 100); 
-
-#        $object->transform_thumbnail($self->{model}, $obj_idx);
-    
-        #update print and start background processing
-        $self->{print}->add_model_object($model_object, $obj_idx);
-    
-        $self->selection_changed(1);  # refresh info (size, volume etc.)
-        $self->update;
-        $self->schedule_background_process;
-    };
-    
-    # callback to react to gizmo scale
-    my $on_gizmo_scale_3D = sub {
-        my ($scale_x, $scale_y, $scale_z) = @_;
-        
-        my ($obj_idx, $object) = $self->selected_object;
-        return if !defined $obj_idx;
-
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        my $model_instance = $model_object->instances->[0];
-
-        $self->stop_background_process;
-        
-        #FIXME Scale the layer height profile?
-#        my $variation = $scale / $model_instance->scaling_factor;
-#        foreach my $range (@{ $model_object->layer_height_ranges }) {
-#            $range->[0] *= $variation;
-#            $range->[1] *= $variation;
-#        }
-
-        my $scale = Slic3r::Pointf3->new($scale_x, $scale_y, $scale_z);
-        foreach my $inst (@{ $model_object->instances }) {
-            $inst->set_scaling_factors($scale);
-        }
-        Slic3r::GUI::_3DScene::update_gizmos_data($self->{canvas3D}) if ($self->{canvas3D});  
-            
-        #update print and start background processing
-        $self->{print}->add_model_object($model_object, $obj_idx);
-    
-        $self->selection_changed(1);  # refresh info (size, volume etc.)
-        $self->update;
-        $self->schedule_background_process;
-        
-    };
-    
-    # callback to react to gizmo rotate
-    my $on_gizmo_rotate = sub {
-        my ($angle) = @_;
-        $self->rotate(rad2deg($angle), Z, 'absolute');
-    };
-    
-    # callback to react to gizmo rotate
-    my $on_gizmo_rotate_3D = sub {
-        my ($angle_x, $angle_y, $angle_z) = @_;
-
-        my ($obj_idx, $object) = $self->selected_object;
-        return if !defined $obj_idx;
-
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        my $model_instance = $model_object->instances->[0];
-
-        $self->stop_background_process;
-
-        my $rotation = Slic3r::Pointf3->new($angle_x, $angle_y, $angle_z);
-        foreach my $inst (@{ $model_object->instances }) {
-            $inst->set_rotations($rotation);
-        }
-        Slic3r::GUI::_3DScene::update_gizmos_data($self->{canvas3D}) if ($self->{canvas3D});  
-    
-        # update print and start background processing
-        $self->{print}->add_model_object($model_object, $obj_idx);
-    
-        $self->selection_changed;  # refresh info (size etc.)
-        $self->update;
-        $self->schedule_background_process;
-    };
-    
-    # callback to react to gizmo flatten
-    my $on_gizmo_flatten = sub {
-        my ($angle, $axis_x, $axis_y, $axis_z) = @_;
-        $self->rotate(rad2deg($angle), undef, 'absolute', $axis_x, $axis_y, $axis_z) if $angle != 0;
-    };
-
-    # callback to react to gizmo flatten
-    my $on_gizmo_flatten_3D = sub {
-        my ($angle_x, $angle_y, $angle_z) = @_;
-
-        my ($obj_idx, $object) = $self->selected_object;
-        return if !defined $obj_idx;
-
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        my $model_instance = $model_object->instances->[0];
-
-        $self->stop_background_process;
-
-        my $rotation = Slic3r::Pointf3->new($angle_x, $angle_y, $angle_z);
-        foreach my $inst (@{ $model_object->instances }) {
-            $inst->set_rotations($rotation);
-        }
-        Slic3r::GUI::_3DScene::update_gizmos_data($self->{canvas3D}) if ($self->{canvas3D});  
-    
-        # update print and start background processing
-        $self->{print}->add_model_object($model_object, $obj_idx);
-    
-        $self->selection_changed;  # refresh info (size etc.)
-        $self->update;
-        $self->schedule_background_process;
-    };
-    
-    # callback to update object's geometry info while using gizmos
-    my $on_update_geometry_info = sub {
-        my ($size_x, $size_y, $size_z, $scale_factor) = @_;
-    
-        my ($obj_idx, $object) = $self->selected_object;
-    
-        if ((defined $obj_idx) && ($self->{object_info_size})) { # have we already loaded the info pane?
-            $self->{object_info_size}->SetLabel(sprintf("%.2f x %.2f x %.2f", $size_x, $size_y, $size_z));
-            my $model_object = $self->{model}->objects->[$obj_idx];
-            if (my $stats = $model_object->mesh_stats) {
-                $self->{object_info_volume}->SetLabel(sprintf('%.2f', $stats->{volume} * $scale_factor**3));
-            }
-        }
-    };
-
-    # callback to update object's geometry info while using gizmos
-    my $on_update_geometry_3D_info = sub {
-        my ($size_x, $size_y, $size_z, $scale_x, $scale_y, $scale_z) = @_;
-    
-        my ($obj_idx, $object) = $self->selected_object;
-    
-        if ((defined $obj_idx) && ($self->{object_info_size})) { # have we already loaded the info pane?
-            $self->{object_info_size}->SetLabel(sprintf("%.2f x %.2f x %.2f", $size_x, $size_y, $size_z));
-            my $model_object = $self->{model}->objects->[$obj_idx];
-            if (my $stats = $model_object->mesh_stats) {
-                $self->{object_info_volume}->SetLabel(sprintf('%.2f', $stats->{volume} * $scale_x * $scale_y * $scale_z));
-            }
-        }
-    };
-    
-    # callbacks for toolbar
-    my $on_action_add = sub {
-        $self->add;
-    };
-
-    my $on_action_delete = sub {
-        $self->remove();
-    };
-
-    my $on_action_deleteall = sub {
-        $self->reset;
-    };
-
-    my $on_action_arrange = sub {
-        $self->arrange;
-    };
-
-    my $on_action_more = sub {
-        $self->increase;
-    };
-
-    my $on_action_fewer = sub {
-        $self->decrease;
-    };
-
-    my $on_action_split = sub {
-        $self->split_object;
-    };
-    
-    my $on_action_cut = sub {
-        $self->object_cut_dialog;
-    };
-
-    my $on_action_settings = sub {
-        $self->object_settings_dialog;
-    };
-    
-    my $on_action_layersediting = sub {
-        my $state = Slic3r::GUI::_3DScene::is_toolbar_item_pressed($self->{canvas3D}, "layersediting");
-        $self->on_layer_editing_toggled($state);
-    };
-
-    my $on_action_selectbyparts = sub {
-        my $curr = Slic3r::GUI::_3DScene::get_select_by($self->{canvas3D});
-        if ($curr eq 'volume') {
-            Slic3r::GUI::_3DScene::set_select_by($self->{canvas3D}, 'object');
-            my $selections = $self->collect_selections;
-            Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-            Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);        
-        }
-        elsif ($curr eq 'object') {
-            Slic3r::GUI::_3DScene::set_select_by($self->{canvas3D}, 'volume');
-            my $selections = [];
-            Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-            Slic3r::GUI::_3DScene::deselect_volumes($self->{canvas3D});
-            Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);      
-
-            my ($obj_idx, $object) = $self->selected_object;
-            if (defined $obj_idx) {            
-                my $vol_idx = Slic3r::GUI::_3DScene::get_first_volume_id($self->{canvas3D}, $obj_idx);                 
-                #Slic3r::GUI::_3DScene::select_volume($self->{canvas3D}, $vol_idx) if ($vol_idx != -1);
-                my $inst_cnt = $self->{model}->objects->[$obj_idx]->instances_count;
-                for (0..$inst_cnt-1){
-                    Slic3r::GUI::_3DScene::select_volume($self->{canvas3D}, $_ + $vol_idx) if ($vol_idx != -1);
-                }
-
-                my $volume_idx = Slic3r::GUI::_3DScene::get_in_object_volume_id($self->{canvas3D}, $vol_idx);
-                Slic3r::GUI::select_current_volume($obj_idx, $volume_idx) if ($volume_idx != -1);
-            }
-        }
-    };
-        
-    # Initialize 3D plater
-    if ($Slic3r::GUI::have_OpenGL) {
-        $self->{canvas3D} = Slic3r::GUI::Plater::3D->new($self->{preview_notebook}, $self->{objects}, $self->{model}, $self->{print}, $self->{config});
-        $self->{preview_notebook}->AddPage($self->{canvas3D}, L('3D'));
-        Slic3r::GUI::_3DScene::register_on_select_object_callback($self->{canvas3D}, $on_select_object);
-#        Slic3r::GUI::_3DScene::register_on_double_click_callback($self->{canvas3D}, $on_double_click);
-        Slic3r::GUI::_3DScene::register_on_right_click_callback($self->{canvas3D}, sub { $on_right_click->($self->{canvas3D}, @_); });
-        Slic3r::GUI::_3DScene::register_on_arrange_callback($self->{canvas3D}, sub { $self->arrange });
-        Slic3r::GUI::_3DScene::register_on_rotate_object_left_callback($self->{canvas3D}, sub { $self->rotate(-45, Z, 'relative') });
-        Slic3r::GUI::_3DScene::register_on_rotate_object_right_callback($self->{canvas3D}, sub { $self->rotate( 45, Z, 'relative') });
-        Slic3r::GUI::_3DScene::register_on_scale_object_uniformly_callback($self->{canvas3D}, sub { $self->changescale(undef) });
-        Slic3r::GUI::_3DScene::register_on_increase_objects_callback($self->{canvas3D}, sub { $self->increase() });
-        Slic3r::GUI::_3DScene::register_on_decrease_objects_callback($self->{canvas3D}, sub { $self->decrease() });
-        Slic3r::GUI::_3DScene::register_on_remove_object_callback($self->{canvas3D}, sub { $self->remove() });
-        Slic3r::GUI::_3DScene::register_on_instance_moved_callback($self->{canvas3D}, $on_instances_moved);
-        Slic3r::GUI::_3DScene::register_on_enable_action_buttons_callback($self->{canvas3D}, $enable_action_buttons);
-        Slic3r::GUI::_3DScene::register_on_gizmo_scale_uniformly_callback($self->{canvas3D}, $on_gizmo_scale_uniformly);
-        Slic3r::GUI::_3DScene::register_on_gizmo_scale_3D_callback($self->{canvas3D}, $on_gizmo_scale_3D);
-        Slic3r::GUI::_3DScene::register_on_gizmo_rotate_callback($self->{canvas3D}, $on_gizmo_rotate);
-        Slic3r::GUI::_3DScene::register_on_gizmo_rotate_3D_callback($self->{canvas3D}, $on_gizmo_rotate_3D);
-        Slic3r::GUI::_3DScene::register_on_gizmo_flatten_callback($self->{canvas3D}, $on_gizmo_flatten);
-        Slic3r::GUI::_3DScene::register_on_gizmo_flatten_3D_callback($self->{canvas3D}, $on_gizmo_flatten_3D);
-        Slic3r::GUI::_3DScene::register_on_update_geometry_info_callback($self->{canvas3D}, $on_update_geometry_info);
-        Slic3r::GUI::_3DScene::register_on_update_geometry_3D_info_callback($self->{canvas3D}, $on_update_geometry_3D_info);
-        Slic3r::GUI::_3DScene::register_action_add_callback($self->{canvas3D}, $on_action_add);
-        Slic3r::GUI::_3DScene::register_action_delete_callback($self->{canvas3D}, $on_action_delete);
-        Slic3r::GUI::_3DScene::register_action_deleteall_callback($self->{canvas3D}, $on_action_deleteall);
-        Slic3r::GUI::_3DScene::register_action_arrange_callback($self->{canvas3D}, $on_action_arrange);
-        Slic3r::GUI::_3DScene::register_action_more_callback($self->{canvas3D}, $on_action_more);
-        Slic3r::GUI::_3DScene::register_action_fewer_callback($self->{canvas3D}, $on_action_fewer);
-        Slic3r::GUI::_3DScene::register_action_split_callback($self->{canvas3D}, $on_action_split);
-        Slic3r::GUI::_3DScene::register_action_cut_callback($self->{canvas3D}, $on_action_cut);
-        Slic3r::GUI::_3DScene::register_action_settings_callback($self->{canvas3D}, $on_action_settings);
-        Slic3r::GUI::_3DScene::register_action_layersediting_callback($self->{canvas3D}, $on_action_layersediting);
-        Slic3r::GUI::_3DScene::register_action_selectbyparts_callback($self->{canvas3D}, $on_action_selectbyparts);
-        Slic3r::GUI::_3DScene::enable_gizmos($self->{canvas3D}, 1);
-        Slic3r::GUI::_3DScene::enable_toolbar($self->{canvas3D}, 1);
-        Slic3r::GUI::_3DScene::enable_shader($self->{canvas3D}, 1);
-        Slic3r::GUI::_3DScene::enable_force_zoom_to_bed($self->{canvas3D}, 1);
-
-        Slic3r::GUI::_3DScene::register_on_wipe_tower_moved_callback($self->{canvas3D}, sub {
-            my ($x, $y) = @_;
-            my $cfg = Slic3r::Config->new;
-            $cfg->set('wipe_tower_x', $x);
-            $cfg->set('wipe_tower_y', $y);
-            $self->GetFrame->{options_tabs}{print}->load_config($cfg);
-        });
-
-        Slic3r::GUI::_3DScene::register_on_model_update_callback($self->{canvas3D}, sub {
-            if (wxTheApp->{app_config}->get("background_processing")) {
-                $self->schedule_background_process;
-            } else {
-                # Hide the print info box, it is no more valid.
-                $self->print_info_box_show(0);
-            }
-        });
-
-        Slic3r::GUI::_3DScene::register_on_viewport_changed_callback($self->{canvas3D},
-        sub {
-            $self->{preview_iface}->set_viewport_from_scene($self->{canvas3D});
-        });
-#        Slic3r::GUI::_3DScene::register_on_viewport_changed_callback($self->{canvas3D}, sub { Slic3r::GUI::_3DScene::set_viewport_from_scene($self->{preview3D}->canvas, $self->{canvas3D}); });
-    }
-
-    Slic3r::GUI::register_on_request_update_callback(sub { $self->schedule_background_process; });
-    
-    # Initialize 3D toolpaths preview
-    if ($Slic3r::GUI::have_OpenGL) {
-        $self->{preview_iface} = Slic3r::GUI::create_preview_iface($self->{preview_notebook}, $self->{config}, $self->{print}, $self->{gcode_preview_data});
-        $self->{preview_page_idx} = $self->{preview_notebook}->GetPageCount-1;        
-        $self->{preview_iface}->register_on_viewport_changed_callback(sub { $self->{preview_iface}->set_viewport_into_scene($self->{canvas3D}); });
-#        $self->{preview3D} = Slic3r::GUI::Plater::3DPreview->new($self->{preview_notebook}, $self->{print}, $self->{gcode_preview_data}, $self->{config});
-#        Slic3r::GUI::_3DScene::enable_legend_texture($self->{preview3D}->canvas, 1);
-#        Slic3r::GUI::_3DScene::enable_dynamic_background($self->{preview3D}->canvas, 1);
-#        Slic3r::GUI::_3DScene::register_on_viewport_changed_callback($self->{preview3D}->canvas, sub { Slic3r::GUI::_3DScene::set_viewport_from_scene($self->{canvas3D}, $self->{preview3D}->canvas); });
-#        $self->{preview_notebook}->AddPage($self->{preview3D}, L('Preview'));
-        $self->{preview3D_page_idx} = $self->{preview_notebook}->GetPageCount-1;
-    }
-    
-    EVT_NOTEBOOK_PAGE_CHANGED($self, $self->{preview_notebook}, sub {
-        my $preview = $self->{preview_notebook}->GetCurrentPage;
-        my $page_id = $self->{preview_notebook}->GetSelection;
-        if (($preview != $self->{canvas3D}) && ($page_id != $self->{preview_page_idx})) {
-#        if (($preview != $self->{preview3D}) && ($preview != $self->{canvas3D})) {
-            $preview->OnActivate if $preview->can('OnActivate');        
-        } elsif ($page_id == $self->{preview_page_idx}) {
-            $self->{preview_iface}->reload_print;
-            # sets the canvas as dirty to force a render at the 1st idle event (wxWidgets IsShownOnScreen() is buggy and cannot be used reliably)
-            $self->{preview_iface}->set_canvas_as_dirty;
-#        } elsif ($preview == $self->{preview3D}) {
-#            $self->{preview3D}->reload_print;
-#            # sets the canvas as dirty to force a render at the 1st idle event (wxWidgets IsShownOnScreen() is buggy and cannot be used reliably)
-#            Slic3r::GUI::_3DScene::set_as_dirty($self->{preview3D}->canvas);
-        } elsif ($preview == $self->{canvas3D}) {
-            if (Slic3r::GUI::_3DScene::is_reload_delayed($self->{canvas3D})) {
-                my $selections = $self->collect_selections;
-                Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-                Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);
-            }            
-            # sets the canvas as dirty to force a render at the 1st idle event (wxWidgets IsShownOnScreen() is buggy and cannot be used reliably)
-            Slic3r::GUI::_3DScene::set_as_dirty($self->{canvas3D});
-        }
-    });
-    
-#    # toolbar for object manipulation
-#    if (!&Wx::wxMSW) {
-#        Wx::ToolTip::Enable(1);
-#        $self->{htoolbar} = Wx::ToolBar->new($self, -1, wxDefaultPosition, wxDefaultSize, wxTB_HORIZONTAL | wxTB_TEXT | wxBORDER_SIMPLE | wxTAB_TRAVERSAL);
-#        $self->{htoolbar}->AddTool(TB_ADD, L("Add…"), Wx::Bitmap->new(Slic3r::var("brick_add.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_REMOVE, L("Delete"), Wx::Bitmap->new(Slic3r::var("brick_delete.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_RESET, L("Delete All"), Wx::Bitmap->new(Slic3r::var("cross.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_ARRANGE, L("Arrange"), Wx::Bitmap->new(Slic3r::var("bricks.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddSeparator;
-#        $self->{htoolbar}->AddTool(TB_MORE, L("More"), Wx::Bitmap->new(Slic3r::var("add.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_FEWER, L("Fewer"), Wx::Bitmap->new(Slic3r::var("delete.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddSeparator;
-#        $self->{htoolbar}->AddTool(TB_45CCW, L("45° ccw"), Wx::Bitmap->new(Slic3r::var("arrow_rotate_anticlockwise.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_45CW, L("45° cw"), Wx::Bitmap->new(Slic3r::var("arrow_rotate_clockwise.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_SCALE, L("Scale…"), Wx::Bitmap->new(Slic3r::var("arrow_out.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_SPLIT, L("Split"), Wx::Bitmap->new(Slic3r::var("shape_ungroup.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_CUT, L("Cut…"), Wx::Bitmap->new(Slic3r::var("package.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddSeparator;
-#        $self->{htoolbar}->AddTool(TB_SETTINGS, L("Settings…"), Wx::Bitmap->new(Slic3r::var("cog.png"), wxBITMAP_TYPE_PNG), '');
-#        $self->{htoolbar}->AddTool(TB_LAYER_EDITING, L('Layer Editing'), Wx::Bitmap->new(Slic3r::var("variable_layer_height.png"), wxBITMAP_TYPE_PNG), wxNullBitmap, 1, 0, 'Layer Editing');
-#    } else {
-#        my %tbar_buttons = (
-#            add             => L("Add…"),
-#            remove          => L("Delete"),
-#            reset           => L("Delete All"),
-#            arrange         => L("Arrange"),
-#            increase        => "",
-#            decrease        => "",
-#            rotate45ccw     => "",
-#            rotate45cw      => "",
-#            changescale     => L("Scale…"),
-#            split           => L("Split"),
-#            cut             => L("Cut…"),
-#            settings        => L("Settings…"),
-#            layer_editing   => L("Layer editing"),
-#        );
-#        $self->{btoolbar} = Wx::BoxSizer->new(wxHORIZONTAL);
-#        for (qw(add remove reset arrange increase decrease rotate45ccw rotate45cw changescale split cut settings)) {
-#            $self->{"btn_$_"} = Wx::Button->new($self, -1, $tbar_buttons{$_}, wxDefaultPosition, wxDefaultSize, wxBU_EXACTFIT);
-#            $self->{btoolbar}->Add($self->{"btn_$_"});
-#        }
-#        $self->{"btn_layer_editing"} = Wx::ToggleButton->new($self, -1, $tbar_buttons{'layer_editing'}, wxDefaultPosition, wxDefaultSize, wxBU_EXACTFIT);
-#        $self->{btoolbar}->Add($self->{"btn_layer_editing"});
-#    }
-
-    ### Panel for right column
-    $self->{right_panel} = Wx::Panel->new($self, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
-#    $self->{right_panel} = Wx::ScrolledWindow->new($self, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
-#    $self->{right_panel}->SetScrollbars(0, 1, 1, 1);
-
-    ### Scrolled Window for panel without "Export G-code" and "Slice now" buttons
-    my $scrolled_window_sizer = $self->{scrolled_window_sizer} = Wx::BoxSizer->new(wxVERTICAL);
-    $scrolled_window_sizer->SetMinSize([320, -1]);
-    my $scrolled_window_panel = $self->{scrolled_window_panel} = Wx::ScrolledWindow->new($self->{right_panel}, -1, wxDefaultPosition, wxDefaultSize, wxTAB_TRAVERSAL);
-    $scrolled_window_panel->SetSizer($scrolled_window_sizer);
-    $scrolled_window_panel->SetScrollbars(0, 1, 1, 1);
-    
-    # right pane buttons
-    $self->{btn_export_gcode} = Wx::Button->new($self->{right_panel}, -1, L("Export G-code…"), wxDefaultPosition, [-1, 30],);# wxNO_BORDER);#, wxBU_LEFT);
-    $self->{btn_reslice} = Wx::Button->new($self->{right_panel}, -1, L("Slice now"), wxDefaultPosition, [-1, 30]);#, wxNO_BORDER);#, wxBU_LEFT);
-#    $self->{btn_print} = Wx::Button->new($self->{right_panel}, -1, L("Print…"), wxDefaultPosition, [-1, 30], wxBU_LEFT);
-#    $self->{btn_send_gcode} = Wx::Button->new($self->{right_panel}, -1, L("Send to printer"), wxDefaultPosition, [-1, 30], wxBU_LEFT);
-    $self->{btn_print} = Wx::Button->new($scrolled_window_panel, -1, L("Print…"), wxDefaultPosition, [-1, 30], wxBU_LEFT);
-    $self->{btn_send_gcode} = Wx::Button->new($scrolled_window_panel, -1, L("Send to printer"), wxDefaultPosition, [-1, 30], wxBU_LEFT);
-    #$self->{btn_export_stl} = Wx::Button->new($self->{right_panel}, -1, L("Export STL…"), wxDefaultPosition, [-1, 30], wxBU_LEFT);
-    #$self->{btn_export_gcode}->SetFont($Slic3r::GUI::small_font);
-    #$self->{btn_export_stl}->SetFont($Slic3r::GUI::small_font);
-    $self->{btn_print}->Hide;
-    $self->{btn_send_gcode}->Hide;
-    
-#       export_gcode    cog_go.png
-#!        reslice         reslice.png
-    my %icons = qw(
-        print           arrow_up.png
-        send_gcode      arrow_up.png
-        export_stl      brick_go.png
-    );
-    for (grep $self->{"btn_$_"}, keys %icons) {
-        $self->{"btn_$_"}->SetBitmap(Wx::Bitmap->new(Slic3r::var($icons{$_}), wxBITMAP_TYPE_PNG));
-    }
-    $self->selection_changed(0);
-    $self->object_list_changed;
-    EVT_BUTTON($self, $self->{btn_export_gcode}, sub {
-        $self->export_gcode;
-    });
-    EVT_BUTTON($self, $self->{btn_print}, sub {
-        $self->{print_file} = $self->export_gcode(Wx::StandardPaths::Get->GetTempDir());
-    });
-    EVT_BUTTON($self, $self->{btn_send_gcode}, sub {
-        $self->{send_gcode_file} = $self->export_gcode(Wx::StandardPaths::Get->GetTempDir());
-    });
-    EVT_BUTTON($self, $self->{btn_reslice}, \&reslice);
-    EVT_BUTTON($self, $self->{btn_export_stl}, \&export_stl);
-    
-#    if ($self->{htoolbar}) {
-#        EVT_TOOL($self, TB_ADD, sub { $self->add; });
-#        EVT_TOOL($self, TB_REMOVE, sub { $self->remove() }); # explicitly pass no argument to remove
-#        EVT_TOOL($self, TB_RESET, sub { $self->reset; });
-#        EVT_TOOL($self, TB_ARRANGE, sub { $self->arrange; });
-#        EVT_TOOL($self, TB_MORE, sub { $self->increase; });
-#        EVT_TOOL($self, TB_FEWER, sub { $self->decrease; });
-#        EVT_TOOL($self, TB_45CW, sub { $_[0]->rotate(-45, Z, 'relative') });
-#        EVT_TOOL($self, TB_45CCW, sub { $_[0]->rotate(45, Z, 'relative') });
-#        EVT_TOOL($self, TB_SCALE, sub { $self->changescale(undef); });
-#        EVT_TOOL($self, TB_SPLIT, sub { $self->split_object; });
-#        EVT_TOOL($self, TB_CUT, sub { $_[0]->object_cut_dialog });
-#        EVT_TOOL($self, TB_SETTINGS, sub { $_[0]->object_settings_dialog });
-#        EVT_TOOL($self, TB_LAYER_EDITING, sub {
-#            my $state = Slic3r::GUI::_3DScene::is_layers_editing_enabled($self->{canvas3D});
-#            $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, ! $state);
-#            $self->on_layer_editing_toggled(! $state);
-#        });
-#    } else {
-#        EVT_BUTTON($self, $self->{btn_add}, sub { $self->add; });
-#        EVT_BUTTON($self, $self->{btn_remove}, sub { $self->remove() }); # explicitly pass no argument to remove
-#        EVT_BUTTON($self, $self->{btn_remove}, sub { Slic3r::GUI::remove_obj() }); # explicitly pass no argument to remove
-#        EVT_BUTTON($self, $self->{btn_reset}, sub { $self->reset; });
-#        EVT_BUTTON($self, $self->{btn_arrange}, sub { $self->arrange; });
-#        EVT_BUTTON($self, $self->{btn_increase}, sub { $self->increase; });
-#        EVT_BUTTON($self, $self->{btn_decrease}, sub { $self->decrease; });
-#        EVT_BUTTON($self, $self->{btn_rotate45cw}, sub { $_[0]->rotate(-45, Z, 'relative') });
-#        EVT_BUTTON($self, $self->{btn_rotate45ccw}, sub { $_[0]->rotate(45, Z, 'relative') });
-#        EVT_BUTTON($self, $self->{btn_changescale}, sub { $self->changescale(undef); });
-#        EVT_BUTTON($self, $self->{btn_split}, sub { $self->split_object; });
-#        EVT_BUTTON($self, $self->{btn_cut}, sub { $_[0]->object_cut_dialog });
-#        EVT_BUTTON($self, $self->{btn_settings}, sub { $_[0]->object_settings_dialog });
-#        EVT_TOGGLEBUTTON($self, $self->{btn_layer_editing}, sub { $self->on_layer_editing_toggled($self->{btn_layer_editing}->GetValue); });
-#    }
-    
-    $_->SetDropTarget(Slic3r::GUI::Plater::DropTarget->new($self))
-        for grep defined($_),
-            $self, $self->{canvas3D}, $self->{preview_iface}, $self->{list};
-#            $self, $self->{canvas3D}, $self->{preview3D}, $self->{list};
-#            $self, $self->{canvas}, $self->{canvas3D}, $self->{preview3D};
-    
-    EVT_COMMAND($self, -1, $SLICING_COMPLETED_EVENT, sub {
-        my ($self, $event) = @_;
-        $self->on_update_print_preview;
-    });
-    
-    EVT_COMMAND($self, -1, $PROCESS_COMPLETED_EVENT, sub {
-        my ($self, $event) = @_;
-        $self->on_process_completed($event->GetInt ? undef : $event->GetString);
-    });
-    
-# XXX: not done
-    {
-        my $timer_id = Wx::NewId();
-        $self->{apply_config_timer} = Wx::Timer->new($self, $timer_id);
-        EVT_TIMER($self, $timer_id, sub {
-            my ($self, $event) = @_;
-            $self->async_apply_config;
-        });
-    }
-    
-#    $self->{canvas}->update_bed_size;
-    if ($self->{canvas3D}) {
-        Slic3r::GUI::_3DScene::set_bed_shape($self->{canvas3D}, $self->{config}->bed_shape);
-        Slic3r::GUI::_3DScene::zoom_to_bed($self->{canvas3D});
-    }
-    $self->{preview_iface}->set_bed_shape($self->{config}->bed_shape) if ($self->{preview_iface});
-#    if ($self->{preview3D}) {
-#        Slic3r::GUI::_3DScene::set_bed_shape($self->{preview3D}->canvas, $self->{config}->bed_shape);
-#    }
-    $self->update;
-    
-    {
-        my $presets;
-        {
-            $presets = $self->{presets_sizer} = Wx::FlexGridSizer->new(4, 2, 1, 2);
-            $presets->AddGrowableCol(1, 1);
-            $presets->SetFlexibleDirection(wxHORIZONTAL);
-            my %group_labels = (
-                print       => L('Print settings'),
-                filament    => L('Filament'),
-                sla_material=> L('SLA material'),
-                printer     => L('Printer'),
-            );
-            # UI Combo boxes for a print, multiple filaments, SLA material and a printer.
-            # Initially a single filament combo box is created, but the number of combo boxes for the filament selection may increase,
-            # once a printer preset with multiple extruders is activated.
-            # $self->{preset_choosers}{$group}[$idx]
-            $self->{preset_choosers} = {};
-            for my $group (qw(print filament sla_material printer)) {
-#                my $text = Wx::StaticText->new($self->{right_panel}, -1, "$group_labels{$group}:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
-                my $text = Wx::StaticText->new($scrolled_window_panel, -1, "$group_labels{$group}:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
-                $text->SetFont($Slic3r::GUI::small_font);
-#                my $choice = Wx::BitmapComboBox->new($self->{right_panel}, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_READONLY);
-                my $choice = Wx::BitmapComboBox->new($scrolled_window_panel, -1, "", wxDefaultPosition, wxDefaultSize, [], wxCB_READONLY);
-                if ($group eq 'filament') {
-                    EVT_LEFT_DOWN($choice, sub { $self->filament_color_box_lmouse_down(0, @_); } );
-                }
-                $self->{preset_choosers}{$group} = [$choice];
-                # setup the listener
-                EVT_COMBOBOX($choice, $choice, sub {
-                    my ($choice) = @_;
-                    wxTheApp->CallAfter(sub {
-                        $self->_on_select_preset($group, $choice, 0);
-                    });
-                });
-                $presets->Add($text, 0, wxALIGN_RIGHT | wxALIGN_CENTER_VERTICAL | wxRIGHT, 4);
-                $presets->Add($choice, 1, wxALIGN_CENTER_VERTICAL | wxEXPAND | wxBOTTOM, 1);
-            }
-            $presets->Layout;
-        }
-
-        my $frequently_changed_parameters_sizer = $self->{frequently_changed_parameters_sizer} = Wx::BoxSizer->new(wxVERTICAL);
-#!        Slic3r::GUI::add_frequently_changed_parameters($self->{right_panel}, $frequently_changed_parameters_sizer, $presets);
-        Slic3r::GUI::add_frequently_changed_parameters($self->{scrolled_window_panel}, $frequently_changed_parameters_sizer, $presets);
-
-        my $object_info_sizer;
-        {
-            my $box = Wx::StaticBox->new($scrolled_window_panel, -1, L("Info"));
-#            my $box = Wx::StaticBox->new($self->{right_panel}, -1, L("Info"));
-            $box->SetFont($Slic3r::GUI::small_bold_font);
-            $object_info_sizer = Wx::StaticBoxSizer->new($box, wxVERTICAL);
-            $object_info_sizer->SetMinSize([300,-1]);
-            #!my $grid_sizer = Wx::FlexGridSizer->new(3, 4, 5, 5);
-            my $grid_sizer = Wx::FlexGridSizer->new(2, 4, 5, 5);
-            $grid_sizer->SetFlexibleDirection(wxHORIZONTAL);
-            $grid_sizer->AddGrowableCol(1, 1);
-            $grid_sizer->AddGrowableCol(3, 1);
-            $object_info_sizer->Add($grid_sizer, 0, wxEXPAND);
-            
-            my @info = (
-                size        => L("Size"),
-                volume      => L("Volume"),
-                facets      => L("Facets"),
-                materials   => L("Materials"),
-                manifold    => L("Manifold"),
-            );
-            while (my $field = shift @info) {
-                my $label = shift @info;
-                my $text = Wx::StaticText->new($scrolled_window_panel, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-#                my $text = Wx::StaticText->new($self->{right_panel}, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-                $text->SetFont($Slic3r::GUI::small_font);
-                #!$grid_sizer->Add($text, 0);
-                
-                $self->{"object_info_$field"} = Wx::StaticText->new($scrolled_window_panel, -1, "", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-#                $self->{"object_info_$field"} = Wx::StaticText->new($self->{right_panel}, -1, "", wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-                $self->{"object_info_$field"}->SetFont($Slic3r::GUI::small_font);
-                if ($field eq 'manifold') {
-                    $self->{object_info_manifold_warning_icon} = Wx::StaticBitmap->new($scrolled_window_panel, -1, Wx::Bitmap->new(Slic3r::var("error.png"), wxBITMAP_TYPE_PNG));
-#                    $self->{object_info_manifold_warning_icon} = Wx::StaticBitmap->new($self->{right_panel}, -1, Wx::Bitmap->new(Slic3r::var("error.png"), wxBITMAP_TYPE_PNG));
-                    #$self->{object_info_manifold_warning_icon}->Hide;
-                    $self->{"object_info_manifold_warning_icon_show"} = sub {
-                        if ($self->{object_info_manifold_warning_icon}->IsShown() != $_[0]) {
-                            # this fuction show/hide info_manifold_warning_icon on the c++ side now
-                            Slic3r::GUI::set_show_manifold_warning_icon($_[0]);
-                            #my $mode = wxTheApp->{app_config}->get("view_mode");
-                            #return if ($mode eq "" || $mode eq "simple");
-                            #$self->{object_info_manifold_warning_icon}->Show($_[0]);
-                            #$self->Layout
-                        }
-                    };
-                    $self->{"object_info_manifold_warning_icon_show"}->(0);
-                    
-                    my $h_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
-                    $h_sizer->Add($text, 0);
-                    $h_sizer->Add($self->{object_info_manifold_warning_icon}, 0, wxLEFT, 2);
-                    $h_sizer->Add($self->{"object_info_$field"}, 0, wxLEFT, 2);
-                    #!$grid_sizer->Add($h_sizer, 0, wxEXPAND);
-                    $object_info_sizer->Add($h_sizer, 0, wxEXPAND|wxTOP, 4);
-                } else {
-                    $grid_sizer->Add($text, 0);
-                    $grid_sizer->Add($self->{"object_info_$field"}, 0);
-                }
-            }
-        }
-
-        my $print_info_box = Wx::StaticBox->new($scrolled_window_panel, -1, L("Sliced Info"));
-        $print_info_box->SetFont($Slic3r::GUI::small_bold_font);
-        my $print_info_sizer = $self->{print_info_sizer} = Wx::StaticBoxSizer->new($print_info_box, wxVERTICAL);
-#                Wx::StaticBox->new($self->{right_panel}, -1, L("Sliced Info")), wxVERTICAL);
-        $print_info_sizer->SetMinSize([300,-1]);
-        
-        my $buttons_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
-        $self->{buttons_sizer} = $buttons_sizer;
-        $buttons_sizer->AddStretchSpacer(1);
-#        $buttons_sizer->Add($self->{btn_export_stl}, 0, wxALIGN_RIGHT, 0);
-#!        $buttons_sizer->Add($self->{btn_reslice}, 0, wxALIGN_RIGHT, 0);
-        $buttons_sizer->Add($self->{btn_print}, 0, wxALIGN_RIGHT | wxBOTTOM | wxTOP, 5);
-        $buttons_sizer->Add($self->{btn_send_gcode}, 0, wxALIGN_RIGHT | wxBOTTOM | wxTOP, 5);
-        
-#        $scrolled_window_sizer->Add($self->{list}, 1, wxEXPAND, 5);
-#        $scrolled_window_sizer->Add($object_info_sizer, 0, wxEXPAND, 0);
-#        $scrolled_window_sizer->Add($print_info_sizer, 0, wxEXPAND, 0);
-        #$buttons_sizer->Add($self->{btn_export_gcode}, 0, wxALIGN_RIGHT, 0);
-
-        ### Sizer for info boxes
-        my $info_sizer = $self->{info_sizer} = Wx::BoxSizer->new(wxVERTICAL);
-        $info_sizer->SetMinSize([318, -1]);        
-        $info_sizer->Add($object_info_sizer, 0, wxEXPAND | wxTOP, 20);
-        $info_sizer->Add($print_info_sizer, 0, wxEXPAND | wxTOP, 20);
-
-        $scrolled_window_sizer->Add($presets, 0, wxEXPAND | wxLEFT, 2) if defined $presets;
-        $scrolled_window_sizer->Add($frequently_changed_parameters_sizer, 1, wxEXPAND | wxLEFT, 0) if defined $frequently_changed_parameters_sizer;
-        $scrolled_window_sizer->Add($buttons_sizer, 0, wxEXPAND, 0);
-        $scrolled_window_sizer->Add($info_sizer, 0, wxEXPAND | wxLEFT, 20);
-        # Show the box initially, let it be shown after the slicing is finished.
-        $self->print_info_box_show(0);
-
-        ### Sizer for "Export G-code" & "Slice now" buttons
-        my $btns_sizer = Wx::BoxSizer->new(wxVERTICAL);
-        $btns_sizer->SetMinSize([318, -1]);
-        $btns_sizer->Add($self->{btn_reslice}, 0, wxEXPAND, 0);
-        $btns_sizer->Add($self->{btn_export_gcode}, 0, wxEXPAND | wxTOP, 5);  
-
-        my $right_sizer = Wx::BoxSizer->new(wxVERTICAL);
-        $self->{right_panel}->SetSizer($right_sizer);
-        $right_sizer->SetMinSize([320, -1]);
-#!        $right_sizer->Add($presets, 0, wxEXPAND | wxTOP, 10) if defined $presets;
-#!        $right_sizer->Add($frequently_changed_parameters_sizer, 1, wxEXPAND | wxTOP, 0) if defined $frequently_changed_parameters_sizer;
-#!        $right_sizer->Add($buttons_sizer, 0, wxEXPAND | wxBOTTOM | wxTOP, 10);
-#!        $right_sizer->Add($info_sizer, 0, wxEXPAND | wxLEFT, 20);
-        # Show the box initially, let it be shown after the slicing is finished.
-#!        $self->print_info_box_show(0);
-        $right_sizer->Add($scrolled_window_panel, 1, wxEXPAND | wxTOP, 5);
-#        $right_sizer->Add($self->{btn_reslice}, 0, wxEXPAND | wxLEFT | wxTOP, 20);
-#        $right_sizer->Add($self->{btn_export_gcode}, 0, wxEXPAND | wxLEFT | wxTOP, 20);
-        $right_sizer->Add($btns_sizer, 0, wxEXPAND | wxLEFT | wxTOP, 20);
-
-        my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL);
-        $hsizer->Add($self->{preview_notebook}, 1, wxEXPAND | wxTOP, 1);
-        $hsizer->Add($self->{right_panel}, 0, wxEXPAND | wxLEFT | wxRIGHT, 0);#3);
-
-        my $sizer = Wx::BoxSizer->new(wxVERTICAL);
-#        $sizer->Add($self->{htoolbar}, 0, wxEXPAND, 0) if $self->{htoolbar};
-#        $sizer->Add($self->{btoolbar}, 0, wxEXPAND, 0) if $self->{btoolbar};
-        $sizer->Add($hsizer, 1, wxEXPAND, 0);
-        
-        $sizer->SetSizeHints($self);
-        $self->SetSizer($sizer);
-
-        # Send sizers/buttons to C++
-        Slic3r::GUI::set_objects_from_perl( $self->{scrolled_window_panel},
-                                            $frequently_changed_parameters_sizer,
-                                            $info_sizer,
-                                            $self->{btn_export_gcode},
-            #                                $self->{btn_export_stl},
-                                            $self->{btn_reslice},
-                                            $self->{btn_print},
-                                            $self->{btn_send_gcode},
-                                            $self->{object_info_manifold_warning_icon} );
-
-        Slic3r::GUI::set_model_events_from_perl(  $self->{model},
-                                            $self->{event_object_selection_changed},
-                                            $self->{event_object_settings_changed},
-                                            $self->{event_remove_object},
-                                            $self->{event_update_scene});
-    }
-
-    # Last correct selected item for each preset
-    {
-        $self->{selected_item_print} = 0;
-        $self->{selected_item_filament} = 0;
-        $self->{selected_item_printer} = 0;
-    }
-
-    $self->update_ui_from_settings();
-    $self->Layout;
-    
-    return $self;
-}
-
-# XXX: VK: WIP
-# sets the callback
-sub on_select_preset {
-    my ($self, $cb) = @_;
-    $self->{on_select_preset} = $cb;
-}
-
-# XXX: merged with on_select_preset
-# Called from the platter combo boxes selecting the active print, filament or printer.
-sub _on_select_preset {
-	my ($self, $group, $choice, $idx) = @_;
-	# If user changed a filament preset and the selected machine is equipped with multiple extruders,
-    # there are multiple filament selection combo boxes shown at the platter. In that case
-    # don't propagate the filament selection changes to the tab.
-    if ($group eq 'filament') {
-        wxTheApp->{preset_bundle}->set_filament_preset($idx, $choice->GetStringSelection);
-    }
-	if ($group eq 'filament' && @{$self->{preset_choosers}{filament}} > 1) {
-        # Only update the platter UI for the 2nd and other filaments.
-        wxTheApp->{preset_bundle}->update_platter_filament_ui($idx, $choice);
-	} else {
-        my $selected_item = $choice->GetSelection();
-        return if ($selected_item == $self->{"selected_item_$group"} && 
-                    !Slic3r::GUI::get_preset_tab($group)->current_preset_is_dirty);
-
-        my $selected_string = $choice->GetString($selected_item);
-        if ($selected_string eq ("------- ".L("System presets")." -------") ||
-            $selected_string eq ("-------  ".L("User presets")."  -------") ){
-            $choice->SetSelection($self->{"selected_item_$group"});
-            return;
-        }
-        
-    	# call GetSelection() in scalar context as it's context-aware
-#    	$self->{on_select_preset}->($group, $choice->GetStringSelection)
-        $self->{on_select_preset}->($group, $selected_string)
-            if $self->{on_select_preset};
-        $self->{"selected_item_$group"} = $selected_item;
-    }
-    # Synchronize config.ini with the current selections.
-    wxTheApp->{preset_bundle}->export_selections(wxTheApp->{app_config});
-	# get new config and generate on_config_change() event for updating plater and other things
-	$self->on_config_change(wxTheApp->{preset_bundle}->full_config);
-}
-
-# XXX: VK: done
-sub on_layer_editing_toggled {
-    my ($self, $new_state) = @_;
-    Slic3r::GUI::_3DScene::enable_layers_editing($self->{canvas3D}, $new_state);
-    if ($new_state && ! Slic3r::GUI::_3DScene::is_layers_editing_enabled($self->{canvas3D})) {
-        # Initialization of the OpenGL shaders failed. Disable the tool.
-#        if ($self->{htoolbar}) {
-#            $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 0);
-#            $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, 0);
-#        } else {
-#            $self->{"btn_layer_editing"}->Disable;
-#            $self->{"btn_layer_editing"}->SetValue(0);
-#        }
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "layersediting", 0);
-    }
-    $self->{canvas3D}->Refresh;
-    $self->{canvas3D}->Update;
-}
-
-# XXX: VK: done (Plater::priv::main_frame)
-sub GetFrame {
-    my ($self) = @_;
-    return &Wx::GetTopLevelParent($self);
-}
-
-# XXX: not done
-# Called after the Preferences dialog is closed and the program settings are saved.
-# Update the UI based on the current preferences.
-sub update_ui_from_settings
-{
-    my ($self) = @_;
-    if (defined($self->{btn_reslice}) && $self->{buttons_sizer}->IsShown($self->{btn_reslice}) != (! wxTheApp->{app_config}->get("background_processing"))) {
-        $self->{buttons_sizer}->Show($self->{btn_reslice}, ! wxTheApp->{app_config}->get("background_processing"));
-        $self->{buttons_sizer}->Layout;
-    }
-}
-
-# XXX: VK: done
-# Update preset combo boxes (Print settings, Filament, Material, Printer) from their respective tabs.
-# Called by 
-#       Slic3r::GUI::Tab::Print::_on_presets_changed
-#       Slic3r::GUI::Tab::Filament::_on_presets_changed
-#       Slic3r::GUI::Tab::Material::_on_presets_changed
-#       Slic3r::GUI::Tab::Printer::_on_presets_changed
-# when the presets are loaded or the user selects another preset.
-# For Print settings and Printer, synchronize the selection index with their tabs.
-# For Filament, synchronize the selection index for a single extruder printer only, otherwise keep the selection.
-sub update_presets {
-    # $group: one of qw(print filament sla_material printer)
-    # $presets: PresetCollection
-    my ($self, $group, $presets) = @_;
-    my @choosers = @{$self->{preset_choosers}{$group}};
-    if ($group eq 'filament') {
-        my $choice_idx = 0;
-        if (int(@choosers) == 1) {
-            # Single filament printer, synchronize the filament presets.
-            wxTheApp->{preset_bundle}->set_filament_preset(0, wxTheApp->{preset_bundle}->filament->get_selected_preset->name);
-        }
-        foreach my $choice (@choosers) {
-            wxTheApp->{preset_bundle}->update_platter_filament_ui($choice_idx, $choice);
-            $choice_idx += 1;
-        }
-    } elsif ($group eq 'print') {
-        wxTheApp->{preset_bundle}->print->update_platter_ui($choosers[0]);
-    } elsif ($group eq 'sla_material') {
-        wxTheApp->{preset_bundle}->sla_material->update_platter_ui($choosers[0]);
-    } elsif ($group eq 'printer') {
-        # Update the print choosers to only contain the compatible presets, update the dirty flags.
-        wxTheApp->{preset_bundle}->print->update_platter_ui($self->{preset_choosers}{print}->[0]);
-        # Update the printer choosers, update the dirty flags.
-        wxTheApp->{preset_bundle}->printer->update_platter_ui($choosers[0]);
-        # Update the filament choosers to only contain the compatible presets, update the color preview, 
-        # update the dirty flags.
-        my $choice_idx = 0;
-        foreach my $choice (@{$self->{preset_choosers}{filament}}) {
-            wxTheApp->{preset_bundle}->update_platter_filament_ui($choice_idx, $choice);
-            $choice_idx += 1;
-        }
-    }
-    # Synchronize config.ini with the current selections.
-    wxTheApp->{preset_bundle}->export_selections(wxTheApp->{app_config});
-}
-
-# XXX: VK: done, in on_action_add()
-sub add {
-    my ($self) = @_;
-    my @input_files = wxTheApp->open_model($self);
-    $self->load_files(\@input_files);
-}
-
-# XXX: VK: done
-sub load_files {
-    my ($self, $input_files) = @_;
-
-    return if ! defined($input_files) || ! scalar(@$input_files);
-
-    my $nozzle_dmrs = $self->{config}->get('nozzle_diameter');
-    # One of the files is potentionally a bundle of files. Don't bundle them, but load them one by one.
-    # Only bundle .stls or .objs if the printer has multiple extruders.
-    my $one_by_one = (@$nozzle_dmrs <= 1) || (@$input_files == 1) || 
-       defined(first { $_ =~ /.[aA][mM][fF]$/ || $_ =~ /.[aA][mM][fF].[xX][mM][lL]$/ || $_ =~ /.[zZ][iI][pP].[aA][mM][fF]$/ || $_ =~ /.3[mM][fF]$/ || $_ =~ /.[pP][rR][uI][sS][aA]$/ } @$input_files);
-        
-    my $process_dialog = Wx::ProgressDialog->new(L('Loading…'), L("Processing input file\n") . basename($input_files->[0]), 100, $self, 0);
-    $process_dialog->Pulse;
-    local $SIG{__WARN__} = Slic3r::GUI::warning_catcher($self);
-
-    # new_model to collect volumes, if all of them come from .stl or .obj and there is a chance, that they will be
-    # possibly merged into a single multi-part object.
-    my $new_model = $one_by_one ? undef : Slic3r::Model->new;
-    # Object indices for the UI.
-    my @obj_idx = ();
-    # Collected file names to display the final message on the status bar.
-    my @loaded_files = ();   # XXX: used???
-    # For all input files.
-    for (my $i = 0; $i < @$input_files; $i += 1) {
-        my $input_file = $input_files->[$i];
-        $process_dialog->Update(100. * $i / @$input_files, L("Processing input file\n") . basename($input_file));
-
-        my $model;
-        if (($input_file =~ /.3[mM][fF]$/) || ($input_file =~ /.[zZ][iI][pP].[aA][mM][fF]$/))
-        {
-            $model = eval { Slic3r::Model->read_from_archive($input_file, wxTheApp->{preset_bundle}, 0) };
-            Slic3r::GUI::show_error($self, $@) if $@;
-            $_->load_current_preset for (values %{$self->GetFrame->{options_tabs}});
-            wxTheApp->{app_config}->update_config_dir(dirname($input_file));
-            # forces the update of the config here, or it will invalidate the imported layer heights profile if done using the timer
-            # and if the config contains a "layer_height" different from the current defined one
-            $self->async_apply_config;
-        }
-        else
-        {
-            $model = eval { Slic3r::Model->read_from_file($input_file, 0) };
-            Slic3r::GUI::show_error($self, $@) if $@;
-        }
-
-        next if ! defined $model;
-        
-        if ($model->looks_like_multipart_object) {
-            my $dialog = Wx::MessageDialog->new($self,
-                L("This file contains several objects positioned at multiple heights. "
-                . "Instead of considering them as multiple objects, should I consider\n"
-                . "this file as a single object having multiple parts?\n"),
-                L('Multi-part object detected'), wxICON_WARNING | wxYES | wxNO);
-            $model->convert_multipart_object(scalar(@$nozzle_dmrs)) if $dialog->ShowModal() == wxID_YES;
-        }
-        
-        # objects imported from 3mf require a call to center_around_origin to have gizmos working properly and this call
-        # need to be done after looks_like_multipart_object detection
-        if ($input_file =~ /[.]3[mM][fF]$/)
-        {
-            foreach my $model_object (@{$model->objects}) {
-                $model_object->center_around_origin;  # also aligns object to Z = 0
-            }
-        }
-        
-        if ($one_by_one) {
-            push @obj_idx, $self->load_model_objects(@{$model->objects});
-        } else {
-            # This must be an .stl or .obj file, which may contain a maximum of one volume.
-            $new_model->add_object($_) for (@{$model->objects});
-        }
-    }
-
-    if ($new_model) {
-        my $dialog = Wx::MessageDialog->new($self,
-            L("Multiple objects were loaded for a multi-material printer.\n"
-            . "Instead of considering them as multiple objects, should I consider\n"
-            . "these files to represent a single object having multiple parts?\n"),
-            L('Multi-part object detected'), wxICON_WARNING | wxYES | wxNO);
-        $new_model->convert_multipart_object(scalar(@$nozzle_dmrs)) if $dialog->ShowModal() == wxID_YES;
-        push @obj_idx, $self->load_model_objects(@{$new_model->objects});
-    }
-
-    # Note the current directory for the file open dialog.
-    wxTheApp->{app_config}->update_skein_dir(dirname($input_files->[-1]));
-    
-    $process_dialog->Destroy;
-    $self->statusbar->SetStatusText(L("Loaded ") . join(',', @loaded_files));
-    return @obj_idx;
-}
-
-# XXX: VK: done, except a few todos
-sub load_model_objects {
-    my ($self, @model_objects) = @_;
-    
-    my $bed_centerf = $self->bed_centerf;
-    my $bed_shape = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape});
-    my $bed_size = $bed_shape->bounding_box->size;
-    
-    my $need_arrange = 0;
-    my $scaled_down = 0;
-    my @obj_idx = ();
-    foreach my $model_object (@model_objects) {
-        my $o = $self->{model}->add_object($model_object);
-        my $object_name = $model_object->name;
-        $object_name = basename($model_object->input_file) if ($object_name eq '');
-        push @{ $self->{objects} }, Slic3r::GUI::Plater::Object->new(name => $object_name);
-        push @obj_idx, $#{ $self->{objects} };
-    
-        if ($model_object->instances_count == 0) {
-            # if object has no defined position(s) we need to rearrange everything after loading
-            $need_arrange = 1;
-        
-            # add a default instance and center object around origin
-            $o->center_around_origin;  # also aligns object to Z = 0
-            $o->add_instance(offset => $bed_centerf);
-        }
-        
-        {
-            # if the object is too large (more than 5 times the bed), scale it down
-            my $size = $o->bounding_box->size;
-            my $ratio = max($size->x / unscale($bed_size->x), $size->y / unscale($bed_size->y));
-            if ($ratio > 10000) {
-                # the size of the object is too big -> this could lead to overflow when moving to clipper coordinates,
-                # so scale down the mesh
-                $o->scale_xyz(Slic3r::Pointf3->new(1/$ratio, 1/$ratio, 1/$ratio));
-                $scaled_down = 1;
-            }
-            elsif ($ratio > 5) {
-                $_->set_scaling_factor(1/$ratio) for @{$o->instances};
-                $scaled_down = 1;
-            }
-        }
-    
-        $self->{print}->auto_assign_extruders($o);
-        $self->{print}->add_model_object($o);
-    }
-    
-    # if user turned autocentering off, automatic arranging would disappoint them
-    if (! wxTheApp->{app_config}->get("autocenter")) {
-        $need_arrange = 0;
-    }
-    
-    if ($scaled_down) {
-        Slic3r::GUI::show_info(
-            $self,
-            L('Your object appears to be too large, so it was automatically scaled down to fit your print bed.'),
-            L('Object too large?'),
-        );
-    }
-    
-    foreach my $obj_idx (@obj_idx) {
-        my $object = $self->{objects}[$obj_idx];
-        my $model_object = $self->{model}->objects->[$obj_idx];
-
-        # Add object to list on c++ side
-        Slic3r::GUI::add_object_to_list($object->name, $model_object);
-    
-
-#        $self->reset_thumbnail($obj_idx);
-    }
-    $self->arrange if $need_arrange;
-    $self->update;
-    
-    # zoom to objects
-    Slic3r::GUI::_3DScene::zoom_to_volumes($self->{canvas3D}) if $self->{canvas3D};
-    
-    $self->object_list_changed;
-    
-    $self->schedule_background_process;
-    
-    return @obj_idx;
-}
-
-# XXX: Removed, replaced with bed_shape_bb()
-sub bed_centerf {
-    my ($self) = @_;
-    
-    my $bed_shape = Slic3r::Polygon->new_scale(@{$self->{config}->bed_shape});
-    my $bed_center = $bed_shape->bounding_box->center;
-    return Slic3r::Pointf->new(unscale($bed_center->x), unscale($bed_center->y)); #)
-}
-
-# XXX: VK: done
-sub remove {
-    my ($self, $obj_idx) = @_;
-    
-    $self->stop_background_process;
-    
-    # Prevent toolpaths preview from rendering while we modify the Print object
-    $self->{preview_iface}->set_enabled(0) if $self->{preview_iface};
-#    $self->{preview3D}->enabled(0) if $self->{preview3D};
-    
-    # If no object index is supplied, remove the selected one.
-    if (! defined $obj_idx) {
-        ($obj_idx, undef) = $self->selected_object;
-        return if ! defined $obj_idx;
-    }
-    
-    splice @{$self->{objects}}, $obj_idx, 1;
-    $self->{model}->delete_object($obj_idx);
-    $self->{print}->delete_object($obj_idx);
-    # Delete object from list on c++ side
-    Slic3r::GUI::delete_object_from_list();
-    $self->object_list_changed;
-    
-    $self->select_object(undef);
-    $self->update;
-}
-
-# XXX: VK: done
-sub reset {
-    my ($self) = @_;
-    
-    $self->stop_background_process;
-    
-    # Prevent toolpaths preview from rendering while we modify the Print object
-    $self->{preview_iface}->set_enabled(0) if $self->{preview_iface};
-#    $self->{preview3D}->enabled(0) if $self->{preview3D};
-    
-    @{$self->{objects}} = ();
-    $self->{model}->clear_objects;
-    $self->{print}->clear_objects;
-    # Delete all objects from list on c++ side
-    Slic3r::GUI::delete_all_objects_from_list();
-    $self->object_list_changed;
-    
-    $self->select_object(undef);
-    $self->update;
-}
-
-# XXX: VK: done
-sub increase {
-    my ($self, $copies) = @_;
-    $copies //= 1;
-    my ($obj_idx, $object) = $self->selected_object;
-    return if ! defined $obj_idx;
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    my $instance = $model_object->instances->[-1];
-    $self->stop_background_process;
-    for my $i (1..$copies) {
-        $instance = $model_object->add_instance(
-            offset          => Slic3r::Pointf->new(map 10+$_, @{$instance->offset}),
-            scaling_factor  => $instance->scaling_factor,
-            rotation        => $instance->rotation,
-        );
-        $self->{print}->objects->[$obj_idx]->add_copy($instance->offset);
-    }
-    # Set count of object on c++ side
-    Slic3r::GUI::set_object_count($obj_idx, $model_object->instances_count);
-    
-    # only autoarrange if user has autocentering enabled
-    $self->stop_background_process;
-    if (wxTheApp->{app_config}->get("autocenter")) {
-        $self->arrange;
-    } else {
-        $self->update;
-    }
-
-    $self->selection_changed;  # refresh info (size, volume etc.)
-    $self->schedule_background_process;
-}
-
-# XXX: VK: done
-sub decrease {
-    my ($self, $copies_asked) = @_;
-    my $copies = $copies_asked // 1;
-    my ($obj_idx, $object) = $self->selected_object;
-    return if ! defined $obj_idx;
-
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    if ($model_object->instances_count > $copies) {
-        $self->stop_background_process;
-        for my $i (1..$copies) {
-            $model_object->delete_last_instance;
-            $self->{print}->objects->[$obj_idx]->delete_last_copy;
-        }
-        # Set conut of object on c++ side
-        Slic3r::GUI::set_object_count($obj_idx, $model_object->instances_count);
-    } elsif (defined $copies_asked) {
-        # The "decrease" came from the "set number of copies" dialog.
-        $self->stop_background_process;
-        $self->remove;
-    } else {
-        # The "decrease" came from the "-" button. Don't allow the object to disappear.
-        return;
-    }
-
-    $self->update;
-}
-
-# XXX: VK: done
-sub set_number_of_copies {
-    my ($self) = @_;
-    # get current number of copies
-    my ($obj_idx, $object) = $self->selected_object;
-    my $model_object = $self->{model}->objects->[$obj_idx];    
-    # prompt user
-    my $copies = -1;
-    $copies = Wx::GetNumberFromUser("", L("Enter the number of copies of the selected object:"), L("Copies"), $model_object->instances_count, 0, 1000, $self);
-    my $diff = $copies - $model_object->instances_count;
-    if ($diff == 0 || $copies == -1) {
-        # no variation
-    } elsif ($diff > 0) {
-        $self->increase($diff);
-    } elsif ($diff < 0) {
-        $self->decrease(-$diff);
-    }
-}
-
-# XXX: VK: removed
-sub _get_number_from_user {
-    my ($self, $title, $prompt_message, $error_message, $default, $only_positive) = @_;
-    for (;;) {
-        my $value = Wx::GetTextFromUser($prompt_message, $title, $default, $self);
-        # Accept both dashes and dots as a decimal separator.
-        $value =~ s/,/./;
-        # If scaling value is being entered, remove the trailing percent sign.
-        $value =~ s/%$// if $only_positive;
-        # User canceled the selection, return undef.
-        return if $value eq '';
-        # Validate a numeric value.
-        return $value if ($value =~ /^-?\d*(?:\.\d*)?$/) && (! $only_positive || $value > 0);
-        Wx::MessageBox(
-            $error_message . 
-            (($only_positive && $value <= 0) ? 
-                ": ".$value.L("\nNon-positive value.") : 
-                ": ".$value.L("\nNot a numeric value.")), 
-            L("Slic3r Error"), wxOK | wxICON_EXCLAMATION, $self);
-        $default = $value;
-    }
-}
-
-# XXX: not done
-sub rotate {
-    my ($self, $angle, $axis, $relative_key, $axis_x, $axis_y, $axis_z) = @_;
-    $relative_key //= 'absolute'; # relative or absolute coordinates
-    $axis_x //= 0;
-    $axis_y //= 0;
-    $axis_z //= 0;
-    my $relative = $relative_key eq 'relative';    
-
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    my $model_instance = $model_object->instances->[0];
-
-    if (!defined $angle) {
-        my $axis_name = $axis == X ? 'X' : $axis == Y ? 'Y' : 'Z';
-        my $default = $axis == Z ? rad2deg($model_instance->rotation) : 0;
-        $angle = $self->_get_number_from_user(L("Enter the rotation angle:"), L("Rotate around ").$axis_name.(" axis"), L("Invalid rotation angle entered"), $default);
-        return if $angle eq '';
-    }
-
-    # Let's calculate vector of rotation axis (if we don't have it already)
-    if (defined $axis) {
-        if ($axis == X) {
-            $axis_x = 1;
-        }
-        if ($axis == Y) {
-            $axis_y = 1;
-        }
-    }
-    
-    $self->stop_background_process;
-    
-    if (defined $axis && $axis == Z) {
-        my $new_angle = deg2rad($angle);
-        foreach my $inst (@{ $model_object->instances }) {
-            my $rotation = ($relative ? $inst->rotation : 0.) + $new_angle;
-            while ($rotation > 2.0 * PI) {
-                $rotation -= 2.0 * PI;
-            }
-            while ($rotation < 0.0) {
-                $rotation += 2.0 * PI;
-            }
-            $inst->set_rotation($rotation);
-            Slic3r::GUI::_3DScene::update_gizmos_data($self->{canvas3D}) if ($self->{canvas3D});            
-        }
-#        $object->transform_thumbnail($self->{model}, $obj_idx);
-    } else {
-        if (defined $axis) {
-            # rotation around X and Y needs to be performed on mesh
-            # so we first apply any Z rotation
-            if ($model_instance->rotation != 0) {
-                $model_object->rotate($model_instance->rotation, Slic3r::Pointf3->new(0, 0, -1));
-                $_->set_rotation(0) for @{ $model_object->instances };
-            }
-        }
-        $model_object->rotate(deg2rad($angle), Slic3r::Pointf3->new($axis_x, $axis_y, $axis_z));
-        
-#        # realign object to Z = 0
-#        $model_object->center_around_origin;
-#        $self->reset_thumbnail($obj_idx);
-    }
-        
-    # update print and start background processing
-    $self->{print}->add_model_object($model_object, $obj_idx);
-    
-    $self->selection_changed;  # refresh info (size etc.)
-    $self->update;
-}
-
-# XXX: not done
-sub mirror {
-    my ($self, $axis) = @_;
-    
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-    
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    my $model_instance = $model_object->instances->[0];
-    
-    # apply Z rotation before mirroring
-    if ($model_instance->rotation != 0) {
-        $model_object->rotate($model_instance->rotation, Slic3r::Pointf3->new(0, 0, 1));
-        $_->set_rotation(0) for @{ $model_object->instances };
-    }
-    
-    $model_object->mirror($axis);
-    
-#    # realign object to Z = 0
-#    $model_object->center_around_origin;
-#    $self->reset_thumbnail($obj_idx);
-        
-    # update print and start background processing
-    $self->stop_background_process;
-    $self->{print}->add_model_object($model_object, $obj_idx);
-    
-    $self->selection_changed;  # refresh info (size etc.)
-    $self->update;
-}
-
-# XXX: not done, renamed as Plater::priv::scale()
-sub changescale {
-    my ($self, $axis, $tosize) = @_;
-    
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-    
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    my $model_instance = $model_object->instances->[0];
-    
-    my $object_size = $model_object->instance_bounding_box(0)->size;
-    
-    if (defined $axis) {
-        my $axis_name = $axis == X ? 'X' : $axis == Y ? 'Y' : 'Z';
-        my $scale;
-        if ($tosize) {
-            my $cursize = $object_size->[$axis];
-            my $newsize = $self->_get_number_from_user(
-                L('Enter the new size for the selected object:'), 
-                L("Scale along ").$axis_name, L('Invalid scaling value entered'), $cursize, 1);
-            return if $newsize eq '';
-            $scale = $newsize / $cursize * 100;
-        } else {
-            $scale = $self->_get_number_from_user(L('Enter the scale % for the selected object:'), L("Scale along ").$axis_name, L('Invalid scaling value entered'), 100, 1);
-            return if $scale eq '';
-        }
-        
-        # apply Z rotation before scaling
-        if ($model_instance->rotation != 0) {
-            $model_object->rotate($model_instance->rotation, Slic3r::Pointf3->new(0, 0, 1));
-            $_->set_rotation(0) for @{ $model_object->instances };
-        }
-        
-        my $versor = [1,1,1];
-        $versor->[$axis] = $scale/100;
-        $model_object->scale_xyz(Slic3r::Pointf3->new(@$versor));
-        #FIXME Scale the layer height profile when $axis == Z?
-        #FIXME Scale the layer height ranges $axis == Z?
-        # object was already aligned to Z = 0, so no need to realign it
-#        $self->reset_thumbnail($obj_idx);
-    } else {
-        my $scale;
-        if ($tosize) {
-            my $cursize = max(@$object_size);
-            my $newsize = $self->_get_number_from_user(L('Enter the new max size for the selected object:'), L('Scale'), L('Invalid scaling value entered'), $cursize, 1);
-            return if ! defined($newsize) || $newsize eq '';
-            $scale = $model_instance->scaling_factor * $newsize / $cursize * 100;
-        } else {
-            # max scale factor should be above 2540 to allow importing files exported in inches
-            $scale = $self->_get_number_from_user(L('Enter the scale % for the selected object:'), L('Scale'), L('Invalid scaling value entered'), $model_instance->scaling_factor*100, 1);
-            return if ! defined($scale) || $scale eq '';
-        }
-
-        # Set object scale on c++ side
-#        Slic3r::GUI::set_object_scale($obj_idx, $scale);
-        $scale /= 100;  # turn percent into factor
-        
-        my $variation = $scale / $model_instance->scaling_factor;
-        #FIXME Scale the layer height profile?
-        foreach my $range (@{ $model_object->layer_height_ranges }) {
-            $range->[0] *= $variation;
-            $range->[1] *= $variation;
-        }
-        $_->set_scaling_factor($scale) for @{ $model_object->instances };
-#        $object->transform_thumbnail($self->{model}, $obj_idx);
-    }
-    
-    # update print and start background processing
-    $self->stop_background_process;
-    $self->{print}->add_model_object($model_object, $obj_idx);
-    
-    $self->selection_changed(1);  # refresh info (size, volume etc.)
-    $self->update;
-}
-
-# XXX: VK: WIP
-sub arrange {
-    my ($self) = @_;
-    
-    $self->stop_background_process;
-    # my $bb = Slic3r::Geometry::BoundingBoxf->new_from_points($self->{config}->bed_shape);
-    # my $success = $self->{model}->arrange_objects(wxTheApp->{preset_bundle}->full_config->min_object_distance, $bb);
-    
-    # Update is not implemented in C++ so we cannot call this for now
-    $self->{appController}->arrange_model;
-
-    # ignore arrange failures on purpose: user has visual feedback and we don't need to warn him
-    # when parts don't fit in print bed
-    
-    # Force auto center of the aligned grid of of objects on the print bed.
-    $self->update(0);
-}
-
-# XXX: not done
-sub split_object {
-    my $self = shift;
-    
-    my ($obj_idx, $current_object)  = $self->selected_object;
-    
-    # we clone model object because split_object() adds the split volumes
-    # into the same model object, thus causing duplicates when we call load_model_objects()
-    my $new_model = $self->{model}->clone;  # store this before calling get_object()
-    my $current_model_object = $new_model->get_object($obj_idx);
-    
-    if ($current_model_object->volumes_count > 1) {
-        Slic3r::GUI::warning_catcher($self)->(L("The selected object can't be split because it contains more than one volume/material."));
-        return;
-    }
-    
-    $self->stop_background_process;
-    
-    my @model_objects = @{$current_model_object->split_object};
-    if (@model_objects == 1) {
-        Slic3r::GUI::warning_catcher($self)->(L("The selected object couldn't be split because it contains only one part."));
-        $self->schedule_background_process;
-    } else {
-        $_->center_around_origin for (@model_objects);
-        $self->remove($obj_idx);
-        $current_object = $obj_idx = undef;
-        # load all model objects at once, otherwise the plate would be rearranged after each one
-        # causing original positions not to be kept
-        $self->load_model_objects(@model_objects);
-    }
-}
-
-# XXX: not done
-# Trigger $self->async_apply_config() after 500ms.
-# The call is delayed to avoid restarting the background processing during typing into an edit field.
-sub schedule_background_process {
-    my ($self) = @_;
-    $self->{apply_config_timer}->Start(0.5 * 1000, 1);  # 1 = one shot, every half a second.
-}
-
-# XXX: not done
-# Executed asynchronously by a timer every PROCESS_DELAY (0.5 second).
-# The timer is started by schedule_background_process(), 
-sub async_apply_config {
-    my ($self) = @_;
-    # Apply new config to the possibly running background task.
-    my $was_running = $self->{background_slicing_process}->running;
-    my $invalidated = $self->{background_slicing_process}->apply_config(wxTheApp->{preset_bundle}->full_config);
-    # Just redraw the 3D canvas without reloading the scene to consume the update of the layer height profile.
-    $self->{canvas3D}->Refresh if Slic3r::GUI::_3DScene::is_layers_editing_enabled($self->{canvas3D});
-    # If the apply_config caused the calculation to stop, or it was not running yet:
-    if ($invalidated) {
-        if ($was_running) {
-            # Hide the slicing results if the current slicing status is no more valid.
-            $self->print_info_box_show(0)
-        }
-        if (wxTheApp->{app_config}->get("background_processing")) {
-            $self->{background_slicing_process}->start;
-        }
-        if ($was_running) {
-            # Reset preview canvases. If the print has been invalidated, the preview canvases will be cleared.
-            # Otherwise they will be just refreshed.
-            $self->{gcode_preview_data}->reset;
-            $self->{preview_iface}->reload_print if $self->{preview_iface};
-#            $self->{preview3D}->reload_print if $self->{preview3D};
-            # We also need to reload 3D scene because of the wipe tower preview box
-            if ($self->{config}->wipe_tower) {
-                my $selections = $self->collect_selections;
-                Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-    	        Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1) if $self->{canvas3D}
-            }
-        }
-    }
-}
-
-# XXX: not done
-# Background processing is started either by the "Slice now" button, by the "Export G-code button" or by async_apply_config().
-sub start_background_process {
-    my ($self) = @_;
-    return if ! @{$self->{objects}} || $self->{background_slicing_process}->running;
-    # Don't start process thread if config is not valid.
-    eval {
-        # this will throw errors if config is not valid
-        wxTheApp->{preset_bundle}->full_config->validate;
-        $self->{print}->validate;
-    };
-    if ($@) {
-        $self->statusbar->SetStatusText($@);
-        return;
-    }   
-    # Copy the names of active presets into the placeholder parser.
-    wxTheApp->{preset_bundle}->export_selections_pp($self->{print}->placeholder_parser);
-    # Start the background process.
-    $self->{background_slicing_process}->start;
-}
-
-# XXX: not done
-# Stop the background processing
-sub stop_background_process {
-    my ($self) = @_;
-    $self->{background_slicing_process}->stop();
-    $self->{preview_iface}->reload_print if $self->{preview_iface};
-#    $self->{preview3D}->reload_print if $self->{preview3D};
-}
-
-# XXX: not done
-# Called by the "Slice now" button, which is visible only if the background processing is disabled.
-sub reslice {
-    # explicitly cancel a previous thread and start a new one.
-    my ($self) = @_;
-    # Don't reslice if export of G-code or sending to OctoPrint is running.
-    if (! defined($self->{export_gcode_output_file}) && ! defined($self->{send_gcode_file})) {
-        # Stop the background processing threads, stop the async update timer.
-        $self->stop_background_process;
-        # Rather perform one additional unnecessary update of the print object instead of skipping a pending async update.
-        $self->async_apply_config;
-        $self->statusbar->SetCancelCallback(sub {
-            $self->stop_background_process;
-            $self->statusbar->SetStatusText(L("Slicing cancelled"));
-            # this updates buttons status
-            $self->object_list_changed;
-        });
-        $self->start_background_process;
-    }
-}
-
-# XXX: VK: done
-sub export_gcode {
-    my ($self, $output_file) = @_;
-    
-    return if !@{$self->{objects}};
-    
-    if ($self->{export_gcode_output_file}) {
-        Wx::MessageDialog->new($self, L("Another export job is currently running."), L('Error'), wxOK | wxICON_ERROR)->ShowModal;
-        return;
-    }
-    
-    # if process is not running, validate config
-    # (we assume that if it is running, config is valid)
-    eval {
-        # this will throw errors if config is not valid
-        wxTheApp->{preset_bundle}->full_config->validate;
-        $self->{print}->validate;
-    };
-    Slic3r::GUI::catch_error($self) and return;
-    
-    
-    # apply config and validate print
-    my $config = wxTheApp->{preset_bundle}->full_config;
-    eval {
-        # this will throw errors if config is not valid
-        $config->validate;
-        #FIXME it shall use the background processing!
-        $self->{print}->apply_config($config);
-        $self->{print}->validate;
-    };
-    Slic3r::GUI::catch_error($self) and return;
-    
-    # Copy the names of active presets into the placeholder parser.
-    wxTheApp->{preset_bundle}->export_selections_pp($self->{print}->placeholder_parser);
-    # select output file
-    if ($output_file) {
-        $self->{export_gcode_output_file} = eval { $self->{print}->output_filepath($output_file) };
-        Slic3r::GUI::catch_error($self) and return;
-    } else {
-        my $default_output_file = eval { $self->{print}->output_filepath($main::opt{output} // '') };
-        Slic3r::GUI::catch_error($self) and return;
-        # If possible, remove accents from accented latin characters.
-        # This function is useful for generating file names to be processed by legacy firmwares.
-        $default_output_file = Slic3r::GUI::fold_utf8_to_ascii($default_output_file);
-        my $dlg = Wx::FileDialog->new($self, L('Save G-code file as:'), 
-            wxTheApp->{app_config}->get_last_output_dir(dirname($default_output_file)),
-            basename($default_output_file), &Slic3r::GUI::FILE_WILDCARDS->{gcode}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT);
-        if ($dlg->ShowModal != wxID_OK) {
-            $dlg->Destroy;
-            return;
-        }
-        my $path = $dlg->GetPath;
-        wxTheApp->{app_config}->update_last_output_dir(dirname($path));
-        $self->{export_gcode_output_file} = $path;
-        $dlg->Destroy;
-    }
-    
-    $self->statusbar->StartBusy;
-    
-    $self->statusbar->SetCancelCallback(sub {
-        $self->stop_background_process;
-        $self->statusbar->SetStatusText(L("Export cancelled"));
-        $self->{export_gcode_output_file} = undef;
-        $self->{send_gcode_file} = undef;
-        
-        # this updates buttons status
-        $self->object_list_changed;
-    });
-
-    $self->{background_slicing_process}->set_output_path($self->{export_gcode_output_file});
-    
-    # start background process, whose completion event handler
-    # will detect $self->{export_gcode_output_file} and proceed with export
-    $self->start_background_process;
-    
-    # this updates buttons status
-    $self->object_list_changed;
-    
-    return $self->{export_gcode_output_file};
-}
-
-# XXX: not done
-# This message should be called by the background process synchronously.
-sub on_update_print_preview {
-    my ($self) = @_;
-    $self->{preview_iface}->reload_print if $self->{preview_iface};
-#    $self->{preview3D}->reload_print if $self->{preview3D};
-
-    # in case this was MM print, wipe tower bounding box on 3D tab might need redrawing with exact depth:
-    my $selections = $self->collect_selections;
-    Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-    Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);
-}
-
-# XXX: not done
-# This gets called also if we have no threads.
-sub on_progress_event {
-    my ($self, $percent, $message) = @_;
-    
-    $self->statusbar->SetProgress($percent);
-    # TODO: three dot character is not properly translated into C++
-    # $self->statusbar->SetStatusText("$message…");
-    $self->statusbar->SetStatusText("$message...");
-}
-
-# XXX: not done
-# Called when the G-code export finishes, either successfully or with an error.
-# This gets called also if we don't have threads.
-sub on_process_completed {
-    my ($self, $result) = @_;
-
-    # Stop the background task, wait until the thread goes into the "Idle" state.
-    # At this point of time the thread should be either finished or canceled,
-    # so the following call just confirms, that the produced data were consumed.
-    $self->{background_slicing_process}->stop;
-    $self->statusbar->ResetCancelCallback();
-    $self->statusbar->StopBusy;
-    $self->statusbar->SetStatusText("");
-    
-    my $message;
-    my $send_gcode = 0;
-    my $do_print = 0;
-#    print "Process completed, message: ", $message, "\n";
-    if (defined($result)) {
-        $message = L("Export failed");
-    } else {
-        # G-code file exported successfully.
-        if ($self->{print_file}) {
-            $message = L("File added to print queue");
-            $do_print = 1;
-        } elsif ($self->{send_gcode_file}) {
-            $message = L("Sending G-code file to the Printer Host ...");
-            $send_gcode = 1;
-        } elsif (defined $self->{export_gcode_output_file}) {
-            $message = L("G-code file exported to ") . $self->{export_gcode_output_file};
-        } else {
-            $message = L("Slicing complete");
-        }
-    }
-    $self->{export_gcode_output_file} = undef;
-    wxTheApp->notify($message);
-    
-    $self->do_print if $do_print;
-
-    # Send $self->{send_gcode_file} to OctoPrint.
-    if ($send_gcode) {
-        my $host = Slic3r::PrintHost::get_print_host($self->{config});
-        if ($host->send_gcode($self->{send_gcode_file})) {
-            $message = L("Upload to host finished.");
-        } else {
-            $message = "";
-        }
-    }
-
-    # As of now, the BackgroundProcessing thread posts status bar update messages to a queue on the MainFrame.pm,
-    # but the "Processing finished" message is posted to this window.
-    # Delay the following status bar update, so it will be called later than what is received by MainFrame.pm.
-    wxTheApp->CallAfter(sub {
-        $self->statusbar->SetStatusText($message);
-    });
-
-    $self->{print_file} = undef;
-    $self->{send_gcode_file} = undef;
-    $self->print_info_box_show(1);
-
-    # this updates buttons status
-    $self->object_list_changed;
-    
-    # refresh preview
-    $self->{preview_iface}->reload_print if $self->{preview_iface};
-#    $self->{preview3D}->reload_print if $self->{preview3D};
-}
-
-# XXX: partially done in the Sidebar
-# Fill in the "Sliced info" box with the result of the G-code generator.
-sub print_info_box_show {
-    my ($self, $show) = @_;
-#    my $scrolled_window_panel = $self->{scrolled_window_panel}; 
-#    my $scrolled_window_sizer = $self->{scrolled_window_sizer};
-#    return if (!$show && ($scrolled_window_sizer->IsShown(2) == $show));
-    my $panel = $self->{scrolled_window_panel};#$self->{right_panel};
-    my $sizer = $self->{info_sizer};
-#    return if (!$sizer || !$show && ($sizer->IsShown(1) == $show));
-    return if (!$sizer);
-
-    Slic3r::GUI::set_show_print_info($show);
-#    return if (wxTheApp->{app_config}->get("view_mode") eq "simple");
-
-#    if ($show) 
-    {
-        my $print_info_sizer = $self->{print_info_sizer};
-        $print_info_sizer->Clear(1);
-        my $grid_sizer = Wx::FlexGridSizer->new(2, 2, 5, 5);
-        $grid_sizer->SetFlexibleDirection(wxHORIZONTAL);
-        $grid_sizer->AddGrowableCol(1, 1);
-        $grid_sizer->AddGrowableCol(3, 1);
-        $print_info_sizer->Add($grid_sizer, 0, wxEXPAND);
-        my $is_wipe_tower = $self->{print}->total_wipe_tower_filament > 0;
-        my @info = (
-            L("Used Filament (m)")
-                =>  $is_wipe_tower ?
-                       sprintf("%.2f  (%.2f %s + %.2f %s)" , $self->{print}->total_used_filament / 1000,
-                                                            ($self->{print}->total_used_filament - $self->{print}->total_wipe_tower_filament) / 1000,
-                                                             L("objects"),
-							     $self->{print}->total_wipe_tower_filament / 1000,
-                                                             L("wipe tower")) :
-                       sprintf("%.2f" , $self->{print}->total_used_filament / 1000),
-
-            L("Used Filament (mm³)")
-                => sprintf("%.2f" , $self->{print}->total_extruded_volume),
-            L("Used Filament (g)"),
-                => sprintf("%.2f" , $self->{print}->total_weight),
-            L("Cost"),
-                => $is_wipe_tower ?
-                       sprintf("%.2f  (%.2f %s + %.2f %s)" , $self->{print}->total_cost,
-                                                            ($self->{print}->total_cost - $self->{print}->total_wipe_tower_cost),
-                                                             L("objects"),
-							     $self->{print}->total_wipe_tower_cost,
-                                                             L("wipe tower")) :
-                       sprintf("%.2f" , $self->{print}->total_cost),
-            L("Estimated printing time (normal mode)")
-                => $self->{print}->estimated_normal_print_time,
-            L("Estimated printing time (silent mode)")
-                => $self->{print}->estimated_silent_print_time
-        );
-        # if there is a wipe tower, insert number of toolchanges info into the array:
-        splice (@info, 8, 0, L("Number of tool changes") => sprintf("%.d", $self->{print}->wipe_tower_number_of_toolchanges))  if ($is_wipe_tower);
-
-        while ( my $label = shift @info) {
-            my $value = shift @info;
-            next if $value eq "N/A";
-#            my $text = Wx::StaticText->new($scrolled_window_panel, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
-            my $text = Wx::StaticText->new($panel, -1, "$label:", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
-            $text->SetFont($Slic3r::GUI::small_font);
-            $grid_sizer->Add($text, 0);            
-#            my $field = Wx::StaticText->new($scrolled_window_panel, -1, $value, wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-            my $field = Wx::StaticText->new($panel, -1, $value, wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
-            $field->SetFont($Slic3r::GUI::small_font);
-            $grid_sizer->Add($field, 0);
-        }
-    }
-
-#    $scrolled_window_sizer->Show(2, $show);
-#    $scrolled_window_panel->Layout;
-    $sizer->Show(1, $show && wxTheApp->{app_config}->get("view_mode") ne "simple");
-
-    $self->Layout;
-    $panel->Refresh;
-}
-
-# XXX: not done - to be removed
-sub do_print {
-    my ($self) = @_;
-    
-    my $controller = $self->GetFrame->{controller};
-    my $printer_preset = wxTheApp->{preset_bundle}->printer->get_edited_preset;    
-    my $printer_panel = $controller->add_printer($printer_preset->name, $printer_preset->config);
-    
-    my $filament_stats = $self->{print}->filament_stats;
-    my $filament_names = wxTheApp->{preset_bundle}->filament_presets;
-    $filament_stats = { map { $filament_names->[$_] => $filament_stats->{$_} } keys %$filament_stats };
-    $printer_panel->load_print_job($self->{print_file}, $filament_stats);
-}
-
-# XXX: VK: done
-sub export_stl {
-    my ($self) = @_;
-    return if !@{$self->{objects}};
-    # Ask user for a file name to write into.
-    my $output_file = $self->_get_export_file('STL') or return;
-    # Store a binary STL.
-    $self->{model}->store_stl($output_file, 1);
-    $self->statusbar->SetStatusText(L("STL file exported to ").$output_file);
-}
-
-# XXX: VK: done
-sub reload_from_disk {
-    my ($self) = @_;
-    
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-    
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    #FIXME convert to local file encoding
-    return if !$model_object->input_file
-        || !-e Slic3r::encode_path($model_object->input_file);
-    
-    my @new_obj_idx = $self->load_files([$model_object->input_file]);
-    return if !@new_obj_idx;
-    
-    foreach my $new_obj_idx (@new_obj_idx) {
-        my $o = $self->{model}->objects->[$new_obj_idx];
-        $o->clear_instances;
-        $o->add_instance($_) for @{$model_object->instances};
-        #$o->invalidate_bounding_box;
-        
-        if ($o->volumes_count == $model_object->volumes_count) {
-            for my $i (0..($o->volumes_count-1)) {
-                $o->get_volume($i)->config->apply($model_object->get_volume($i)->config);
-            }
-        }
-        #FIXME restore volumes and their configs, layer_height_ranges, layer_height_profile, layer_height_profile_valid,
-    }
-    
-    $self->remove($obj_idx);
-}
-
-# XXX: VK: integrated into Plater::export_stl()
-sub export_object_stl {
-    my ($self) = @_;
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    # Ask user for a file name to write into.        
-    my $output_file = $self->_get_export_file('STL') or return;
-    $model_object->mesh->write_binary($output_file);
-    $self->statusbar->SetStatusText(L("STL file exported to ").$output_file);
-}
-
-# XXX: not done
-sub fix_through_netfabb {
-    my ($self) = @_;
-    my ($obj_idx, $object) = $self->selected_object;
-    return if !defined $obj_idx;
-    my $model_object = $self->{model}->objects->[$obj_idx];
-    my $model_fixed = Slic3r::Model->new;
-    Slic3r::GUI::fix_model_by_win10_sdk_gui($model_object, $self->{print}, $model_fixed);
-
-    my @new_obj_idx = $self->load_model_objects(@{$model_fixed->objects});
-    return if !@new_obj_idx;
-    
-    foreach my $new_obj_idx (@new_obj_idx) {
-        my $o = $self->{model}->objects->[$new_obj_idx];
-        $o->clear_instances;
-        $o->add_instance($_) for @{$model_object->instances};
-        #$o->invalidate_bounding_box;
-        
-        if ($o->volumes_count == $model_object->volumes_count) {
-            for my $i (0..($o->volumes_count-1)) {
-                $o->get_volume($i)->config->apply($model_object->get_volume($i)->config);
-            }
-        }
-        #FIXME restore volumes and their configs, layer_height_ranges, layer_height_profile, layer_height_profile_valid,
-    }
-    
-    $self->remove($obj_idx);
-}
-
-# XXX: VK: done
-sub export_amf {
-    my ($self) = @_;
-    return if !@{$self->{objects}};
-    # Ask user for a file name to write into.
-    my $output_file = $self->_get_export_file('AMF') or return;
-    my $res = $self->{model}->store_amf($output_file, $self->{print}, $self->{export_option});
-    if ($res)
-    {
-        $self->statusbar->SetStatusText(L("AMF file exported to ").$output_file);
-    }
-    else
-    {
-        $self->statusbar->SetStatusText(L("Error exporting AMF file ").$output_file);
-    }
-}
-
-# XXX: VK: done
-sub export_3mf {
-    my ($self) = @_;
-    return if !@{$self->{objects}};
-    # Ask user for a file name to write into.
-    my $output_file = $self->_get_export_file('3MF') or return;
-    my $res = $self->{model}->store_3mf($output_file, $self->{print}, $self->{export_option});
-    if ($res)
-    {
-        $self->statusbar->SetStatusText(L("3MF file exported to ").$output_file);
-    }
-    else
-    {
-        $self->statusbar->SetStatusText(L("Error exporting 3MF file ").$output_file);
-    }
-}
-
-# XXX: VK: done
-# Ask user to select an output file for a given file format (STl, AMF, 3MF).
-# Propose a default file name based on the 'output_filename_format' configuration value.
-sub _get_export_file {
-    my ($self, $format) = @_;    
-    my $suffix = '';
-    my $wildcard = 'known';
-    if ($format eq 'STL')
-    {
-        $suffix = '.stl';
-        $wildcard = 'stl';
-    }
-    elsif ($format eq 'AMF')
-    {
-        if (&Wx::wxMAC) {
-            # It seems that MacOS does not like double extension
-            $suffix = '.amf';
-        } else {
-            $suffix = '.zip.amf';
-        }
-        $wildcard = 'amf';
-    }
-    elsif ($format eq '3MF')
-    {
-        $suffix = '.3mf';
-        $wildcard = 'threemf';
-    }
-    # Copy the names of active presets into the placeholder parser.
-    wxTheApp->{preset_bundle}->export_selections_pp($self->{print}->placeholder_parser);
-    my $output_file = eval { $self->{print}->output_filepath($main::opt{output} // '') };
-    Slic3r::GUI::catch_error($self) and return undef;
-    $output_file =~ s/\.[gG][cC][oO][dD][eE]$/$suffix/;
-    my $dlg = Wx::FileDialog->new($self, L("Save ").$format.L(" file as:"), dirname($output_file),
-        basename($output_file), &Slic3r::GUI::FILE_WILDCARDS->{$wildcard}, wxFD_SAVE | wxFD_OVERWRITE_PROMPT);
-    Slic3r::GUI::add_export_option($dlg, $format);
-    if ($dlg->ShowModal != wxID_OK) {
-        $dlg->Destroy;
-        return undef;
-    }
-    $output_file = $dlg->GetPath;
-    $self->{export_option} = Slic3r::GUI::get_export_option($dlg);
-    $dlg->Destroy;
-    return $output_file;
-}
-
-#sub reset_thumbnail {
-#    my ($self, $obj_idx) = @_;
-#    $self->{objects}[$obj_idx]->thumbnail(undef);
-#}
-
-# XXX: VK: done
-# this method gets called whenever print center is changed or the objects' bounding box changes
-# (i.e. when an object is added/removed/moved/rotated/scaled)
-sub update {
-    my ($self, $force_autocenter) = @_;
-    $self->Freeze;
-    if (wxTheApp->{app_config}->get("autocenter") || $force_autocenter) {
-        $self->{model}->center_instances_around_point($self->bed_centerf);
-    }
-    $self->stop_background_process;
-    $self->{print}->reload_model_instances();
-    $self->{canvas}->reload_scene if $self->{canvas};
-#    $self->{canvas}->reload_scene if $self->{canvas};
-    my $selections = $self->collect_selections;
-    Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-    Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 0);
-    $self->{preview_iface}->reset_gcode_preview_data if $self->{preview_iface};
-    $self->{preview_iface}->reload_print if $self->{preview_iface};
-#    $self->{preview3D}->reset_gcode_preview_data if $self->{preview3D};
-#    $self->{preview3D}->reload_print if $self->{preview3D};
-    $self->schedule_background_process;
-    $self->Thaw;
-}
-
-# XXX: YS: done
-# When a printer technology is changed, the UI needs to be updated to show/hide needed preset combo boxes.
-sub show_preset_comboboxes{
-    my ($self, $showSLA) = @_; #if showSLA is oposite value to "ptFFF"
-
-    my $choices = $self->{preset_choosers}{filament};    
-    my $print_filament_ctrls_cnt = 2 + 2 * ($#$choices+1);
-
-    foreach (0..$print_filament_ctrls_cnt-1){
-        $self->{presets_sizer}->Show($_, !$showSLA);
-    }
-    $self->{presets_sizer}->Show($print_filament_ctrls_cnt  , $showSLA);
-    $self->{presets_sizer}->Show($print_filament_ctrls_cnt+1, $showSLA);
-
-    $self->{frequently_changed_parameters_sizer}->Show(0,!$showSLA);
-
-    $self->Layout;
-}
-
-# XXX: YS: done
-# When a number of extruders changes, the UI needs to be updated to show a single filament selection combo box per extruder.
-# Also the wxTheApp->{preset_bundle}->filament_presets needs to be resized accordingly
-# and some reasonable default has to be selected for the additional extruders.
-sub on_extruders_change {
-    my ($self, $num_extruders) = @_;
-    my $choices = $self->{preset_choosers}{filament};
-
-    while (int(@$choices) < $num_extruders) {
-        # copy strings from first choice
-        my @presets = $choices->[0]->GetStrings;
-        
-        # initialize new choice
-#        my $choice = Wx::BitmapComboBox->new($self->{right_panel}, -1, "", wxDefaultPosition, wxDefaultSize, [@presets], wxCB_READONLY);
-        my $choice = Wx::BitmapComboBox->new($self->{scrolled_window_panel}, -1, "", wxDefaultPosition, wxDefaultSize, [@presets], wxCB_READONLY);
-        my $extruder_idx = scalar @$choices;
-        EVT_LEFT_DOWN($choice, sub { $self->filament_color_box_lmouse_down($extruder_idx, @_); } );
-        push @$choices, $choice;
-        # copy icons from first choice
-        $choice->SetItemBitmap($_, $choices->[0]->GetItemBitmap($_)) for 0..$#presets;
-        # insert new choice into sizer
-        $self->{presets_sizer}->Insert(4 + ($#$choices-1)*2, 0, 0);
-        $self->{presets_sizer}->Insert(5 + ($#$choices-1)*2, $choice, 0, wxEXPAND | wxBOTTOM, 0);
-        # setup the listener
-        EVT_COMBOBOX($choice, $choice, sub {
-            my ($choice) = @_;
-            wxTheApp->CallAfter(sub {
-                $self->_on_select_preset('filament', $choice, $extruder_idx);
-            });
-        });
-        # initialize selection
-        wxTheApp->{preset_bundle}->update_platter_filament_ui($extruder_idx, $choice);
-    }
-    
-    # remove unused choices if any
-    while (@$choices > $num_extruders) {
-        $self->{presets_sizer}->Remove(4 + ($#$choices-1)*2);  # label
-        $self->{presets_sizer}->Remove(4 + ($#$choices-1)*2);  # wxChoice
-        $choices->[-1]->Destroy;
-        pop @$choices;
-    }
-    $self->{right_panel}->Layout;
-    $self->Layout;
-}
-
-# XXX: not done
-sub on_config_change {
-    my ($self, $config) = @_;
-    
-    my $update_scheduled;
-    foreach my $opt_key (@{$self->{config}->diff($config)}) {
-        $self->{config}->set($opt_key, $config->get($opt_key));
-        if ($opt_key eq 'bed_shape') {
-#            $self->{canvas}->update_bed_size;
-            Slic3r::GUI::_3DScene::set_bed_shape($self->{canvas3D}, $self->{config}->bed_shape) if $self->{canvas3D};
-            $self->{preview_iface}->set_bed_shape($self->{config}->bed_shape) if ($self->{preview_iface});
-#            Slic3r::GUI::_3DScene::set_bed_shape($self->{preview3D}->canvas, $self->{config}->bed_shape) if $self->{preview3D};
-            $update_scheduled = 1;
-        } elsif ($opt_key =~ '^wipe_tower' || $opt_key eq 'single_extruder_multi_material') {
-            $update_scheduled = 1;
-        } elsif ($opt_key eq 'serial_port') {
-            $self->{btn_print}->Show($config->get('serial_port'));
-            $self->Layout;
-        } elsif ($opt_key eq 'print_host') {
-            $self->{btn_send_gcode}->Show($config->get('print_host'));
-            $self->Layout;
-        } elsif ($opt_key eq 'variable_layer_height') {
-            if ($config->get('variable_layer_height') != 1) {
-#                if ($self->{htoolbar}) {
-#                    $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 0);
-#                    $self->{htoolbar}->ToggleTool(TB_LAYER_EDITING, 0);
-#                } else {
-#                    $self->{"btn_layer_editing"}->Disable;
-#                    $self->{"btn_layer_editing"}->SetValue(0);
-#                }
-                Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "layersediting", 0);
-                Slic3r::GUI::_3DScene::enable_layers_editing($self->{canvas3D}, 0);
-                $self->{canvas3D}->Refresh;
-                $self->{canvas3D}->Update;
-            } elsif (Slic3r::GUI::_3DScene::is_layers_editing_allowed($self->{canvas3D})) {
-                # Want to allow the layer editing, but do it only if the OpenGL supports it.
-#                if ($self->{htoolbar}) {
-#                    $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, 1);
-#                } else {
-#                    $self->{"btn_layer_editing"}->Enable;
-#                }
-                Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "layersediting", 1);
-            }
-        } elsif ($opt_key eq 'extruder_colour') {
-            $update_scheduled = 1;
-            my $extruder_colors = $config->get('extruder_colour');
-            $self->{preview_iface}->set_number_extruders(scalar(@{$extruder_colors}));
-#            $self->{preview3D}->set_number_extruders(scalar(@{$extruder_colors}));
-        } elsif ($opt_key eq 'max_print_height') {
-            $update_scheduled = 1;
-        } elsif ($opt_key eq 'printer_model') {
-            # update to force bed selection (for texturing)
-            Slic3r::GUI::_3DScene::set_bed_shape($self->{canvas3D}, $self->{config}->bed_shape) if $self->{canvas3D};
-            $self->{preview_iface}->set_bed_shape($self->{config}->bed_shape) if ($self->{preview_iface});
-#            Slic3r::GUI::_3DScene::set_bed_shape($self->{preview3D}->canvas, $self->{config}->bed_shape) if $self->{preview3D};
-            $update_scheduled = 1;
-        }
-    }
-
-    $self->update if $update_scheduled;
-    
-    return if !$self->GetFrame->is_loaded;
-    
-    # (re)start timer
-    $self->schedule_background_process;
-}
-
-# XXX: YS: WIP
-sub item_changed_selection {
-    my ($self, $obj_idx) = @_;
-
-    if (($obj_idx >= 0) && ($obj_idx < 1000)) { # skip if wipe tower selected
-        if ($self->{canvas3D}) {
-            Slic3r::GUI::_3DScene::deselect_volumes($self->{canvas3D});
-            if ($obj_idx >= 0) {
-                my $selections = $self->collect_selections;
-                Slic3r::GUI::_3DScene::update_volumes_selection($self->{canvas3D}, \@$selections);
-            }
-#            Slic3r::GUI::_3DScene::render($self->{canvas3D});
-        }
-    }
-}
-
-# XXX: VK: done
-sub collect_selections {
-    my ($self) = @_;
-    my $selections = [];
-    foreach my $o (@{$self->{objects}}) {
-        push(@$selections, $o->selected);
-    }            
-    return $selections;
-}
-
-# XXX: YS: done, lambda on LEFT_DOWN
-# Called when clicked on the filament preset combo box.
-# When clicked on the icon, show the color picker.
-sub filament_color_box_lmouse_down
-{
-    my ($self, $extruder_idx, $combobox, $event) = @_;
-    my $pos = $event->GetLogicalPosition(Wx::ClientDC->new($combobox));
-    my( $x, $y ) = ( $pos->x, $pos->y );
-    if ($x > 24) {
-        # Let the combo box process the mouse click.
-        $event->Skip;
-    } else {
-        # Swallow the mouse click and open the color picker.
-        my $data = Wx::ColourData->new;
-        $data->SetChooseFull(1);
-        my $dialog = Wx::ColourDialog->new($self->GetFrame, $data);
-        if ($dialog->ShowModal == wxID_OK) {
-            my $cfg = Slic3r::Config->new;
-            my $colors = wxTheApp->{preset_bundle}->full_config->get('extruder_colour');
-            $colors->[$extruder_idx] = $dialog->GetColourData->GetColour->GetAsString(wxC2S_HTML_SYNTAX);
-            $cfg->set('extruder_colour', $colors);
-            $self->GetFrame->{options_tabs}{printer}->load_config($cfg);
-            wxTheApp->{preset_bundle}->update_platter_filament_ui($extruder_idx, $combobox);
-        }
-        $dialog->Destroy();
-    }
-}
-
-#sub object_cut_dialog {
-#    my ($self, $obj_idx) = @_;
-#    
-#    if (!defined $obj_idx) {
-#        ($obj_idx, undef) = $self->selected_object;
-#    }
-#    
-#    if (!$Slic3r::GUI::have_OpenGL) {
-#        Slic3r::GUI::show_error($self, L("Please install the OpenGL modules to use this feature (see build instructions)."));
-#        return;
-#    }
-#    
-#    my $dlg = Slic3r::GUI::Plater::ObjectCutDialog->new($self,
-#		object              => $self->{objects}[$obj_idx],
-#		model_object        => $self->{model}->objects->[$obj_idx],
-#	);
-#	return unless $dlg->ShowModal == wxID_OK;
-#	
-#	if (my @new_objects = $dlg->NewModelObjects) {
-#	    $self->remove($obj_idx);
-#	    $self->load_model_objects(grep defined($_), @new_objects);
-#	    $self->arrange;
-#        Slic3r::GUI::_3DScene::zoom_to_volumes($self->{canvas3D}) if $self->{canvas3D};
-#	}
-#}
-
-# XXX: YS: done
-sub changed_object_settings {
-    my ($self, $obj_idx, $parts_changed, $part_settings_changed) = @_;
-    
-    # update thumbnail since parts may have changed
-    if ($parts_changed) {
-        # recenter and re-align to Z = 0
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        $model_object->center_around_origin;
-#        $self->reset_thumbnail($obj_idx);
-    }
-    
-    # update print
-    if ($parts_changed || $part_settings_changed) {
-        $self->stop_background_process;
-        $self->{print}->reload_object($obj_idx);
-        $self->schedule_background_process;
-        $self->{canvas}->reload_scene if $self->{canvas};
-        my $selections = $self->collect_selections;
-        Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-        Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 0);
-    } else {
-        $self->schedule_background_process;
-    }
-}
-
-# XXX: VK: done
-# Called to update various buttons depending on whether there are any objects or
-# whether background processing (export of a G-code, sending to Octoprint, forced background re-slicing) is active.
-sub object_list_changed {
-    my $self = shift;
-        
-    # Enable/disable buttons depending on whether there are any objects on the platter.
-    my $have_objects = @{$self->{objects}} ? 1 : 0;
-#    if ($self->{htoolbar}) {
-#        # On OSX or Linux
-#        $self->{htoolbar}->EnableTool($_, $have_objects)
-#            for (TB_RESET, TB_ARRANGE);
-#    } else {
-#        # On MSW
-#        my $method = $have_objects ? 'Enable' : 'Disable';
-#        $self->{"btn_$_"}->$method
-#            for grep $self->{"btn_$_"}, qw(reset arrange reslice export_gcode export_stl print send_gcode);
-#    }
-
-    for my $toolbar_item (qw(deleteall arrange)) {
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, $toolbar_item, $have_objects);
-    }
-    
-    my $export_in_progress = $self->{export_gcode_output_file} || $self->{send_gcode_file};
-    my $model_fits = $self->{canvas3D} ? Slic3r::GUI::_3DScene::check_volumes_outside_state($self->{canvas3D}, $self->{config}) : 1;
-    # $model_fits == 1 -> ModelInstance::PVS_Partly_Outside
-    my $method = ($have_objects && ! $export_in_progress && ($model_fits != 1)) ? 'Enable' : 'Disable';
-    $self->{"btn_$_"}->$method
-        for grep $self->{"btn_$_"}, qw(reslice export_gcode print send_gcode);
-}
-
-# XXX: VK: WIP
-# Selection of an active 3D object changed.
-sub selection_changed {
-    my ($self) = @_;
-    my ($obj_idx, $object) = $self->selected_object;
-    my $have_sel = defined $obj_idx;
-    my $layers_height_allowed = $self->{config}->variable_layer_height && Slic3r::GUI::_3DScene::is_layers_editing_allowed($self->{canvas3D}) && $have_sel;
-
-    $self->{right_panel}->Freeze;
-#    if ($self->{htoolbar}) {
-#        # On OSX or Linux
-#        $self->{htoolbar}->EnableTool($_, $have_sel)
-#            for (TB_REMOVE, TB_MORE, TB_45CW, TB_45CCW, TB_SCALE, TB_SPLIT, TB_CUT, TB_SETTINGS);
-#
-#        $self->{htoolbar}->EnableTool(TB_LAYER_EDITING, $layers_height_allowed);
-#
-#        if ($have_sel) {
-#            my $model_object = $self->{model}->objects->[$obj_idx];
-#            $self->{htoolbar}->EnableTool(TB_FEWER, $model_object->instances_count > 1);
-#        } else {
-#            $self->{htoolbar}->EnableTool(TB_FEWER, 0);
-#        }
-#            
-#    } else {
-#        # On MSW
-#        my $method = $have_sel ? 'Enable' : 'Disable';
-#        $self->{"btn_$_"}->$method
-#            for grep $self->{"btn_$_"}, qw(remove increase rotate45cw rotate45ccw changescale split cut settings);
-#
-#        if ($layers_height_allowed) {
-#            $self->{"btn_layer_editing"}->Enable;
-#        } else {
-#            $self->{"btn_layer_editing"}->Disable;
-#        }
-#
-#        if ($have_sel) {
-#            my $model_object = $self->{model}->objects->[$obj_idx];
-#            if ($model_object->instances_count > 1) {
-#                $self->{"btn_decrease"}->Enable;
-#            } else {
-#                $self->{"btn_decrease"}->Disable;
-#            }            
-#        } else {
-#            $self->{"btn_decrease"}->Disable;
-#        }
-#    }
-
-    for my $toolbar_item (qw(delete more fewer split cut settings)) {
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, $toolbar_item, $have_sel);
-    }
-    
-    Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "layersediting", $layers_height_allowed);
-
-    my $can_select_by_parts = 0;
-    
-    if ($have_sel) {
-        my $model_object = $self->{model}->objects->[$obj_idx];
-        $can_select_by_parts = ($obj_idx >= 0) && ($obj_idx < 1000) && ($model_object->volumes_count > 1);
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "fewer", $model_object->instances_count > 1);
-    }
-    
-    if ($can_select_by_parts) {
-        # first disable to let the item in the toolbar to switch to the unpressed state
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "selectbyparts", 0);
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "selectbyparts", 1);
-    } else {
-        Slic3r::GUI::_3DScene::enable_toolbar_item($self->{canvas3D}, "selectbyparts", 0);
-        Slic3r::GUI::_3DScene::set_select_by($self->{canvas3D}, 'object');
-    }
-        
-    if ($self->{object_info_size}) { # have we already loaded the info pane?
-        if ($have_sel) {
-            my $model_object = $self->{model}->objects->[$obj_idx];
-            #FIXME print_info runs model fixing in two rounds, it is very slow, it should not be performed here!
-            # $model_object->print_info;
-            my $model_instance = $model_object->instances->[0];
-            $self->{object_info_size}->SetLabel(sprintf("%.2f x %.2f x %.2f", @{$model_object->instance_bounding_box(0)->size}));
-            $self->{object_info_materials}->SetLabel($model_object->materials_count);
-            
-            if (my $stats = $model_object->mesh_stats) {
-                $self->{object_info_volume}->SetLabel(sprintf('%.2f', $stats->{volume} * ($model_instance->scaling_factor**3)));
-                $self->{object_info_facets}->SetLabel(sprintf(L('%d (%d shells)'), $model_object->facets_count, $stats->{number_of_parts}));
-                if (my $errors = sum(@$stats{qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges)})) {
-                    $self->{object_info_manifold}->SetLabel(sprintf(L("Auto-repaired (%d errors)"), $errors));
-                    #$self->{object_info_manifold_warning_icon}->Show;
-                    $self->{"object_info_manifold_warning_icon_show"}->(1);
-                    
-                    # we don't show normals_fixed because we never provide normals
-	                # to admesh, so it generates normals for all facets
-                    my $message = sprintf L('%d degenerate facets, %d edges fixed, %d facets removed, %d facets added, %d facets reversed, %d backwards edges'),
-                        @$stats{qw(degenerate_facets edges_fixed facets_removed facets_added facets_reversed backwards_edges)};
-                    $self->{object_info_manifold}->SetToolTipString($message);
-                    $self->{object_info_manifold_warning_icon}->SetToolTipString($message);
-                } else {
-                    $self->{object_info_manifold}->SetLabel(L("Yes"));
-                    #$self->{object_info_manifold_warning_icon}->Hide;
-                    $self->{"object_info_manifold_warning_icon_show"}->(0);
-                    $self->{object_info_manifold}->SetToolTipString("");
-                    $self->{object_info_manifold_warning_icon}->SetToolTipString("");
-                }
-            } else {
-                $self->{object_info_facets}->SetLabel($object->facets);
-            }
-        } else {
-            $self->{"object_info_$_"}->SetLabel("") for qw(size volume facets materials manifold);
-            #$self->{object_info_manifold_warning_icon}->Hide;
-            $self->{"object_info_manifold_warning_icon_show"}->(0);
-            $self->{object_info_manifold}->SetToolTipString("");
-            $self->{object_info_manifold_warning_icon}->SetToolTipString("");
-        }
-        $self->Layout;
-    }
-    
-    # prepagate the event to the frame (a custom Wx event would be cleaner)
-    $self->GetFrame->on_plater_selection_changed($have_sel);
-    $self->{right_panel}->Thaw;
-}
-
-# XXX: VK: done
-sub select_object {
-    my ($self, $obj_idx, $child) = @_;
-
-    # remove current selection
-    foreach my $o (0..$#{$self->{objects}}) {
-        $self->{objects}->[$o]->selected(0);
-    }
-
-    if (defined $obj_idx) {
-        $self->{objects}->[$obj_idx]->selected(1);
-        # Select current object in the list on c++ side, if item isn't child
-#        if (!defined $child){
-#            Slic3r::GUI::select_current_object($obj_idx);} # all selections in the object list is on c++ side
-    } else {
-        # Unselect all objects in the list on c++ side
-#        Slic3r::GUI::unselect_objects(); # all selections in the object list is on c++ side
-    }
-    $self->selection_changed(1);
-}
-
-# XXX: YS: WIP
-sub select_object_from_cpp {
-    my ($self, $obj_idx, $vol_idx) = @_;
-    
-    # remove current selection
-    foreach my $o (0..$#{$self->{objects}}) {
-        $self->{objects}->[$o]->selected(0);
-    }    
-
-    my $curr = Slic3r::GUI::_3DScene::get_select_by($self->{canvas3D});
-
-    if (defined $obj_idx) {
-        if ($vol_idx == -1){
-            if ($curr eq 'object') {
-                $self->{objects}->[$obj_idx]->selected(1);
-            }
-            elsif ($curr eq 'volume') {
-                Slic3r::GUI::_3DScene::set_select_by($self->{canvas3D}, 'object');
-            }
-
-            my $selections = $self->collect_selections;
-            Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-            Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);
-        }
-        else {
-            if ($curr eq 'object') {
-                Slic3r::GUI::_3DScene::set_select_by($self->{canvas3D}, 'volume');
-            }
-
-            my $selections = [];
-            Slic3r::GUI::_3DScene::set_objects_selections($self->{canvas3D}, \@$selections);
-            Slic3r::GUI::_3DScene::deselect_volumes($self->{canvas3D});
-            Slic3r::GUI::_3DScene::reload_scene($self->{canvas3D}, 1);
-            my $volume_idx = Slic3r::GUI::_3DScene::get_first_volume_id($self->{canvas3D}, $obj_idx);
-
-            my $inst_cnt = $self->{model}->objects->[$obj_idx]->instances_count;
-            for (0..$inst_cnt-1){
-                Slic3r::GUI::_3DScene::select_volume($self->{canvas3D}, $vol_idx*$inst_cnt + $_ + $volume_idx) if ($volume_idx != -1);
-            }
-        }
-    }
-
-    $self->selection_changed(1);
-}
-
-# XXX: VK: done
-sub selected_object {
-    my ($self) = @_;
-    my $obj_idx = first { $self->{objects}[$_]->selected } 0..$#{ $self->{objects} };
-    return defined $obj_idx ? ($obj_idx, $self->{objects}[$obj_idx]) : undef;
-}
-
-# XXX: VK: done
-sub statusbar {
-    return $_[0]->GetFrame->{statusbar};
-}
-
-# XXX: not done, to be removed (?)
-sub object_menu {
-    my ($self) = @_;
-    
-    my $frame = $self->GetFrame;
-    my $menu = Wx::Menu->new;
-    my $accel = ($^O eq 'MSWin32') ? sub { $_[0] . "\t\xA0" . $_[1] } : sub { $_[0] };
-    $frame->_append_menu_item($menu, $accel->(L('Delete'), 'Del'), L('Remove the selected object'), sub {
-        $self->remove;
-    }, undef, 'brick_delete.png');
-    $frame->_append_menu_item($menu, $accel->(L('Increase copies'), '+'), L('Place one more copy of the selected object'), sub {
-        $self->increase;
-    }, undef, 'add.png');
-    $frame->_append_menu_item($menu, $accel->(L('Decrease copies'), '-'), L('Remove one copy of the selected object'), sub {
-        $self->decrease;
-    }, undef, 'delete.png');
-    $frame->_append_menu_item($menu, L("Set number of copies…"), L('Change the number of copies of the selected object'), sub {
-        $self->set_number_of_copies;
-    }, undef, 'textfield.png');
-    $menu->AppendSeparator();
-    $frame->_append_menu_item($menu, $accel->(L('Rotate 45° clockwise'), 'l'), L('Rotate the selected object by 45° clockwise'), sub {
-        $self->rotate(-45, Z, 'relative');
-    }, undef, 'arrow_rotate_clockwise.png');
-    $frame->_append_menu_item($menu, $accel->(L('Rotate 45° counter-clockwise'), 'r'), L('Rotate the selected object by 45° counter-clockwise'), sub {
-        $self->rotate(+45, Z, 'relative');
-    }, undef, 'arrow_rotate_anticlockwise.png');
-    
-    my $rotateMenu = Wx::Menu->new;
-    my $rotateMenuItem = $menu->AppendSubMenu($rotateMenu, L("Rotate"), L('Rotate the selected object by an arbitrary angle'));
-    $frame->_set_menu_item_icon($rotateMenuItem, 'textfield.png');
-    $frame->_append_menu_item($rotateMenu, L("Around X axis…"), L('Rotate the selected object by an arbitrary angle around X axis'), sub {
-        $self->rotate(undef, X);
-    }, undef, 'bullet_red.png');
-    $frame->_append_menu_item($rotateMenu, L("Around Y axis…"), L('Rotate the selected object by an arbitrary angle around Y axis'), sub {
-        $self->rotate(undef, Y);
-    }, undef, 'bullet_green.png');
-    $frame->_append_menu_item($rotateMenu, L("Around Z axis…"), L('Rotate the selected object by an arbitrary angle around Z axis'), sub {
-        $self->rotate(undef, Z);
-    }, undef, 'bullet_blue.png');
-    
-    my $mirrorMenu = Wx::Menu->new;
-    my $mirrorMenuItem = $menu->AppendSubMenu($mirrorMenu, L("Mirror"), L('Mirror the selected object'));
-    $frame->_set_menu_item_icon($mirrorMenuItem, 'shape_flip_horizontal.png');
-    $frame->_append_menu_item($mirrorMenu, L("Along X axis…"), L('Mirror the selected object along the X axis'), sub {
-        $self->mirror(X);
-    }, undef, 'bullet_red.png');
-    $frame->_append_menu_item($mirrorMenu, L("Along Y axis…"), L('Mirror the selected object along the Y axis'), sub {
-        $self->mirror(Y);
-    }, undef, 'bullet_green.png');
-    $frame->_append_menu_item($mirrorMenu, L("Along Z axis…"), L('Mirror the selected object along the Z axis'), sub {
-        $self->mirror(Z);
-    }, undef, 'bullet_blue.png');
-    
-    my $scaleMenu = Wx::Menu->new;
-    my $scaleMenuItem = $menu->AppendSubMenu($scaleMenu, L("Scale"), L('Scale the selected object along a single axis'));
-    $frame->_set_menu_item_icon($scaleMenuItem, 'arrow_out.png');
-    $frame->_append_menu_item($scaleMenu, $accel->(L('Uniformly…'), 's'), L('Scale the selected object along the XYZ axes'), sub {
-        $self->changescale(undef);
-    });
-    $frame->_append_menu_item($scaleMenu, L("Along X axis…"), L('Scale the selected object along the X axis'), sub {
-        $self->changescale(X);
-    }, undef, 'bullet_red.png');
-    $frame->_append_menu_item($scaleMenu, L("Along Y axis…"), L('Scale the selected object along the Y axis'), sub {
-        $self->changescale(Y);
-    }, undef, 'bullet_green.png');
-    $frame->_append_menu_item($scaleMenu, L("Along Z axis…"), L('Scale the selected object along the Z axis'), sub {
-        $self->changescale(Z);
-    }, undef, 'bullet_blue.png');
-    
-    my $scaleToSizeMenu = Wx::Menu->new;
-    my $scaleToSizeMenuItem = $menu->AppendSubMenu($scaleToSizeMenu, L("Scale to size"), L('Scale the selected object along a single axis'));
-    $frame->_set_menu_item_icon($scaleToSizeMenuItem, 'arrow_out.png');
-    $frame->_append_menu_item($scaleToSizeMenu, L("Uniformly…"), L('Scale the selected object along the XYZ axes'), sub {
-        $self->changescale(undef, 1);
-    });
-    $frame->_append_menu_item($scaleToSizeMenu, L("Along X axis…"), L('Scale the selected object along the X axis'), sub {
-        $self->changescale(X, 1);
-    }, undef, 'bullet_red.png');
-    $frame->_append_menu_item($scaleToSizeMenu, L("Along Y axis…"), L('Scale the selected object along the Y axis'), sub {
-        $self->changescale(Y, 1);
-    }, undef, 'bullet_green.png');
-    $frame->_append_menu_item($scaleToSizeMenu, L("Along Z axis…"), L('Scale the selected object along the Z axis'), sub {
-        $self->changescale(Z, 1);
-    }, undef, 'bullet_blue.png');
-    
-    $frame->_append_menu_item($menu, L("Split"), L('Split the selected object into individual parts'), sub {
-        $self->split_object;
-    }, undef, 'shape_ungroup.png');
-    $frame->_append_menu_item($menu, L("Cut…"), L('Open the 3D cutting tool'), sub {
-        $self->object_cut_dialog;
-    }, undef, 'package.png');
-    $menu->AppendSeparator();
-    $frame->_append_menu_item($menu, L("Settings…"), L('Open the object editor dialog'), sub {
-        $self->object_settings_dialog;
-    }, undef, 'cog.png');
-    $menu->AppendSeparator();
-    $frame->_append_menu_item($menu, L("Reload from Disk"), L('Reload the selected file from Disk'), sub {
-        $self->reload_from_disk;
-    }, undef, 'arrow_refresh.png');
-    $frame->_append_menu_item($menu, L("Export object as STL…"), L('Export this single object as STL file'), sub {
-        $self->export_object_stl;
-    }, undef, 'brick_go.png');
-    if (Slic3r::GUI::is_windows10) {
-        $frame->_append_menu_item($menu, L("Fix STL through Netfabb"), L('Fix the model by sending it to a Netfabb cloud service through Windows 10 API'), sub {
-            $self->fix_through_netfabb;
-        }, undef, 'brick_go.png');
-    }
-    
-    return $menu;
-}
-
-# XXX: not done
-# Set a camera direction, zoom to all objects.
-sub select_view {
-    my ($self, $direction) = @_;
-    my $idx_page = $self->{preview_notebook}->GetSelection;
-    my $page = ($idx_page == &Wx::wxNOT_FOUND) ? L('3D') : $self->{preview_notebook}->GetPageText($idx_page);
-    if ($page eq L('Preview')) {
-        $self->{preview_iface}->select_view($direction);
-        $self->{preview_iface}->set_viewport_into_scene($self->{canvas3D});
-#        Slic3r::GUI::_3DScene::select_view($self->{preview3D}->canvas, $direction);
-#        Slic3r::GUI::_3DScene::set_viewport_from_scene($self->{canvas3D}, $self->{preview3D}->canvas);
-    } else {
-        Slic3r::GUI::_3DScene::select_view($self->{canvas3D}, $direction);
-        $self->{preview_iface}->set_viewport_from_scene($self->{canvas3D});
-#        Slic3r::GUI::_3DScene::set_viewport_from_scene($self->{preview3D}->canvas, $self->{canvas3D});
-    }
-}
-
-
-# XXX: VK: done, in PlaterDropTarget
-package Slic3r::GUI::Plater::DropTarget;
-use Wx::DND;
-use base 'Wx::FileDropTarget';
-
-sub new {
-    my ($class, $window) = @_;
-    my $self = $class->SUPER::new;
-    $self->{window} = $window;
-    return $self;
-}
-
-sub OnDropFiles {
-    my ($self, $x, $y, $filenames) = @_;    
-    # stop scalars leaking on older perl
-    # https://rt.perl.org/rt3/Public/Bug/Display.html?id=70602
-    @_ = ();
-    # only accept STL, OBJ, AMF, 3MF and PRUSA files
-    return 0 if grep !/\.(?:[sS][tT][lL]|[oO][bB][jJ]|[aA][mM][fF]|[3][mM][fF]|[aA][mM][fF].[xX][mM][lL]|[zZ][iI][pP].[aA][mM][lL]|[pP][rR][uU][sS][aA])$/, @$filenames;
-    $self->{window}->load_files($filenames);
-}
-
-# 2D preview of an object. Each object is previewed by its convex hull.
-package Slic3r::GUI::Plater::Object;
-use Moo;
-
-has 'name'                  => (is => 'rw', required => 1);
-has 'selected'              => (is => 'rw', default => sub { 0 });
-
-1;
diff --git a/lib/Slic3r/GUI/Plater/3D.pm b/lib/Slic3r/GUI/Plater/3D.pm
deleted file mode 100644
index 0b770b31c..000000000
--- a/lib/Slic3r/GUI/Plater/3D.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-package Slic3r::GUI::Plater::3D;
-use strict;
-use warnings;
-use utf8;
-
-use List::Util qw();
-use Wx qw(:misc :pen :brush :sizer :font :cursor :keycode wxTAB_TRAVERSAL);
-use base qw(Slic3r::GUI::3DScene Class::Accessor);
-
-sub new {
-    my $class = shift;
-    my ($parent, $objects, $model, $print, $config) = @_;
-    
-    my $self = $class->SUPER::new($parent);
-    Slic3r::GUI::_3DScene::enable_picking($self, 1);
-    Slic3r::GUI::_3DScene::enable_moving($self, 1);
-    Slic3r::GUI::_3DScene::set_select_by($self, 'object');
-    Slic3r::GUI::_3DScene::set_drag_by($self, 'instance');
-    Slic3r::GUI::_3DScene::set_model($self, $model);
-    Slic3r::GUI::_3DScene::set_print($self, $print);
-    Slic3r::GUI::_3DScene::set_config($self, $config);
-    
-    return $self;
-}
-
-1;
diff --git a/lib/Slic3r/GUI/Plater/3DPreview.pm b/lib/Slic3r/GUI/Plater/3DPreview.pm
deleted file mode 100644
index 06d1a798b..000000000
--- a/lib/Slic3r/GUI/Plater/3DPreview.pm
+++ /dev/null
@@ -1,555 +0,0 @@
-package Slic3r::GUI::Plater::3DPreview;
-use strict;
-use warnings;
-use utf8;
-
-use Slic3r::Print::State ':steps';
-use Wx qw(:misc :sizer :slider :statictext :keycode wxWHITE wxCB_READONLY);
-use Wx::Event qw(EVT_SLIDER EVT_KEY_DOWN EVT_CHECKBOX EVT_CHOICE EVT_CHECKLISTBOX EVT_SIZE);
-use base qw(Wx::Panel Class::Accessor);
-
-use Wx::Locale gettext => 'L';
-
-__PACKAGE__->mk_accessors(qw(print gcode_preview_data enabled _loaded canvas slider_low slider_high single_layer double_slider_sizer));
-
-sub new {
-    my $class = shift;
-    my ($parent, $print, $gcode_preview_data, $config) = @_;
-    
-    my $self = $class->SUPER::new($parent, -1, wxDefaultPosition);
-    $self->{config} = $config;
-    $self->{number_extruders} = 1;
-    # Show by feature type by default.
-    $self->{preferred_color_mode} = 'feature';
-
-    # init GUI elements
-    my $canvas = Slic3r::GUI::3DScene->new($self);
-    Slic3r::GUI::_3DScene::enable_shader($canvas, 1);
-    Slic3r::GUI::_3DScene::set_config($canvas, $config);
-    $self->canvas($canvas);
-#    my $slider_low = Wx::Slider->new(
-#        $self, -1,
-#        0,                              # default
-#        0,                              # min
-        # we set max to a bogus non-zero value because the MSW implementation of wxSlider
-        # will skip drawing the slider if max <= min:
-#        1,                              # max
-#        wxDefaultPosition,
-#        wxDefaultSize,
-#        wxVERTICAL | wxSL_INVERSE,
-#    );
-#    $self->slider_low($slider_low);
-#    my $slider_high = Wx::Slider->new(
-#        $self, -1,
-#        0,                              # default
-#        0,                              # min
-        # we set max to a bogus non-zero value because the MSW implementation of wxSlider
-        # will skip drawing the slider if max <= min:
-#        1,                              # max
-#        wxDefaultPosition,
-#        wxDefaultSize,
-#        wxVERTICAL | wxSL_INVERSE,
-#    );
-#    $self->slider_high($slider_high);
-    
-#    my $z_label_low = $self->{z_label_low} = Wx::StaticText->new($self, -1, "", wxDefaultPosition,
-#        [40,-1], wxALIGN_CENTRE_HORIZONTAL);
-#    $z_label_low->SetFont($Slic3r::GUI::small_font);
-#    my $z_label_high = $self->{z_label_high} = Wx::StaticText->new($self, -1, "", wxDefaultPosition,
-#        [40,-1], wxALIGN_CENTRE_HORIZONTAL);
-#    $z_label_high->SetFont($Slic3r::GUI::small_font);
-
-#    my $z_label_low_idx = $self->{z_label_low_idx} = Wx::StaticText->new($self, -1, "", wxDefaultPosition,
-#        [40,-1], wxALIGN_CENTRE_HORIZONTAL);
-#    $z_label_low_idx->SetFont($Slic3r::GUI::small_font);
-#    my $z_label_high_idx = $self->{z_label_high_idx} = Wx::StaticText->new($self, -1, "", wxDefaultPosition,
-#        [40,-1], wxALIGN_CENTRE_HORIZONTAL);
-#    $z_label_high_idx->SetFont($Slic3r::GUI::small_font);
-        
-#    $self->single_layer(0);
-#    my $checkbox_singlelayer = $self->{checkbox_singlelayer} = Wx::CheckBox->new($self, -1, L("1 Layer"));
-    
-    my $label_view_type = $self->{label_view_type} = Wx::StaticText->new($self, -1, L("View"));
-    
-    my $choice_view_type = $self->{choice_view_type} = Wx::Choice->new($self, -1);
-    $choice_view_type->Append(L("Feature type"));
-    $choice_view_type->Append(L("Height"));
-    $choice_view_type->Append(L("Width"));
-    $choice_view_type->Append(L("Speed"));
-    $choice_view_type->Append(L("Volumetric flow rate"));
-    $choice_view_type->Append(L("Tool"));
-    $choice_view_type->SetSelection(0);
-
-    # the following value needs to be changed if new items are added into $choice_view_type before "Tool"
-    $self->{tool_idx} = 5;
-    
-    my $label_show_features = $self->{label_show_features} = Wx::StaticText->new($self, -1, L("Show"));
-    
-    my $combochecklist_features = $self->{combochecklist_features} = Wx::ComboCtrl->new();
-    $combochecklist_features->Create($self, -1, L("Feature types"), wxDefaultPosition, [200, -1], wxCB_READONLY);
-    my $feature_text = L("Feature types");
-    my $feature_items = L("Perimeter")."|"
-                        .L("External perimeter")."|"
-                        .L("Overhang perimeter")."|"
-                        .L("Internal infill")."|"
-                        .L("Solid infill")."|"
-                        .L("Top solid infill")."|"
-                        .L("Bridge infill")."|"
-                        .L("Gap fill")."|"
-                        .L("Skirt")."|"
-                        .L("Support material")."|"
-                        .L("Support material interface")."|"
-                        .L("Wipe tower")."|"
-                        .L("Custom");
-    Slic3r::GUI::create_combochecklist($combochecklist_features, $feature_text, $feature_items, 1);
-
-    my $double_slider_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
-    Slic3r::GUI::create_double_slider($self, $double_slider_sizer, $self->canvas);
-    $self->double_slider_sizer($double_slider_sizer);
-    
-    my $checkbox_travel         = $self->{checkbox_travel}          = Wx::CheckBox->new($self, -1, L("Travel"));
-    my $checkbox_retractions    = $self->{checkbox_retractions}     = Wx::CheckBox->new($self, -1, L("Retractions"));    
-    my $checkbox_unretractions  = $self->{checkbox_unretractions}   = Wx::CheckBox->new($self, -1, L("Unretractions"));
-    my $checkbox_shells         = $self->{checkbox_shells}          = Wx::CheckBox->new($self, -1, L("Shells"));
-
-#    my $hsizer = Wx::BoxSizer->new(wxHORIZONTAL);
-#    my $vsizer = Wx::BoxSizer->new(wxVERTICAL);
-#    my $vsizer_outer = Wx::BoxSizer->new(wxVERTICAL);
-#    $vsizer->Add($slider_low, 3, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $vsizer->Add($z_label_low_idx, 0, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $vsizer->Add($z_label_low, 0, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $hsizer->Add($vsizer, 0, wxEXPAND, 0);
-#    $vsizer = Wx::BoxSizer->new(wxVERTICAL);
-#    $vsizer->Add($slider_high, 3, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $vsizer->Add($z_label_high_idx, 0, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $vsizer->Add($z_label_high, 0, 0, 0);
-#    $hsizer->Add($vsizer, 0, wxEXPAND, 0);
-#    $vsizer_outer->Add($hsizer, 3, wxALIGN_CENTER_HORIZONTAL, 0);
-#    $vsizer_outer->Add($double_slider_sizer, 3, wxEXPAND, 0);
-#    $vsizer_outer->Add($checkbox_singlelayer, 0, wxTOP | wxALIGN_CENTER_HORIZONTAL, 5);
-
-    my $bottom_sizer = Wx::BoxSizer->new(wxHORIZONTAL);
-    $bottom_sizer->Add($label_view_type, 0, wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->Add($choice_view_type, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->AddSpacer(10);
-    $bottom_sizer->Add($label_show_features, 0, wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->Add($combochecklist_features, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->AddSpacer(20);
-    $bottom_sizer->Add($checkbox_travel, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->AddSpacer(10);
-    $bottom_sizer->Add($checkbox_retractions, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->AddSpacer(10);
-    $bottom_sizer->Add($checkbox_unretractions, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    $bottom_sizer->AddSpacer(10);
-    $bottom_sizer->Add($checkbox_shells, 0, wxEXPAND | wxALL | wxALIGN_CENTER_VERTICAL, 5);
-    
-    my $sizer = Wx::BoxSizer->new(wxHORIZONTAL);
-    $sizer->Add($canvas, 1, wxALL | wxEXPAND, 0);
-#    $sizer->Add($vsizer_outer, 0, wxTOP | wxBOTTOM | wxEXPAND, 5);
-    $sizer->Add($double_slider_sizer, 0, wxEXPAND, 0);#wxTOP | wxBOTTOM | wxEXPAND, 5);
-
-    my $main_sizer = Wx::BoxSizer->new(wxVERTICAL);
-    $main_sizer->Add($sizer, 1, wxALL | wxEXPAND, 0);
-    $main_sizer->Add($bottom_sizer, 0, wxALL | wxEXPAND, 0); 
-    
-#    EVT_SLIDER($self, $slider_low,  sub {
-#        $slider_high->SetValue($slider_low->GetValue) if $self->single_layer;
-#        $self->set_z_idx_low ($slider_low ->GetValue)
-#    });
-#    EVT_SLIDER($self, $slider_high, sub { 
-#        $slider_low->SetValue($slider_high->GetValue) if $self->single_layer;
-#        $self->set_z_idx_high($slider_high->GetValue) 
-#    });
-#    EVT_KEY_DOWN($canvas, sub {
-#        my ($s, $event) = @_;
-#        Slic3r::GUI::update_double_slider_from_canvas($event);
-#        my $key = $event->GetKeyCode;
-#        if ($event->HasModifiers) {
-#            $event->Skip;
-#        } else {
-#            if ($key == ord('U')) {
-#                $slider_high->SetValue($slider_high->GetValue + 1);
-#                $slider_low->SetValue($slider_high->GetValue) if ($event->ShiftDown());
-#                $self->set_z_idx_high($slider_high->GetValue);
-#            } elsif ($key == ord('D')) {
-#                $slider_high->SetValue($slider_high->GetValue - 1);
-#                $slider_low->SetValue($slider_high->GetValue) if ($event->ShiftDown());
-#                $self->set_z_idx_high($slider_high->GetValue);
-#            } elsif ($key == ord('S')) {
-#                $checkbox_singlelayer->SetValue(! $checkbox_singlelayer->GetValue());
-#                $self->single_layer($checkbox_singlelayer->GetValue());
-#                if ($self->single_layer) {
-#                    $slider_low->SetValue($slider_high->GetValue);
-#                    $self->set_z_idx_high($slider_high->GetValue);
-#                }
-#            } else {
-#                $event->Skip;
-#            }
-#        }
-#    });
-#    EVT_KEY_DOWN($slider_low, sub {
-#        my ($s, $event) = @_;
-#        my $key = $event->GetKeyCode;
-#        if ($event->HasModifiers) {
-#            $event->Skip;
-#        } else {
-#            if ($key == WXK_LEFT) {
-#            } elsif ($key == WXK_RIGHT) {
-#                $slider_high->SetFocus;
-#            } else {
-#                $event->Skip;
-#            }
-#        }
-#    });
-#    EVT_KEY_DOWN($slider_high, sub {
-#        my ($s, $event) = @_;
-#        my $key = $event->GetKeyCode;
-#        if ($event->HasModifiers) {
-#            $event->Skip;
-#        } else {
-#            if ($key == WXK_LEFT) {
-#                $slider_low->SetFocus;
-#            } elsif ($key == WXK_RIGHT) {
-#            } else {
-#                $event->Skip;
-#            }
-#        }
-#    });
-#    EVT_CHECKBOX($self, $checkbox_singlelayer, sub {
-#        $self->single_layer($checkbox_singlelayer->GetValue());
-#        if ($self->single_layer) {
-#            $slider_low->SetValue($slider_high->GetValue);
-#            $self->set_z_idx_high($slider_high->GetValue);
-#        }
-#    });
-    EVT_CHOICE($self, $choice_view_type, sub {
-        my $selection = $choice_view_type->GetCurrentSelection();
-        $self->{preferred_color_mode} = ($selection == $self->{tool_idx}) ? 'tool' : 'feature';
-        $self->gcode_preview_data->set_type($selection);
-        $self->reload_print;
-    });
-    EVT_CHECKLISTBOX($self, $combochecklist_features, sub {
-        my $flags = Slic3r::GUI::combochecklist_get_flags($combochecklist_features);
-        
-        $self->gcode_preview_data->set_extrusion_flags($flags);
-        $self->refresh_print;
-    });    
-    EVT_CHECKBOX($self, $checkbox_travel, sub {
-        $self->gcode_preview_data->set_travel_visible($checkbox_travel->IsChecked());
-        $self->refresh_print;
-    });    
-    EVT_CHECKBOX($self, $checkbox_retractions, sub {
-        $self->gcode_preview_data->set_retractions_visible($checkbox_retractions->IsChecked());
-        $self->refresh_print;
-    });
-    EVT_CHECKBOX($self, $checkbox_unretractions, sub {
-        $self->gcode_preview_data->set_unretractions_visible($checkbox_unretractions->IsChecked());
-        $self->refresh_print;
-    });
-    EVT_CHECKBOX($self, $checkbox_shells, sub {
-        $self->gcode_preview_data->set_shells_visible($checkbox_shells->IsChecked());
-        $self->refresh_print;
-    });
-
-    EVT_SIZE($self, sub {
-        my ($s, $event) = @_;
-        $event->Skip;
-        $self->Refresh;
-    });
-    
-    $self->SetSizer($main_sizer);
-    $self->SetMinSize($self->GetSize);
-    $sizer->SetSizeHints($self);
-    
-    # init canvas
-    $self->print($print);
-    $self->gcode_preview_data($gcode_preview_data);
-    
-    # sets colors for gcode preview extrusion roles
-    my @extrusion_roles_colors = (
-                                    'Perimeter'                  => 'FFFF66',
-                                    'External perimeter'         => 'FFA500',
-                                    'Overhang perimeter'         => '0000FF',
-                                    'Internal infill'            => 'B1302A',
-                                    'Solid infill'               => 'D732D7',
-                                    'Top solid infill'           => 'FF1A1A',
-                                    'Bridge infill'              => '9999FF',
-                                    'Gap fill'                   => 'FFFFFF',
-                                    'Skirt'                      => '845321',
-                                    'Support material'           => '00FF00',
-                                    'Support material interface' => '008000',
-                                    'Wipe tower'                 => 'B3E3AB',
-                                    'Custom'                     => '28CC94',
-                                 );
-    $self->gcode_preview_data->set_extrusion_paths_colors(\@extrusion_roles_colors);
-    
-    $self->show_hide_ui_elements('none');
-    $self->reload_print;
-    
-    return $self;
-}
-
-sub reload_print {
-    my ($self, $force) = @_;
-
-    Slic3r::GUI::_3DScene::reset_volumes($self->canvas);
-    $self->_loaded(0);
-
-    if (! $self->IsShown && ! $force) {
-#        $self->{reload_delayed} = 1;
-        return;
-    }
-
-    $self->load_print;
-}
-
-sub refresh_print {
-    my ($self) = @_;
-
-    $self->_loaded(0);
-    
-    if (! $self->IsShown) {
-        return;
-    }
-
-    $self->load_print;
-}
-
-sub reset_gcode_preview_data {
-    my ($self) = @_;
-    $self->gcode_preview_data->reset;
-    Slic3r::GUI::_3DScene::reset_legend_texture();
-}
-
-sub load_print {
-    my ($self) = @_;
-    
-    return if $self->_loaded;
-    
-    # we require that there's at least one object and the posSlice step
-    # is performed on all of them (this ensures that _shifted_copies was
-    # populated and we know the number of layers)
-    my $n_layers = 0;
-    if ($self->print->object_step_done(STEP_SLICE)) {
-        my %z = ();  # z => 1
-        foreach my $object (@{$self->{print}->objects}) {
-            foreach my $layer (@{$object->layers}, @{$object->support_layers}) {
-                $z{$layer->print_z} = 1;
-            }
-        }
-        $self->{layers_z} = [ sort { $a <=> $b } keys %z ];
-        $n_layers = scalar(@{$self->{layers_z}});
-    }
-
-    if ($n_layers == 0) {
-        $self->reset_sliders;
-        Slic3r::GUI::_3DScene::reset_legend_texture();
-        $self->canvas->Refresh;  # clears canvas
-        return;
-    }
-    
-    if ($self->{preferred_color_mode} eq 'tool_or_feature') {
-        # It is left to Slic3r to decide whether the print shall be colored by the tool or by the feature.
-        # Color by feature if it is a single extruder print.
-        my $extruders = $self->{print}->extruders;
-        my $type = (scalar(@{$extruders}) > 1) ? $self->{tool_idx} : 0;
-        $self->gcode_preview_data->set_type($type);
-        $self->{choice_view_type}->SetSelection($type);
-        # If the ->SetSelection changed the following line, revert it to "decide yourself".
-        $self->{preferred_color_mode} = 'tool_or_feature';
-    }
-
-    # Collect colors per extruder.
-    my @colors = ();
-    if (! $self->gcode_preview_data->empty() || $self->gcode_preview_data->type == $self->{tool_idx}) {
-        my @extruder_colors = @{$self->{config}->extruder_colour};
-        my @filament_colors = @{$self->{config}->filament_colour};
-        for (my $i = 0; $i <= $#extruder_colors; $i += 1) {
-            my $color = $extruder_colors[$i];
-            $color = $filament_colors[$i] if (! defined($color) || $color !~ m/^#[[:xdigit:]]{6}/);
-            $color = '#FFFFFF' if (! defined($color) || $color !~ m/^#[[:xdigit:]]{6}/);
-            push @colors, $color;
-        }
-    }
-
-    if ($self->IsShown) {
-        # used to set the sliders to the extremes of the current zs range
-        $self->{force_sliders_full_range} = 0;
-
-        if ($self->gcode_preview_data->empty) {
-            # load skirt and brim
-            Slic3r::GUI::_3DScene::set_print($self->canvas, $self->print);
-            Slic3r::GUI::_3DScene::load_preview($self->canvas, \@colors);
-            $self->show_hide_ui_elements('simple');
-        } else {
-            $self->{force_sliders_full_range} = (Slic3r::GUI::_3DScene::get_volumes_count($self->canvas) == 0);
-            Slic3r::GUI::_3DScene::set_print($self->canvas, $self->print);
-            Slic3r::GUI::_3DScene::load_gcode_preview($self->canvas, $self->gcode_preview_data, \@colors);
-            $self->show_hide_ui_elements('full');
-
-            # recalculates zs and update sliders accordingly
-            $self->{layers_z} = Slic3r::GUI::_3DScene::get_current_print_zs($self->canvas, 1);
-            $n_layers = scalar(@{$self->{layers_z}});            
-            if ($n_layers == 0) {
-                # all layers filtered out
-                $self->reset_sliders;
-                $self->canvas->Refresh;  # clears canvas
-            }
-       }
-
-        $self->update_sliders($n_layers) if ($n_layers > 0);
-        $self->_loaded(1);
-    }
-}
-
-sub reset_sliders {
-    my ($self) = @_;
-    $self->enabled(0);
-#    $self->set_z_range(0,0);
-#    $self->slider_low->Hide;
-#    $self->slider_high->Hide;
-#    $self->{z_label_low}->SetLabel("");
-#    $self->{z_label_high}->SetLabel("");
-#    $self->{z_label_low_idx}->SetLabel("");
-#    $self->{z_label_high_idx}->SetLabel("");
-
-    Slic3r::GUI::reset_double_slider();
-    $self->double_slider_sizer->Hide(0);
-}
-
-sub update_sliders
-{
-    my ($self, $n_layers) = @_;
-        
-#    my $z_idx_low = $self->slider_low->GetValue;
-#    my $z_idx_high = $self->slider_high->GetValue;
-    $self->enabled(1);
-#    $self->slider_low->SetRange(0, $n_layers - 1);
-#    $self->slider_high->SetRange(0, $n_layers - 1);
-    
-#    if ($self->{force_sliders_full_range}) {
-#        $z_idx_low = 0;
-#        $z_idx_high = $n_layers - 1;
-#    } elsif ($z_idx_high < $n_layers && ($self->single_layer || $z_idx_high != 0)) {
-#        # search new indices for nearest z (size of $self->{layers_z} may change in dependence of what is shown)
-#        if (defined($self->{z_low})) {
-#            for (my $i = scalar(@{$self->{layers_z}}) - 1; $i >= 0; $i -= 1) {
-#                if ($self->{layers_z}[$i] <= $self->{z_low}) {
-#                    $z_idx_low = $i;
-#                    last;
-#                }
-#            }
-#        }
-#        if (defined($self->{z_high})) {
-#            for (my $i = scalar(@{$self->{layers_z}}) - 1; $i >= 0; $i -= 1) {
-#                if ($self->{layers_z}[$i] <= $self->{z_high}) {
-#                    $z_idx_high = $i;
-#                    last;
-#                }
-#            }
-#        }
-#    } elsif ($z_idx_high >= $n_layers) {
-#        # Out of range. Disable 'single layer' view.
-#        $self->single_layer(0);
-#        $self->{checkbox_singlelayer}->SetValue(0);
-#        $z_idx_low = 0;
-#        $z_idx_high = $n_layers - 1;
-#    } else {
-#        $z_idx_low = 0;
-#        $z_idx_high = $n_layers - 1;
-#    }
-    
-#    $self->slider_low->SetValue($z_idx_low);
-#    $self->slider_high->SetValue($z_idx_high);
-#    $self->slider_low->Show;
-#    $self->slider_high->Show;
-#    $self->set_z_range($self->{layers_z}[$z_idx_low], $self->{layers_z}[$z_idx_high]);
-
-    Slic3r::GUI::update_double_slider($self->{force_sliders_full_range});
-    $self->double_slider_sizer->Show(0);
-
-    $self->Layout;    
-}
-
-sub set_z_range
-{
-    my ($self, $z_low, $z_high) = @_;
-    
-    return if !$self->enabled;
-    $self->{z_low} = $z_low;
-    $self->{z_high} = $z_high;
-    $self->{z_label_low}->SetLabel(sprintf '%.2f', $z_low);
-    $self->{z_label_high}->SetLabel(sprintf '%.2f', $z_high);
-    
-    my $layers_z = Slic3r::GUI::_3DScene::get_current_print_zs($self->canvas, 0);
-    for (my $i = 0; $i < scalar(@{$layers_z}); $i += 1) {
-        if (($z_low - 1e-6 < @{$layers_z}[$i]) && (@{$layers_z}[$i] < $z_low + 1e-6)) {
-            $self->{z_label_low_idx}->SetLabel(sprintf '%d', $i + 1);
-            last;
-        }
-    }
-    for (my $i = 0; $i < scalar(@{$layers_z}); $i += 1) {
-        if (($z_high - 1e-6 < @{$layers_z}[$i]) && (@{$layers_z}[$i] < $z_high + 1e-6)) {
-            $self->{z_label_high_idx}->SetLabel(sprintf '%d', $i + 1);
-            last;
-        }
-    }
-
-    Slic3r::GUI::_3DScene::set_toolpaths_range($self->canvas, $z_low - 1e-6, $z_high + 1e-6);
-    $self->canvas->Refresh if $self->IsShown;
-}
-
-sub set_z_idx_low
-{
-    my ($self, $idx_low) = @_;
-    if ($self->enabled) {
-        my $idx_high = $self->slider_high->GetValue;
-        if ($idx_low >= $idx_high) {
-            $idx_high = $idx_low;
-            $self->slider_high->SetValue($idx_high);
-        }
-        $self->set_z_range($self->{layers_z}[$idx_low], $self->{layers_z}[$idx_high]);
-    }
-}
-
-sub set_z_idx_high
-{
-    my ($self, $idx_high) = @_;
-    if ($self->enabled) {
-        my $idx_low  = $self->slider_low->GetValue;
-        if ($idx_low > $idx_high) {
-            $idx_low = $idx_high;
-            $self->slider_low->SetValue($idx_low);
-        }
-        $self->set_z_range($self->{layers_z}[$idx_low], $self->{layers_z}[$idx_high]);
-    }
-}
-
-sub set_number_extruders {
-    my ($self, $number_extruders) = @_;
-    if ($self->{number_extruders} != $number_extruders) {
-        $self->{number_extruders} = $number_extruders;
-        my $type = ($number_extruders > 1) ?
-              $self->{tool_idx}  # color by a tool number
-            : 0; # color by a feature type
-        $self->{choice_view_type}->SetSelection($type);
-        $self->gcode_preview_data->set_type($type);
-        $self->{preferred_color_mode} = ($type == $self->{tool_idx}) ? 'tool_or_feature' : 'feature';
-    }
-}
-
-sub show_hide_ui_elements {
-    my ($self, $what) = @_;
-    my $method = ($what eq 'full') ? 'Enable' : 'Disable';
-    $self->{$_}->$method for qw(label_show_features combochecklist_features checkbox_travel checkbox_retractions checkbox_unretractions checkbox_shells);
-    $method = ($what eq 'none') ? 'Disable' : 'Enable';
-    $self->{$_}->$method for qw(label_view_type choice_view_type);
-}
-
-# Called by the Platter wxNotebook when this page is activated.
-sub OnActivate {
-#    my ($self) = @_;
-#    $self->reload_print(1) if ($self->{reload_delayed});
-}
-
-1;