Changeset 846

Timestamp:

11/09/08 02:27:55 (3 years ago)

Author:

fayland

Message:

for no doc selected.

File:

• trunk/lib/Padre/Wx/MainWindow.pm (modified) (4 diffs)

trunk/lib/Padre/Wx/MainWindow.pm

@@ -1549 +1549 @@
 sub on_tab_and_space {
     my ( $self, $type ) = @_;
+    
+    my $doc = $self->selected_document;
+    if (not $doc) {
+        $self->message( 'No file is open' );
+        return;
+    }
 
     my $title = $type eq 'Space_to_Tab' ? 'Space to Tab' : 'Tab to Space';
@@ -1565 +1571 @@
     
     my $src = $self->selected_text;
-    my $doc = $self->selected_document;
     my $code = ( $src ) ? $src : $doc->text_get;
     
-    return unless ( defined $doc and length($doc) );
+    return unless ( defined $code and length($code) );
     
     my $to_space = ' ' x $space_num;
@@ -1588 +1593 @@
     my ( $self ) = @_;
     
+    my $doc = $self->selected_document;
+    if (not $doc) {
+        $self->message( 'No file is open' );
+        return;
+    }
+    
     my $src = $self->selected_text;
-    my $doc = $self->selected_document;
     my $code = ( $src ) ? $src : $doc->text_get;
     
@@ -1640 +1650 @@
     my ($self, $type) = @_;
     
+    my $doc  = $self->selected_document;
+    if (not $doc) {
+        $self->message( 'No file is open' );
+        return;
+    }
     my $src  = $self->selected_text;
-    my $doc  = $self->selected_document;
     my $code = ( $src ) ? $src : $doc->text_get;