Commits

Herbert Breunung committed 944667e

dunno wjat i did yesterday :)

  • Participants
  • Parent commits b74e4bf

Comments (0)

Files changed (2)

File lib/Kephra/App/Menu.pm

     my $bar = Wx::MenuBar->new();
     my $file_menu = Wx::Menu->new();
     my $mi = $file_menu->Append( 1000, "New      Ctrl + N");
-    #$mi->SetText("New\tCtrl+N");
+    #$mi->SetText("New\tCtrl+N´");
     $file_menu->Append( 1001, "Open    Ctrl + O");
     $file_menu->Append( 1002, "Save      Ctrl + S");
     $file_menu->Append( 1003, "Close    Ctrl + Q");

File lib/Kephra/App/Window.pm

     my( $win ) = $class->SUPER::new ( undef, -1, $title, [-1,-1],[800, 600] );
     $win->SetIcon( Wx::GetWxPerlIcon() );
     $win->SetMenuBar( Kephra::App::Menu::main_bar() );
-    $win->SetAcceleratorTable( Wx::AcceleratorTable->new() );
+    #$win->GetMenuBar->SetAcceleratorTable( Wx::AcceleratorTable->new() );
 
     my $panel = Wx::Panel->new( $win );
 
     #$nb->Reparent( $spliter{'left'} );
     $spliter{'middle'} = Wx::SplitterWindow->new( $panel, -1,[-1,-1],[-1,-1],&Wx::wxSP_NOBORDER  );
     my $nbl = Kephra::App::TabBar->new($spliter{'middle'});
-    my $nbr = Kephra::App::TabBar->new($spliter{'middle'});
-    $spliter{'middle'}->SplitVertically( $nbl, $nbr, 0);
-    $spliter{'middle'}->SetSashGravity(0.5);
+    $spliter{'middle'}->Initialize( $nbl );
+    #my $nbr = Kephra::App::TabBar->new($spliter{'middle'});
+    #$spliter{'middle'}->SplitVertically( $nbl, $nbr, 0);
+    #$spliter{'middle'}->SetSashGravity(0.5);
 
     Wx::Event::EVT_MENU( $win, 1000, sub { $nbl->add_edit_page() } );
-    #Wx::Event::EVT_MENU( $nbl, &Wx::wxID_CLOSE, sub { $nbl->add_edit_page() } );
+    Wx::Event::EVT_MENU( $nbl, &Wx::wxID_CLOSE, sub { $nbl->add_edit_page() } );
     #Wx::Event::EVT_KEY_DOWN ($win, sub {
         #my ($win, $event) = @_;
         #my $key = $event->GetKeyCode +