1. Herbert Breunung
  2. Kephra

Commits

Herbert Breunung  committed c5e5ab9

end acc table experiments

  • Participants
  • Parent commits 944667e
  • Branches default

Comments (0)

Files changed (2)

File lib/Kephra/App/EditPanel.pm

View file
     my ($ep, @which) = @_;
     $ep->SetAcceleratorTable(
         Wx::AcceleratorTable->new(
-            [&Wx::wxACCEL_CTRL, ord 'b', &Wx::wxID_CLOSE],
-            [&Wx::wxACCEL_NORMAL, &Wx::WXK_NUMPAD_ENTER, &Wx::wxID_CLOSE],
-            #[&Wx::wxACCEL_CTRL|&Wx::wxACCEL_ALT, ord 'b', &Wx::wxID_CLOSE],
-            #[&Wx::wxACCEL_CTRL|&Wx::wxACCEL_ALT, &Wx::WXK_RIGHT, &Wx::wxID_CLOSE],
+            [&Wx::wxACCEL_CTRL, ord 'n', 1000],
     ));
     #$ep->SetAcceleratorTable( Wx::AcceleratorTable->new() );
-    #Wx::Event::EVT_MENU( $ep, 1000, sub { $ep->AddText('1'); $_[1]->Skip; } );
-    #Wx::Event::EVT_MENU( $ep, &Wx::wxID_CLOSE, sub { $ep->AddText('-') } );
-        #Wx::Event::EVT_KEY_DOWN ($ep, sub {
-            #my ($ep, $event) = @_;
-            #my $key = $event->GetKeyCode;
-            #if ($key == 66 and $event->ControlDown  and $event->AltDown ){ $ep->AddText('+') }
-            #elsif ($key == &Wx::WXK_LEFT and $event->ControlDown ){ $ep->AddText('L') }
-            #else {
-                #$event->Skip;
-            #}
-        #} );
+    #Wx::Event::EVT_MENU( $ep, 1000, sub { $_[1]->Skip; } );
     #Wx::Event::EVT_STC_SAVEPOINTREACHED($ep, -1, \&Kephra::File::savepoint_reached);
     #Wx::Event::EVT_STC_SAVEPOINTLEFT($ep, -1, \&Kephra::File::savepoint_left);
     #Wx::Event::EVT_STC_CHANGE       ($ep, -1, sub {&$trigger('document.text.change')} );

File lib/Kephra/App/Menu.pm

View file
     $help_menu->Append( 8000, 'Documentation');
     $help_menu->Append( 8001, 'Website');
     $help_menu->Append( 8002, 'Report a Wish');
-    $help_menu->Append( 8003, 'About');
+    $help_menu->Append( 8003, 'Info');
     $bar->Append($help_menu, 'Help');
     return $bar;
 }