Changeset 5636
- Timestamp:
- 06/26/09 21:20:17 (3 years ago)
- File:
-
- 1 edited
-
trunk/Padre/lib/Padre/Wx/Icon.pm (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Padre/lib/Padre/Wx/Icon.pm
r5600 r5636 76 76 ) . $pref{ext}; 77 77 next unless -f $file; 78 return cast_to_icon( 79 Wx::Bitmap->new( $file, Wx::wxBITMAP_TYPE_PNG ) 80 ); 78 return Wx::Bitmap->new( $file, Wx::wxBITMAP_TYPE_PNG ); 81 79 } 82 80 … … 102 100 } 103 101 104 sub cast_to_icon{105 my $icon = Wx::Icon->new;106 $icon->CopyFromBitmap( shift );107 return $icon;108 }109 110 102 1; 111 103
Note: See TracChangeset
for help on using the changeset viewer.
