Ticket #647: padre.diff

File padre.diff, 2.9 KB (added by agn, 5 years ago)
  • trunk/Padre/lib/Padre/File/Local.pm

     
    173173    return File::Basename::dirname( $self->{filename} ); 
    174174} 
    175175 
     176sub readonly { 
     177    my $self = shift; 
     178    return 1 if (! -w $self->{filename}); 
     179} 
     180 
    1761811; 
    177182 
    178183# Copyright 2008-2009 The Padre development team as listed in Padre.pm. 
  • trunk/Padre/lib/Padre/Wx/StatusBar.pm

     
    6464    MIMETYPE    => 3, 
    6565    NEWLINE     => 4, 
    6666    POSTRING    => 5, 
     67    RDONLY      => 6, 
    6768}; 
    6869 
    6970##################################################################### 
     
    105106    ); 
    106107 
    107108    # Set up the fields 
    108     $self->SetFieldsCount(6); 
     109    $self->SetFieldsCount(7); 
    109110 
    110111    #$self->SetStatusWidths( -1, 0, 100, 100, 50, 100 ); 
    111112 
     
    135136    $self->SetStatusText( "", MIMETYPE ); 
    136137    $self->SetStatusText( "", NEWLINE ); 
    137138    $self->SetStatusText( "", POSTRING ); 
     139    $self->SetStatusText( "", RDONLY ); 
    138140    return; 
    139141} 
    140142 
     
    187189    my $format   = '%' . length( $lines + 1 ) . 's,%-3s %3s%%'; 
    188190    my $length   = length( $lines + 1 ) + 8; 
    189191    my $postring = sprintf( $format, ( $line + 1 ), $char, $percent ); 
     192    my $rdstatus = $self->is_read_only; 
    190193 
    191194    # update task load status 
    192195    $self->update_task_status; 
     
    197200    $self->SetStatusText( $mime_type_name,       MIMETYPE ); 
    198201    $self->SetStatusText( $newline,              NEWLINE ); 
    199202    $self->SetStatusText( $postring,             POSTRING ); 
     203    $self->SetStatusText( $rdstatus,             RDONLY ); 
    200204    $self->SetStatusWidths( 
    201205        -1, 
    202206        $self->_task_width, 
     
    204208        ( length($mime_type_name) + 2 ) * $width, 
    205209        ( length($newline) + 2 ) * $width, 
    206210        ( $length + 2 ) * $width, 
     211        length($rdstatus) * $width, 
    207212    ); 
    208213 
    209214    # move the static bitmap holding the task load status 
     
    374379    $sbmp->Refresh; 
    375380} 
    376381 
     382sub is_read_only { 
     383    my ($self)    = @_; 
     384    my $file      = $self->current->document->file || ''; 
     385    my $is_rdonly = $file->readonly if $file; 
     386    $is_rdonly ? return 'Read Only' : return ':)'; 
     387} 
     388 
     389 
    3773901; 
    378391 
    379392=pod 
  • trunk/Padre/lib/Padre/Wx/Main.pm

     
    10221022    $self->GetStatusBar->update_pos( $_[0] or $self->current ); 
    10231023} 
    10241024 
     1025sub refresh_rdstatus { 
     1026    my $self = shift; 
     1027    return if $self->no_refresh; 
     1028    $self->GetStatusBar->is_read_only( $_[0] or $self->current ); 
     1029} 
     1030 
    10251031=pod 
    10261032 
    10271033=head3 refresh_functions 
     
    41824188    #   $self->refresh_status($current); 
    41834189    $self->refresh_cursorpos($current); 
    41844190 
     4191    $self->refresh_rdstatus($current); 
     4192 
    41854193    # $self->refresh_functions; 
    41864194    # $self->refresh_syntaxcheck; 
    41874195