Anonymous avatar Anonymous committed 7e6450e

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

Comments (0)

Files changed (1)

1st-version-as-scripts/edit-yaml-gui.pl

 
     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());
 
     $frame->SetSizer($sizer);
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 ProjectModifiedEvent.java.
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.