Changeset 8591

Timestamp:

10/03/09 12:17:40 (2 years ago)

Author:

Sewi

Message:

Add disksize to document stats

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (2 diffs)

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

@@ -4247 +4247 @@
     ) = $doc->stats;
 
+    my $disksize = '';
+    if (defined($doc) and defined($doc->{file})) {
+        $disksize = sprintf(Wx::gettext('Size on disk: %s'),
+            Padre::Util::humanbytes($doc->{file}->size)).$/;
+    }
+
     my @messages = (
         sprintf( Wx::gettext("Words: %s"),                $words ),
@@ -4253 +4259 @@
         sprintf( Wx::gettext("Chars with spaces: %d"),    $chars_with_space ),
         sprintf( Wx::gettext("Newline type: %s"),         $newline_type ),
+        $disksize.
         sprintf( Wx::gettext("Encoding: %s"),             $encoding ),
         sprintf(