1. Herbert Breunung
  2. Kephra

Commits

Herbert Breunung  committed 39375de

playing with filebrowser

  • Participants
  • Parent commits 377d175
  • Branches default

Comments (0)

Files changed (3)

File lib/Kephra/App/Bar/Menu.pm

View file
  • Ignore whitespace
 sub get {
     my $bar = Wx::MenuBar->new();
     my $file_menu = Wx::Menu->new();
-    my $mi = $file_menu->Append( 1000, "New      Ctrl + N");
+    my $mi = $file_menu->Append( 1000, "New\tCtrl+N");
     #$mi->SetText("New\tCtrl+N´");
     $file_menu->Append( 1001, "Open    Ctrl + O");
     $file_menu->Append( 1002, "Save      Ctrl + S");

File lib/Kephra/App/Editor.pm

View file
  • Ignore whitespace
     my ($ep, @which) = @_;
     $ep->SetAcceleratorTable(
         Wx::AcceleratorTable->new(
-            [&Wx::wxACCEL_CTRL, ord 'n', 1000],
+            #[&Wx::wxACCEL_CTRL, ord 'n', 1000],
     ));
     #$ep->SetAcceleratorTable( Wx::AcceleratorTable->new() );
     #Wx::Event::EVT_MENU( $ep, 1000, sub { $_[1]->Skip; } );

File lib/Kephra/App/Panel/FileBrowser.pm

View file
  • Ignore whitespace
 use strict;
 use warnings;
-use Cwd;
-use File::Find;
 
 package Kephra::App::Panel::FileBrowser;
 our @ISA = 'Wx::ListCtrl';
+use Cwd;
+use File::Find;
 
 sub new {
     my( $class, $parent) = @_;
         my ($fb, $event) = @_;
         my $lib =  Cwd::cwd() . '/lib/'. $event->GetText . '.pm';
         $lib =~ s|::|/|g;
-        print "$lib\n";
+        print "$lib\n" if -e $lib;
     } );
 
     return $fb;