Changeset 10602 for trunk/Padre/lib/Padre/Wx/Main.pm

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

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (1 diff)

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') );