Ticket #647: padre.diff

trunk/Padre/lib/Padre/File/Local.pm

@@ -173 +173 @@
     return File::Basename::dirname( $self->{filename} );
 }
 
+sub readonly {
+    my $self = shift;
+    return 1 if (! -w $self->{filename});
+}
+
 1;
 
 # Copyright 2008-2009 The Padre development team as listed in Padre.pm.

trunk/Padre/lib/Padre/Wx/StatusBar.pm

@@ -64 +64 @@
     MIMETYPE    => 3,
     NEWLINE     => 4,
     POSTRING    => 5,
+    RDONLY      => 6,
 };
 
 #####################################################################
@@ -105 +106 @@
     );
 
     # Set up the fields
-    $self->SetFieldsCount(6);
+    $self->SetFieldsCount(7);
 
     #$self->SetStatusWidths( -1, 0, 100, 100, 50, 100 );
 
@@ -135 +136 @@
     $self->SetStatusText( "", MIMETYPE );
     $self->SetStatusText( "", NEWLINE );
     $self->SetStatusText( "", POSTRING );
+    $self->SetStatusText( "", RDONLY );
     return;
 }
 
@@ -187 +189 @@
     my $format   = '%' . length( $lines + 1 ) . 's,%-3s %3s%%';
     my $length   = length( $lines + 1 ) + 8;
     my $postring = sprintf( $format, ( $line + 1 ), $char, $percent );
+    my $rdstatus = $self->is_read_only;
 
     # update task load status
     $self->update_task_status;
@@ -197 +200 @@
     $self->SetStatusText( $mime_type_name,       MIMETYPE );
     $self->SetStatusText( $newline,              NEWLINE );
     $self->SetStatusText( $postring,             POSTRING );
+    $self->SetStatusText( $rdstatus,             RDONLY );
     $self->SetStatusWidths(
         -1,
         $self->_task_width,
@@ -204 +208 @@
         ( length($mime_type_name) + 2 ) * $width,
         ( length($newline) + 2 ) * $width,
         ( $length + 2 ) * $width,
+        length($rdstatus) * $width,
     );
 
     # move the static bitmap holding the task load status
@@ -374 +379 @@
     $sbmp->Refresh;
 }
 
+sub is_read_only {
+    my ($self)    = @_;
+    my $file      = $self->current->document->file || '';
+    my $is_rdonly = $file->readonly if $file;
+    $is_rdonly ? return 'Read Only' : return ':)';
+}
+
+
 1;
 
 =pod

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

@@ -1022 +1022 @@
     $self->GetStatusBar->update_pos( $_[0] or $self->current );
 }
 
+sub refresh_rdstatus {
+    my $self = shift;
+    return if $self->no_refresh;
+    $self->GetStatusBar->is_read_only( $_[0] or $self->current );
+}
+
 =pod
 
 =head3 refresh_functions
@@ -4182 +4188 @@
     #   $self->refresh_status($current);
     $self->refresh_cursorpos($current);
 
+    $self->refresh_rdstatus($current);
+
     # $self->refresh_functions;
     # $self->refresh_syntaxcheck;