← Back to branch summary

~ubuntu-branches/ubuntu/raring/padre/raring

« back to all changes in this revision

Viewing changes to lib/Padre/Wx/Dialog/About.pm

  • Committer: Package Import Robot
  • Author(s): Dominique Dumont
  • Date: 2012-05-12 12:40:00 UTC
  • mfrom: (1.3.5)
  • Revision ID: package-import@ubuntu.com-20120512124000-lpfuc4ny1eo3ecvx
Tags: 0.96+dfsg1-1
* new upstream version
* control: 
   * updated dependencies versions
   - removed  libformat-human-bytes-perl
   * cleanup unneeded version dependencies 
   - removed provides on padre-plugin-api-2. The only remaining packages
     depending on this meta package are already incompatible with new 
     padre  (and broken upstream)
   * no need to depend on libtest-warn-perl 0.24, 0.23 is enough
* patches:
   - removed hack-missing-context-menu (obsolete)
   + Skip upstream test that broke with new DBI. See patch header 
     for more details
   + fix spellings reported by lintian

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/Padre/Wx/Dialog/About.pm
5
5
use warnings;
6
6
use utf8;
7
7
use Config;
 
8
use PPI                     ();
8
9
use Padre::Wx               ();
9
10
use Wx::Perl::ProcessStream ();
10
11
use Padre::Util             ();
11
 
use PPI                     ();
 
12
use Padre::Locale::Format   ();
12
13
use Padre::Wx::FBP::About   ();
13
14
 
14
 
our $VERSION = '0.94';
 
15
our $VERSION = '0.96';
15
16
our @ISA     = qw{
16
17
        Padre::Wx::FBP::About
17
18
};
23
24
sub run {
24
25
        my $class = shift;
25
26
        my $self  = $class->SUPER::new(@_);
26
 
        
 
27
 
27
28
        # Always show the first tab regardless of which one
28
29
        # was selected in wxFormBuilder.
29
30
        $self->notebook->ChangeSelection(0);
30
31
 
31
32
        # Load the platform-adaptive splash image
32
33
        $self->{splash}->SetBitmap( Wx::Bitmap->new( Padre::Util::splash, Wx::BITMAP_TYPE_PNG ) );
 
34
 
33
35
        # $self->creator->SetLabel("G\x{e1}bor Szab\x{f3}"); # don't work
34
36
        $self->creator->SetLabel('Created by Gábor Szabó'); # works
35
 
        
 
37
 
36
38
        # Set the system information
37
39
        $self->{output}->ChangeValue( $self->_information );
38
40
 
40
42
        $self->_translation;
41
43
 
42
44
        $self->CenterOnParent;
43
 
        
 
45
 
44
46
        # Show the dialog
45
47
        $self->ShowModal;
46
48
 
104
106
        $output .= $self->_wx_info;
105
107
        $output .= "Other...\n";
106
108
        $output .= sprintf "%*s %s\n", OFFSET, 'PPI',   $PPI::VERSION;
107
 
        
 
109
 
108
110
        require Debug::Client;
109
111
        $output .= sprintf "%*s %s\n", OFFSET, 'Debug::Client', $Debug::Client::VERSION;
110
 
        
 
112
 
111
113
        $output .= sprintf "%*s %s\n", OFFSET, Wx::gettext('Config'), Padre::Constant::CONFIG_DIR;
112
114
        return $output;
113
115
}
146
148
 
147
149
        # Calculate the current memory in use across all threads
148
150
        my $ram = Padre::Util::process_memory();
149
 
        $ram = $ram ? Padre::Util::humanbytes($ram) : Wx::gettext('(unsupported)');
 
151
        if ($ram) {
 
152
                $ram = Padre::Locale::Format::bytes($ram);
 
153
        } else {
 
154
                $ram = Wx::gettext('(unsupported)');
 
155
        }
150
156
        $output .= sprintf "%*s %s\n", OFFSET, Wx::gettext("RAM"), $ram;
151
157
 
152
158
        return $output;