Anonymous avatar Anonymous committed 7e6450e

Added a menu bar with a File->Exit item.

Comments (0)

Files changed (1)


     my $frame = Wx::Frame->new( undef, -1, 'wxPerl', wxDefaultPosition, [ 200, 100 ] );
+    my $menu_bar = Wx::MenuBar->new;
+    my $file_menu = Wx::Menu->new;
+    my $exit_item = $file_menu->Append(Wx::wxID_NEW, Wx::gettext("E&xit"));
+    Wx::Event::EVT_MENU(
+        $frame,
+        $exit_item,
+        sub {
+            $_[0]->Close();
+        },
+    );
+    $menu_bar->Append($file_menu, "&File");
+    $frame->SetMenuBar($menu_bar);
     my $sizer = Wx::BoxSizer->new(wxHORIZONTAL());
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.