Changeset 2191

Timestamp:

12/23/08 19:48:41 (3 years ago)

Author:

azawawi

Message:

Show an error message box in the following situations:

• exporting a non-Perl6 file
• STD.pm parsing error occurs

File:

• trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6.pm (modified) (2 diffs)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6.pm

@@ -84 +84 @@
     }
     if($doc->get_mimetype ne q{application/x-perl6}) {
+        Wx::MessageBox(
+            'Not a Perl 6 file',
+            'Export cancelled',
+            Wx::wxOK,
+            Padre->ide->wx->main_window
+        );
         return;
     }
@@ -107 +113 @@
 
     if($EVAL_ERROR) {
-        say 'Parsing error, bye bye ->export_html';
+        Wx::MessageBox(
+            qq{STD.pm Parsing Error:\n$EVAL_ERROR},
+            'Export cancelled',
+            Wx::wxOK,
+            Padre->ide->wx->main_window
+        );
+        say "\nSTD.pm Parsing error\n" . $EVAL_ERROR;
         return;
     }