Commits

Herbert Breunung committed 9acec37

add docstash

  • Participants
  • Parent commits bc428bb

Comments (0)

Files changed (3)

lib/Kephra/API/DocumentStash.pm

+use strict;
+use warnings;
+
+package Kephra::API::DocumentStash;
+
+
+1;

lib/Kephra/App/Menu.pm

 sub main_bar {
     my $bar = Wx::MenuBar->new();
     my $file_menu = Wx::Menu->new();
-    $file_menu->Append( 1000, 'New');
+    $file_menu->Append( 1000, "New\tCtrl+N");
     $file_menu->Append( 1001, 'Open');
     $file_menu->Append( 1002, 'Save');
     $file_menu->Append( 1003, 'Close');
     $file_menu->Append( 1010, 'Exit');
     $bar->Append($file_menu, 'File');
     my $config_menu = Wx::Menu->new();
-    $file_menu->Append( 7000, 'Dialog');
-    $bar->Append($file_menu, 'Config');
+    $config_menu->Append( 7000, 'Dialog');
+    $bar->Append($config_menu, 'Config');
     my $help_menu = Wx::Menu->new();
-    $help_menu->Append( 7000, 'Documentation');
-    $help_menu->Append( 7002, 'Website');
-    $help_menu->Append( 7003, 'Report a Wish');
+    $help_menu->Append( 8000, 'Documentation');
+    $help_menu->Append( 8001, 'Website');
+    $help_menu->Append( 8002, 'Report a Wish');
+    $help_menu->Append( 8003, 'About');
     $bar->Append($help_menu, 'Help');
     return $bar;
 }

lib/Kephra/App/Window.pm

     my( $class, $title ) = @_;
     my( $win ) = $class->SUPER::new ( undef, -1, $title, [-1,-1],[800, 600] );
     $win->SetMenuBar( Kephra::App::Menu::main_bar() );
+    $win->SetAcceleratorTable( Wx::AcceleratorTable->new() );
+
     my $panel = Wx::Panel->new( $win );