Changeset 10602

Timestamp:

02/07/10 10:46:27 (2 years ago)

Author:

azawawi

Message:

Added "Open with Default System Editor" in "File -> Open..." sub-menu. This is only implemented for Win32. Other platform implementations are welcome

Location:

trunk/Padre/lib/Padre

Files:

• Action/File.pm (modified) (1 diff)
• Wx/Main.pm (modified) (1 diff)
• Wx/Menu/File.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Action/File.pm

@@ -123 +123 @@
         menu_event => sub {
             $_[0]->on_open_url;
+        },
+    );
+
+    Padre::Action->new(
+        name       => 'file.open_with_default_system_editor',
+        label      => Wx::gettext('Open with Default System Editor'),
+        comment    => Wx::gettext('Opens the file with the default system editor'),
+        menu_event => sub {
+            $_[0]->on_open_with_default_system_editor;
         },
     );

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -3658 +3658 @@
 }
 
+sub on_open_with_default_system_editor {
+    my $self = shift;
+    my $document = $self->current->document or return;
+    my $filename = $document->filename or return;
+
+    if(Padre::Constant::WIN32) {
+        # Win32
+        require Padre::Util::Win32;
+        Padre::Util::Win32::ExecuteProcessAndWait(
+            directory  => $self->{cwd},
+            file       => $document->filename,
+            parameters => '',
+            show       => 1);
+    } else {
+        #TODO please implement for other platforms
+        $self->error(Wx::gettext("Not implemented!"));
+    }
+}
+
 sub on_open_example {
     $_[0]->open_file_dialog( Padre::Util::sharedir('examples') );

trunk/Padre/lib/Padre/Wx/Menu/File.pm

@@ -102 +102 @@
         $file_open,
         'file.open_in_file_browser',
+    );
+
+    $self->{open_with_default_system_editor} = $self->add_menu_action(
+        $file_open,
+        'file.open_with_default_system_editor',
     );