Changeset 5355

Timestamp:

06/19/09 07:08:48 (3 years ago)

Author:

azawawi

Message:

[Perl 6] Added a bigger Perl 6 Camelia icon in the about box.

Location:

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin

Files:

• Perl6.pm (modified) (3 diffs)
• Perl6/share/icons/camelia-big.png (added)

trunk/Padre-Plugin-Perl6/lib/Padre/Plugin/Perl6.pm

@@ -47 +47 @@
 # plugin icon
 sub plugin_icon {
-    # find resource path
-    my $iconpath = File::Spec->catfile( _sharedir(), 'icons', 'camelia.png');
-
-    # create and return icon
-    return Wx::Bitmap->new( $iconpath, Wx::wxBITMAP_TYPE_PNG );
+    # find resource path
+    my $iconpath = File::Spec->catfile( _sharedir(), 'icons', 'camelia.png');
+
+    # create and return icon
+    return Wx::Bitmap->new( $iconpath, Wx::wxBITMAP_TYPE_PNG );
 }
 
@@ -225 +225 @@
 
 sub show_about {
-    my ($main) = @_;
+    my $main = shift;
 
     require Syntax::Highlight::Perl6;
@@ -236 +236 @@
     );
     $about->SetVersion($VERSION);
+
+    # create and return the camelia icon
+    my $camelia_path = File::Spec->catfile( _sharedir(), 'icons', 'camelia-big.png');
+    my $camelia_bmp = Wx::Bitmap->new( $camelia_path, Wx::wxBITMAP_TYPE_PNG );
+    my $camelia_icon = Wx::Icon->new();
+    $camelia_icon->CopyFromBitmap($camelia_bmp);
+    $about->SetIcon($camelia_icon);
+    
     Wx::AboutBox( $about );
     return;