Move Load Config... and Export Config... to the File menu

degen-loop-screen
Alessandro Ranellucci 2012-07-03 19:16:45 +02:00
parent 3b873ab493
commit 5a8c4bf1bf
2 changed files with 9 additions and 16 deletions

View File

@ -65,17 +65,18 @@ sub OnInit {
# File menu
my $fileMenu = Wx::Menu->new;
{
$fileMenu->Append(1, "Export Config…");
$fileMenu->Append(2, "Open Config…");
$fileMenu->Append(1, "Load Config…");
$fileMenu->Append(2, "Export Config…");
$fileMenu->AppendSeparator();
$fileMenu->Append(3, "Slice…");
$fileMenu->Append(4, "Reslice");
$fileMenu->Append(5, "Slice and Save As…");
$fileMenu->Append(6, "Export SVG…");
$fileMenu->Append(3, "Quick Slice…");
$fileMenu->Append(4, "Quick Slice (last file)");
$fileMenu->Append(5, "Quick Slice and Save As…");
$fileMenu->AppendSeparator();
$fileMenu->Append(6, "Slice to SVG…");
$fileMenu->AppendSeparator();
$fileMenu->Append(wxID_EXIT, "&Quit");
EVT_MENU($frame, 1, sub { $frame->{skeinpanel}->save_config });
EVT_MENU($frame, 2, sub { $frame->{skeinpanel}->load_config });
EVT_MENU($frame, 1, sub { $frame->{skeinpanel}->load_config });
EVT_MENU($frame, 2, sub { $frame->{skeinpanel}->save_config });
EVT_MENU($frame, 3, sub { $frame->{skeinpanel}->do_slice });
EVT_MENU($frame, 4, sub { $frame->{skeinpanel}->do_slice(reslice => 1) });
EVT_MENU($frame, 5, sub { $frame->{skeinpanel}->do_slice(save_as => 1) });

View File

@ -40,14 +40,6 @@ sub new {
$buttons_sizer->Add($slice_button, 0, wxRIGHT, 20);
EVT_BUTTON($self, $slice_button, sub { $self->do_slice });
my $save_button = Wx::Button->new($self, -1, "Export config…");
$buttons_sizer->Add($save_button, 0, wxRIGHT, 5);
EVT_BUTTON($self, $save_button, sub { $self->save_config });
my $load_button = Wx::Button->new($self, -1, "Load config…");
$buttons_sizer->Add($load_button, 0, wxRIGHT, 5);
EVT_BUTTON($self, $load_button, sub { $self->load_config });
my $text = Wx::StaticText->new($self, -1, "Remember to check for updates at http://slic3r.org/\nVersion: $Slic3r::VERSION", wxDefaultPosition, wxDefaultSize, wxALIGN_RIGHT);
my $font = Wx::Font->new(10, wxDEFAULT, wxNORMAL, wxNORMAL);
$text->SetFont($font);