Herbert Breunung avatar Herbert Breunung committed 39375de

playing with filebrowser

Comments (0)

Files changed (3)


 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");
     $file_menu->Append( 1001, "Open    Ctrl + O");
     $file_menu->Append( 1002, "Save      Ctrl + S");


     my ($ep, @which) = @_;
-            [&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; } );


 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;
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.