Group :: Development/Perl
RPM: podbrowser
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: podbrowser-0.12-debian-missing_icon.patch
Download
Download
Description: Provide alternative icons if those expected not in current theme
Author: Jeffrey Ratcliffe <Jeffrey.Ratcliffe@gmail.com>
Index: podbrowser-0.12/podbrowser.pl
===================================================================
--- podbrowser-0.12.orig/podbrowser.pl 2010-05-12 09:20:46.525685070 +0200
+++ podbrowser-0.12/podbrowser.pl 2010-05-12 13:04:37.000000000 +0200
@@ -60,9 +60,22 @@
my $APP = Gtk2::GladeXML->new($GLADE_FILE);
my $THEME = get_an_icon_theme();
my $TIPS = Gtk2::Tooltips->new;
-my $IDX_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
-my $PAGE_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_new-text', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
-my $FOLDER_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+my ( $IDX_PBF, $PAGE_PBF, $FOLDER_PBF );
+if ($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')) {
+ $IDX_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_bookmark', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+} else {
+ $IDX_PBF = Gtk2::Image->new->render_icon( 'gtk-index', 'menu' );
+}
+if ($THEME->lookup_icon('stock_new-text', 16, 'force-svg')) {
+ $PAGE_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('stock_new-text', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+} else {
+ $PAGE_PBF = Gtk2::Image->new->render_icon( 'gtk-new', 'menu' );
+}
+if ($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')) {
+ $FOLDER_PBF = Gtk2::Gdk::Pixbuf->new_from_file($THEME->lookup_icon('gnome-fs-directory', 16, 'force-svg')->get_filename)->scale_simple(16, 16, 'bilinear');
+} else {
+ $FOLDER_PBF = Gtk2::Image->new->render_icon( 'gtk-directory', 'menu' );
+}
my $NORMAL_CURSOR = Gtk2::Gdk::Cursor->new('left_ptr');
my $BUSY_CURSOR = Gtk2::Gdk::Cursor->new('watch');
my $ITEMS = {};