Changeset 5600

Timestamp:

06/26/09 08:26:45 (3 years ago)

Author:

submersible_toaster

Message:

allow caller of ::find() to prefer

size= icons= ext= Padre::Wx::Icon::find('status/foo.png',{size='64x64'});

File:

• trunk/Padre/lib/Padre/Wx/Icon.pm (modified) (5 diffs)

trunk/Padre/lib/Padre/Wx/Icon.pm

@@ -21 +21 @@
 use Padre::Util ();
 use Padre::Wx   ();
+use Params::Util qw( _HASH );
 
 our $VERSION = '0.37';
@@ -37 +38 @@
 );
 
+# Lay down some defaults from our common
+# constants
+my %PREFS = (
+    size => SIZE,
+    ext  => EXT,
+    icons=> ICONS,
+);
+
 our $DEFAULT_ICON_NAME = 'status/padre-fallback-icon';
 our $DEFAULT_ICON;
@@ -48 +57 @@
 sub find {
     my $name = shift;
-
+    my $prefs = shift;
+    # If you _really_ are competant ;), prefer size,icons,ext
+    # over the defaults
+    my %pref = _HASH( $prefs )
+        ? ( %PREFS , %$prefs )
+        : %PREFS;
     # Search through the theme list
     foreach my $theme (THEMES) {
@@ -56 +70 @@
             : $name;
         my $file = File::Spec->catfile(
-            ICONS,
+            $pref{icons},
             $theme,
-            SIZE,
+            $pref{size},
             ( split /\//, $hinted )
-        ) . '.png';
+        ) . $pref{ext};
         next unless -f $file;
-        return Wx::Bitmap->new( $file, Wx::wxBITMAP_TYPE_PNG );
+        return cast_to_icon(
+            Wx::Bitmap->new( $file, Wx::wxBITMAP_TYPE_PNG )
+        );
     }
 
@@ -86 +102 @@
 }
 
+sub cast_to_icon{
+    my $icon = Wx::Icon->new;
+    $icon->CopyFromBitmap( shift );
+    return $icon;
+}
+
 1;