Changeset 474

Timestamp:

10/26/08 03:09:12 (3 years ago)

Author:

szabgab

Message:

stop crashing at startup when there is no open document

Location:

trunk/lib/Padre/Wx

Files:

• MainWindow.pm (modified) (3 diffs)
• Menu.pm (modified) (1 diff)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -288 +288 @@
 
     my $pageid = $self->{notebook}->GetSelection();
-    if (not defined $pageid) {
+    if (not defined $pageid or $pageid == -1) {
         $self->SetStatusText("", $_) for (0..2);
         return;
@@ -468 +468 @@
 sub run_perl {
     my $self     = shift;
-    my $document = $self->selected_document;
+    my $document = Padre::Documents->current;
+
+    return $self->error("No open document") if not $document;
     unless ( $document->isa('Padre::Document::Perl') ) {
         return $self->error("Not a Perl document");
@@ -491 +493 @@
 
     # Run with the same Perl that launched Padre
+    # TODO: get preferred Perl from configuration
     my $perl = Padre->perl_interpreter;
 

trunk/lib/Padre/Wx/Menu.pm

@@ -524 +524 @@
     # TODO: fix the occassional crash here:
     if (not defined $self->{alt}->[$n]) {
-        warn $n;
+        warn "alt-n $n problem ?";
         return;
     }