Changeset 8586

Timestamp:

10/03/09 11:56:08 (2 years ago)

Author:

Sewi

Message:

Ask for continue on beginner error

File:

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

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

@@ -1796 +1796 @@
             $self->run_command($cmd);
         } else {
-            $self->error( $document->errstr );
-        }
+                my $styles = Wx::wxCENTRE | Wx::wxICON_HAND|Wx::wxYES_NO ;
+                my $ret = Wx::MessageBox(
+                $document->errstr."\n".
+                Wx::gettext('Do you want to continue?'),
+                Wx::gettext("Warning"),
+                $styles,
+                $self,
+            );
+            if ( $ret == Wx::wxYES ) {
+                $self->run_command($cmd);
+            }
+            }
     }
     return;